Diff dates
arnaud2010
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
arnaud2010 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
arnaud2010 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je souhaiterais comparer deux dates, jusque-là la rien de sorcier. Mais j'aimerais l'intégrer dans une boucle et la sa coince.
Sa marche niquel comme cela : Range("W10") = DateDiff("m", Range("R10"), Now)
Mais programmer sa sur 2000 ligne... pas marrant alors j'ai une boucle mais sa plante
Help me please ! :)
Bonne journée
Private Sub test()
Dim DernLigne As Long
Dim i As Integer
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
For i = 6 To DernLigne
Cells(i, 21) = DateDiff("m", Cells(i, 18), Now)
Next
End Sub
je souhaiterais comparer deux dates, jusque-là la rien de sorcier. Mais j'aimerais l'intégrer dans une boucle et la sa coince.
Sa marche niquel comme cela : Range("W10") = DateDiff("m", Range("R10"), Now)
Mais programmer sa sur 2000 ligne... pas marrant alors j'ai une boucle mais sa plante
Help me please ! :)
Bonne journée
Private Sub test()
Dim DernLigne As Long
Dim i As Integer
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
For i = 6 To DernLigne
Cells(i, 21) = DateDiff("m", Cells(i, 18), Now)
Next
End Sub