cosmospirit Dinde la soude | Salut all , voila mon petit prob avec If Then ...
Le premier for marche nikel
LE second ne s'execute pas ... une idée ?
Code :
- Sub espoir()
- Set Selec = Worksheets("Selection des choix" )
- Set Calc = Worksheets("Calculs dépréssu" )
- For k = 3 To (2 + Selec.Cells(33, 4))
- Calc.Cells(k, 1) = Calc.Cells(k - 1, 1) + Selec.Cells(35, 4)
- Next k
- End
- If Selec.Cells(24, 5).Value <> 0 Then
- For k = 2 To (1 + Selec.Cells(33, 4))
- Calc.Cells(k, 8) = Selec.Cells(24, 5)
- Next k
- End
- End If
- End Sub
|
A noter que la valeur dans la case Selec.Cells(24,5) = 300 donc bien différente de zéro
Merci
Message édité par cosmospirit le 27-03-2006 à 10:55:02
|