Condition avec Date

Bonjour,

Je viens vers vous car j'ai un problème avec une condition date.

Je dois faire une condition avec une date du jour - 6 mois. (Le tout dans un userform) Voici le code + le fichier:

Private Sub CommandButton1_Click()

    Dim ligne As Long
    Dim O As Worksheet
    Dim TV As Variant
    Dim Critere As Long
    Dim Criterebis As Long

    Set O = Worksheets("Feuil1")
    TV = O.Range("A1").CurrentRegion

    Critere = 0
    Criterebis = 0

    For ligne = 3 To UBound(TV, 1)

            If TV(ligne, 2) > DateAdd("m", -6, Date) Then
            Criterebis = TV(ligne, 1)
            Critere = Critere + Criterebis

            End If
    Next ligne

TextBox1.Value = Critere

End Sub

Avec cette condition on doit obtenir 35 or j'obtiens avec la macro 576.

Merci de bien vouloir m'aider

Bonjour,

à cause des blancs

            If TV(ligne, 2) <> "" And TV(ligne, 2) > DateAdd("m", -6, Date) Then

Merci pour la solution mais le problème persiste si j'inverse la condition

Private Sub CommandButton1_Click()

    Dim ligne As Long
    Dim O As Worksheet
    Dim TV As Variant
    Dim Critere As Long
    Dim Criterebis As Long

    Set O = Worksheets("Feuil1")
    TV = O.Range("A1").CurrentRegion

    Critere = 0
    Criterebis = 0

    For ligne = 3 To UBound(TV, 1)

            If TV(ligne, 2) <> "" And TV(ligne, 2) < DateAdd("m", -6, Date) Then
            Criterebis = TV(ligne, 1)
            Critere = Critere + Criterebis

            End If
    Next ligne

TextBox1.Value = Critere

End Sub

J'obtiens 2796 avec la macro alors que je dois avoir 2804

pourquoi tu commences à la ligne 3 ?

For ligne = 2 To UBound(TV, 1)