XL 2016 Première date différente du mois encours.

[KTM]

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.

Merci

 

[vgendron]

Bonjour

le mois en cours étant MAI, le résultat va etre la deuxième ligne, et non 5

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

PS: je ne vois pas trop à quoi ca peut servir..

 

[KTM]

Bonjour

le mois en cours étant MAI, le résultat va etre la deuxième ligne, et non 5

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

PS: je ne vois pas trop à quoi ca peut servir..

Merci cela me va .
Bonne soirée