Bonsoir chers tous
Dans ma colonne A j'ai des dates rangées par ordre décroissant ( Du mois encours aux mois antérieurs)
Je voudrais un code VBA pour repérer la première date du mois diffèrent du mois en cours.
le mois en cours étant MAI, le résultat va etre la deuxième ligne, et non 5
VB:
Option Explicit
Sub MoisPrecedent()
Dim i As Long
For i = 2 To 13
If Month(Range("A" & i)) <> Month(Now) Then
Range("E2") = i
Exit For
End If
Next i
End Sub
le mois en cours étant MAI, le résultat va etre la deuxième ligne, et non 5
VB:
Option Explicit
Sub MoisPrecedent()
Dim i As Long
For i = 2 To 13
If Month(Range("A" & i)) <> Month(Now) Then
Range("E2") = i
Exit For
End If
Next i
End Sub