Contrôle textbox et combo box vide et msgbox

Bonjour à tous,

Je travaille sur un userform avec plusieurs textbox et combobox.

Je souhaiterai contrôler que mes textbox et combobox soient non vides avant envoi.

Si ces textbox et combobox sont vides, une msgbox apparaîtrait en précisant quelle textbox et/ou combobox sont vides en les listant dans le message.

En complément j’aimerai que le label des textbox et/ou combobox changent de couleurs pour attirer l’attention.

Actuellement j’ai réussi à faire contrôler mes textbox et combobox avec une msgbox globale.

Merci à vous pour votre aide.

Bonne journée.

Bonjour,

une "autre" proposition = remplace ton userform par un onglet dédié à la saisie, tu auras toutes les fonctionnalités d'une feuille excel comme la MFC par exemple !

Bonjour et merci pour ta réponse.

Je souhaite préserver mon userform.

Voici mon code :

If TextBox_nom = ‘’ ‘’ Or TextBox_prenom = ‘’ ‘’ Then

MsgBox ‘’Veuillez compléter tous les champs’’

End Sub

End If

Je voudrai transformer de cette manière :

If TextBox_nom = ‘’ ‘’ Or TextBox_prenom = ‘’ ‘’ Then

MsgBox ‘’Veuillez compléter le champ ‘’TextBox_nom et le champ TextBox_prenom’’

End Sub

End If

S’il n’y a que le champ TextBox_nom de vide alors là MsgBox devient :

MsgBox ‘’Veuillez compléter le champ ‘’TextBox_nom’’

Une autre solution peut-être ?

Merci à vous

Merci par avance

Bonjour à tous,

à tester :

If TextBox_nom = "" And TextBox_prenom = "" Then
    MsgBox "Veuillez compléter les champs ‘’nom‘’ et ‘’prenom’’"
    TextBox_nom.SetFocus
ElseIf TextBox_nom = "" Then
    MsgBox "Veuillez compléter le champs ‘’nom‘’"
    TextBox_nom.SetFocus
    Else
        MsgBox "Veuillez compléter le champs ‘’Prénom‘’"
        TextBox_prenom.SetFocus
End If

A+

attention

probablement

ElseIf TextBox_prenom = "" Then

et pas seule else

bonjour AlgoPlus

Bonjour Steelson

évidemment !! belle étourderie !!

avec la correction et rajout d' Exit Sub, au cas où il y aurait du code après ces instructions :

If TextBox_nom = "" And TextBox_prenom = "" Then
    MsgBox "Veuillez compléter les champs ‘’nom‘’ et ‘’prenom’’"
    TextBox_nom.SetFocus
    Exit Sub
ElseIf TextBox_nom = "" Then
    MsgBox "Veuillez compléter le champs ‘’nom‘’"
    TextBox_nom.SetFocus
    Exit Sub
ElseIf TextBox_prenom = "" Then
    MsgBox "Veuillez compléter le champs ‘’Prénom‘’"
    TextBox_prenom.SetFocus
    Exit Sub
End If

Bonjour à tous,

Merci pour vos réponses, je teste ce code ce soir.

Bonsoir,

Je viens de tester ce code.

Il me retourne une erreur 2110

« le focus ne peut être déplacé sur le contrôle car celui-ci est invisible, non activé, ou d’un type n’acceptant pas le focus. »

Dans l’attente de vous lire

C'est vous qui avez le classeur en main, et pouvez dire si les textbox nom et/ou prenom présentent les "défauts" cités dans le message d'erreur.

Sur mon jeu d'essais pas de souci.

Bonjour à tous,

J'ai modifié mon code avec un simple contrôle conditionnel.

Ce code répond pour le moment à ma demande.

Merci à vous.