Bonsoir
Juste pour Steplof, attention aux Variables et surtout quand Musat parle de 33333 lignes.... Ton
i as integer va exploser !! de plus ta "DerniereLigne" as Double.... (à virgule flottante en double précision) n'est pas nécessaire pour une Row... donc Var pas géniales..
Astuce pour améliorer la rapidité du code par 20 X : (sur 65535 lignes !)
Private Sub CommandButton1_Click()
Dim DerniereLigne As Long
Dim formuleD As String
Dim i As Long
Application.Calculation = xlManual
DerniereLigne = Range("a65536").End(xlUp).Row
For i = 2 To DerniereLigne
formuleD = "=(c" & i & "- b" & i & ")"
Range("d" & i).Value = formuleD
Next i
Application.Calculation = xlAutomatic
End Sub
Mais ta boucle de formule est tout à fait simple et géniale
Have a good last Week End 2002
@+Thierry