XL 2010 calcule date en vba

[kaid]

Bonjour;

en F2 : Date depot.

en G2 : Date Ajourd'huit().

en H2 : Nombre de jours = ;[Ajourd''huit]-[DATE DEPOT ])

en J2 : Date accord.

en I2 : =SI(J2)=date;"Accord";SI(G2>=60;"Alerte";"En cours")))

j'aimerai convertir ce code en vba en mettant un simple bouton sur ma feuille.

merci

 

[kaid]

j'ai trouvé ca mais j'aimerai l'appliquer sur toute la plage du tableau

Private Sub CommandButton1_Click()
Dim Dat1 As Date
Dim Dat2 As Date
Dim nbr_jr As Integer
Dim i As Integer
For i = 1 To 20
Dat1 = Range("i" & i)
Dat2 = Range("f" & i)
nbr_jr = Dat2 - Dat1
Range("j" & i) = nbr_jr
Next i
End Sub

 

[kaid]

j'ai mis ca mais ca donne rien
Private Sub CommandButton2_Click()
Dim Dat1 As Date
Dim Dat2 As Date
Dim nbr_jr As Integer

Range("i2").Select
Range("i2") = date1
Range("f2").Select
Range("f2") = Dat2
Range("j2").Select
nbr_jr = Dat1 - Dat2
Range("j2") = nbr_jr


End Sub

 

[Lone-wolf]

Bonsoir

Sub test()
With Feuil1
derlig = .Range("a" & Rows.Count).End(xlUp).Row
For i = 2 To derlig
.Range("c" & i) = Date - .Range("a" & i)
Next i
End With
End Sub

Oubien

Sub test()
With Feuil1
derlig = .Range("a" & Rows.Count).End(xlUp).Row
For i = 2 To derlig
.Range("c" & i) = .Range("b" & i) - .Range("a" & i)
Next i
End With
End Sub

 

[kaid]

Bonjour et merci