Vérifier une double condition composée avec un if ?

Bonjour,

Pourriez vous m'aider s'il vous plait :

Je cherche à entrer dans un if lorsque les conditions suivantes sont réunies :

La textbox T49 est soit vide

OU SI

celle-ci contient du date (sa longueur est 10 caractères) est après la date contenu dans Textbox134

Cette ligne pose problème dès lors que T49 est vide , une incompatibilité de type est reporté.

If (Len(T49) = 0) Or (Len(T49) = 10 And (CDate(T49) >= CDate(T134))) Then

...

endif

Comment peut on créer ce type de condition de bonne façon sans voir a dupliquer le code à l'intérieur du IF ?

Merci à vous

bonsoir,

Une façon de faire : tu fais tes tests et tu positionnes une valeur booléenne qui tu testes pour déterminer si tu dois exécuter ton code ou pas.

Private Sub CommandButton1_Click()
    If Len(T49) = 0 Then
        conditionremplie = True
    ElseIf Len(T49) = 10 and CDate(T49)>=CDate(T134) Then 'tu recevras une erreur sur cette instruction si T49 ou T134 ne contient pas une date valide, mais j'ai gardé ton test.
        conditionremplie = True
    Else
        conditionremplie = False
    End If
    If conditionremplie Then
        ' ton code que tu ne veux pas dupliquer
    End If
End Sub