Formulaire avec 2 textbox....une des deux doit être rempli

Bonjour à tous,

J'ai un formulaire avec 2 textbox.

Si aucune des deux n'est renseignée, un message d'alerte s'ouvre pour inviter l'utilisateur à remplir les champs. Jusque là, ça va

Ce que je cherche à faire, c'est pouvoir valider le formulaire si au moins une des deux textbox est renseignée et là ça ne fonctionne pas avec le code ci-dessous.

Merci pour votre aide

If TextBox1 = "" Or TextBox2 = "" Then
    MsgBox "Merci de compléter les champs ""X"" ou ""Y"""

    Exit Sub
    End If
    Unload Me 'Revenir au formulaire pour compléter

Bonjour

A la place du Or mets And

If TextBox1 = "" And TextBox2 = "" Then
    MsgBox "Merci de compléter les champs ""X"" ou ""Y"""

    Exit Sub
    End If
    Unload Me 'Revenir au formulaire pour compléter

Merci Banzai pour ton aide précieuse et ta réactivité

Tout fonctionne parfaitement, l'erreur du débutant...

Bonjour à tous,

J'ai encore un petit soucis avec mon code. Dans une des deux textbox (textbox5), je voudrais forcer l'écriture numérique. J'ai donc rajouté une ligne.

Ca fonctionne dans tous les cas de figure, sauf si je ne remplit que le champ "Y" (textbox4), j'ai également le message d'alerte "Le caractère saisi n'est pas valide". En fait si la Textbox4 est renseignée, le message d'alerte n'a pas besoin de s'afficher, puisqu'il faut qu'au moins une des 2 textbox soient remplit pour pouvoir valider le formulaire.

Pas simple de comprendre toutes les subtilités du vba . Merci pour aide

If TextBox4 = "" And TextBox5 = "" Then

    MsgBox "Merci de compléter les champs ""X"" et/ou ""Y""", vbExclamation, "Remplir les champs demandés"

    Exit Sub
    End If

    Unload Me 'Revenir au formulaire pour compléter

If Not IsNumeric(Right(TextBox5, 1)) Then
        MsgBox "Le caractere saisi n'est pas valide"

    Exit Sub
    End If

    Unload Me 'Revenir au formulaire pour compléter

End Sub

Bonjour

Testes ta TextBox si elle n'est pas vide

    If TextBox4 = "" And TextBox5 = "" Then

        MsgBox "Merci de compléter les champs ""X"" et/ou ""Y""", vbExclamation, "Remplir les champs demandés"

        Exit Sub
        End If

        Unload Me 'Revenir au formulaire pour compléter

    If Trim(Me.TextBox5)<>"" And Not IsNumeric(Right(TextBox5, 1)) Then
            MsgBox "Le caractere saisi n'est pas valide"

        Exit Sub
        End If

        Unload Me 'Revenir au formulaire pour compléter

    End Sub

Merci Banzai,

Ta solution fonctionne