Egalité entre deux valeur non-détecté ?

Bonsoir !

Je tâche à essayer de savoir si deux valeurs sont identiques. Toutefois, malgré tous mes efforts, et selon mes yeux, la même valeur, il semble que le programme ne détecte pas d'égalité.

Voilà le code en question :

Function SalariesColumn()
x = False
    DateToFindVar = "8/4/2019"
    For Each i In SalaryDateReference
    Debug.Print i.Value & " " & DateToFindVar
        If DateToFindVar = i Then
            SalariesColumn = i
            x = True
            Debug.Print "Congrats"
        End If
    Next
    Debug.Print "Hey?"
End Function

Voilà ce qui est ''Debug printé'' :

6/30/2019 8/4/2019
7/7/2019 8/4/2019
7/14/2019 8/4/2019
7/21/2019 8/4/2019
7/28/2019 8/4/2019
8/4/2019 8/4/2019
8/11/2019 8/4/2019
Hey?

8/4/2019 et 8/4/2019 ne sont-ils pas pareils ? Alors ''Congrats'' devrait être affiché ?

Quels, pensez-vous, pourraient être les source de différence entre ces deux valeurs ?

Merci de votre lecture !

Bonjour

Il peut y avoir une différence de type, un heure non affichée mais présente qui fait que ce n'est la même chose...

Dans ce cas, quel serait votre idée pour corriger ce potentiel fait non-voulu ?

bonjour,

...Vouloir comparer une Date avec un String !

Essaie :

Function SalariesColumn()
x = False
    DateToFindVar = CDate("8/4/2019")
    For Each i In SalaryDateReference
    Debug.Print i.Value2 & " " & DateToFindVar
        If DateToFindVar = i Then
            SalariesColumn = i
            x = True
            Debug.Print "Congrats"
        End If
    Next
    Debug.Print "Hey?"
End Function

A+

Merci ! Votre solution fut la bonne !