Forcer la selection dans une combobox

Bonjour,

Pourriez vous me dire comment forcer une sélection dans une combobox avant toutes autres saisi dans un UserForm

Amicalement,

Jean-Marie

Bonjour Jean-marie, bonjour le forum,

Tu pourrais interdire l'accès à tous les autres contrôles (Enabled = False) ou les masquer (Visible=False) tant qu'un choix n'a pas été fait.

Private Sub ComboBox1_Change()
Dim CTRL As Control

If Me.ComboBox1.Value = "" Then
    For Each CTRL In Me.Controls
        If CTRL.Name <> "ComboBox1" Then CTRL.Visible = False
    Next CTRL
Else
    For Each CTRL In Me.Controls
        If CTRL.Name <> "ComboBox1" Then CTRL.Visible = True
    Next CTRL
End If
End Sub

Bonjour ThauThème,

Désolé cela ne fonctionne pas il me mets erreur.

Amicalement,

Jean-Marie

Bonjour Jean-Marie, bonjour le forum,

Mais si ça Fonctionne !... Il suffit d'adapter et pour adapter il fallait un fichier...

Bonjour ThauThème,

Effectivement je suis trop bête enfin surtout débutant.

Pourrais t-on encore y ajouter un msgbox pour signaler qu'il faut sélectionner un nom avant tout?

Amicalement,

Jean-Marie

Bonjour Djodjo, bonjour le forum,

En première ligne de l'initialisation de l'UserForm :

MsgBox "Veuillez renseigner le champ Nom !"

à adapter je ne me rapelle plus... Mais à la longue ce genre de message est gavant car il donne l'impression que tu t'adresses à des débiles...

Bonjour ThauThème,

Effectivement, tu as raison.

Je te remercie et je mets ce sujet en résolu.

Merci beaucoup,

Jean-Marie