XL 2010 calcule date en vba

kaid

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 928
Messages
2 093 699
Membres
105 787
dernier inscrit
BABOU79