Aide sur fonction si

bonjour à tous

Je vous explique mon soucis, je ne trouve pas mon erreur sur mon Userform avec la fonction "Si"

je souhaite obliger la saisie des 2 textbox.

Pouvez vous m expliqué mon erreur, et par la même occasion si vous voyais d'autre erreur n hésité pas.

Merci d'avance pour votre aide

Cordialement

Bonsoir,

un essai :

Private Sub CommandButton1_Click()
    If Trim(TextBox1.Value) <> "" And Trim(TextBox2.Value) <> "" Then
        If IsDate(TextBox1.Value) And IsDate(TextBox2.Value) Then
            Range("C" & ActiveCell.Row).Value = CDate(TextBox1)
            Range("E" & ActiveCell.Row).Value = CDate(TextBox2)
        Else
            MsgBox "veuillez verifier les dates, merci."
        End If
    Else
        MsgBox "veuillez renseigner les 2 champs, merci."
    End If
End Sub

Avec Trim on supprime les espaces inutiles en début et fin de chaine et on vérifie si le "restant" est différent de rien, si c'est le cas dans les deux champs "AND" alors on passe aux tests suivant où l'on vérifie si ce qui est dans les champs peut être considéré comme des dates, si oui on inscrit si non on le signale.
Sinon on signale qu'il faut remplir les deux champs.

@ bientôt

LouReeD

bonsoir loureed

Désolé de te répondre si tardivement, un grand merci de m 'avoir expliqué, ma macro marche nickel

cordialement

Bonjour,

votre macro marche nickel ? Et la mienne alors ? Je plaisante !
Merci pour votre retour et remerciement !

@ bientôt

LouReeD