Comparer dates VBA

adel53 · 5 Décembre 2011

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

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

gilbert_RGI · 5 Décembre 2011

Re : Comparer dates VBA

Bonjour

il y a trois feuilles dans le classeur
alors la boucle i = 4 To Sheets.Count
correspond à quoi ?

gilbert_RGI · 5 Décembre 2011

Re : Comparer dates VBA

essayer plutot ça

Code:

Sub Bouton1_Clic()
 
Dim i As Integer
For i = 4 To 100 'Sheets.Count
If Range("F" & i) = "" Then GoTo suite
        If DateValue(Range("F" & i).Value) = DateValue(Range("F2").Value) Then
           MsgBox "Dates identiques " & " - index - " & Range("A" & i) 
        Else
           MsgBox "Dates différentes " & " - index - " & Range("A" & i) 
        End If
suite:
Next i
End Sub

fanfan38 · 5 Décembre 2011

Re : Comparer dates VBA

Bonjour
Tout a fait de l'avis de Gilbert....
sheets.count sert à compter le nombre de feuille???
Je propose

Sub Bouton1_Clic()
Dim i As Integer
Dim derlig As Integer
derlig = Range("a65536").End(xlUp).Row
For i = 4 To derlig 'Sheets.Count
If IsDate(Range("F" & i).Value) Then
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
End If
Next i
End Sub

A+ François

adel53 · 5 Décembre 2011

Re : Comparer dates VBA

Bonjour en suivant vos conseils j'ai réussi à faire fonctionner le bout de code je vous remercie pour votre aide.

Comparer dates VBA

adel53

XLDnaute Occasionnel

Pièces jointes

gilbert_RGI

XLDnaute Barbatruc

gilbert_RGI

XLDnaute Barbatruc

fanfan38

XLDnaute Barbatruc

adel53

XLDnaute Occasionnel

Discussions similaires