rendre visible/invisible commandbutton

[gilles37]

Bonjour a tous,

je souhaite a l'aide d'un combobox (oui/non) rendre visible :
- un commandbutton1 si "non" choisi et donc commandbutton3 invisible
-un commandbutton3 si "oui"choisi et donc commandbutton1 invisible
dans tous les cas je ne dois voir un seul commandbutton en fonction du choix.
J'arrive seulement a rendre visible un seul commandbutton et il ne disparait pas si choix modifier.
Pouvez-vous m'aider?

Merci pour votre aide.

slt

 

[Lone-wolf]

Bonsoir gille, le Forum

Regarde ci cela te convient, en PJ.

 

[laetitia90]

bonjour gilles , Wolf🙂🙂

en simplifiant un peu !!! avec le fichier de l' ami Wolf😉

Private Sub ComboBox1_Click()
CommandButton1.Visible = ComboBox1 = "Oui"
CommandButton3.Visible = ComboBox1 = "Non"
End Sub

 

[Lone-wolf]

Bonjour laetitia 🙂

 

[Staple1600]

Bonjour le fil, le forum (Loup Solitaire, leti 😉 )

En espérant qu'il s'agisse bien d'un userform
(ce que n'a pas précisé le demandeur...)

Donc comme j'ai pondu, je poste (même si je préfère le code limpide de leti 😉)

Private Sub ComboBox1_Change()
CommandButton1.Visible = IIf(ComboBox1.Value = "NON", True, False)
CommandButton3.Visible = IIf(ComboBox1.Value = "OUI", True, False)
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = Array("OUI", "NON")
CommandButton1.Visible = False
CommandButton3.Visible = False
End Sub

 

[gilles37]

Bonjour Lone-wolf, Laétitia90, le forum

Merci pour votre aide, j'ai omis de vous dire que cela est sur un userform.🙂
J'applique la formule pour l'userform mais cela ne fonctionne pas 🙁


merci

 

[gilles37]

Bonjour
Merci Staple1600, merci a tous
Tu avais bien vu pour l'userform.

Merci a vous😉

 

[Si...]

Bon_soir

Sans If et encore moins de IIf …

Je ne le dirai jamais assez : utiliser les propriétés des contrôles permet de s'éviter des lignes de programmation.

Quand il y en a peu cela peut s'avérer superflu mais c'est une bonne habitude que l'on n'acquiert pas pour les autres cas (les plus nombreux !) .

Les boutons étant initialisés avec Visible à False , ici, ce code peut suffire

 Private Sub UserForm_Initialize()
  ComboBox1.List = Array("OUI", "NON")
End Sub

Private Sub Combobox1_Change()
  CommandButton1.Visible = ComboBox1 = "NON"
  CommandButton3.Visible = ComboBox1 = "OUI"
End Sub

Voir le fichier joint avec un autre raccourci (CheckBox plus court que OptionButton 😵).