Une condition pour deux ComboBox

[Etienne2323]

Bonjour le forum,
j'aurais besoin d'un petit coup de main pour une question qui me semble toute bête mais que je n'arrive pas résoudre. Voici la situation.

Dans un UserForm, j'ai les combobox1, combobox2 et combobox3. Tout dépendant du choix fait dans le 1, les 2 et 3 s'affichent ou non. S'ils s'affichent, le but est que l'utilisateur choisisse soit le 2 ou soit le 3 mais pas les deux. S'il choisi les deux, j'aimerais afficher un msgbox pour leur dire qu'il ne fallait pas qu'il fasse ça et ensuite, remettre les deux combobox, soit 2 et 3, à un .text vide mais que les items ne s'effacent pas dans mes combobox.

C'est faisable ? Peut-être je ne sais simplement pas où mettre le code ...

Autre info, je fais afficher les combobox en passant par

Private Sub ComboBox1_Change()

En vous remerciant !

Cordialement,

Étienne

 

[kjin]

Re : Une condition pour deux ComboBox

Bonsoir,
Pourquoi un message et ne pas simplement désactiver l'une des combos si l'autre est activée
Reste ensuite à voir comment tu les réactives, mais sans ton code...

Private Sub ComboBox1_Change()
ComboBox2.Enabled = True
ComboBox3.Enabled = True
End Sub

Private Sub ComboBox2_Change()
ComboBox3.Enabled = False
End Sub

Private Sub ComboBox3_Change()
ComboBox2.Enabled = False
End Sub

A+
kjin

 

[Etienne2323]

Re : Une condition pour deux ComboBox

Bonjour à vous deux,
merci pour vos réponses rapides. J'ai compris ou était mon erreur avec votre exemple Jean-Marcel. Je ne mettais pas les instructions au bon endroit. Pour le bon combobox. En vous remerciant encore !

Joyeuses fêtes !

Étienne

 

[xstier]

Re : Une condition pour deux ComboBox

Bonjour,

grace à la propriété visible voir exemple ci dessous
en supposant que la 1ère Combo contienne 2 valeurs afficher et ne pas afficher à adapter en fonction des besoins

Private Sub ComboBox1_Change()

If (ComboBox1.Value = "afficher") Then
ComboBox2.Visible = True
ComboBox3.Visible = True
Else
ComboBox2.Visible = False
ComboBox3.Visible = False

End If
End Sub

Xavier