Bonjour la communauté
Je souhaite faire une comparaison de date et afficher une message box en renvoyant des données correspondantes à la date. j'ai simplifié l'exemple au maximum et pourtant, il ne se passe rien quand je clique sur le bouton qui execute la macro
Merci pour votre aide
Je souhaite faire une comparaison de date et afficher une message box en renvoyant des données correspondantes à la date. j'ai simplifié l'exemple au maximum et pourtant, il ne se passe rien quand je clique sur le bouton qui execute la macro
Code:
Sub ComparDate()
Dim i As Integer
For i = 4 To Sheets.Count
If DateValue(Range("F" & i).Value) = DateValue(Range("F2").Value) Then
MsgBox "Dates identiques" & Range("A" & i) & " - " & vbCrLf
Else
MsgBox "Dates différentes" & Range("A" & i) & " - " & vbCrLf
End If
Next i
End Sub
Merci pour votre aide