rendre visible/invisible commandbutton

Lone-wolf

XLDnaute Barbatruc

• 11 Mars 2018

• #2

Bonsoir gille, le Forum

Regarde ci cela te convient, en PJ.

 

Pièces jointes

• Classeur test.xlsm

  24.3 KB · Affichages: 39

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 11 Mars 2018

• #3

bonjour gilles , Wolf

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

VB:

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 11 Mars 2018

• #4

Bonjour laetitia

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Mars 2018

• #5

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 )

VB:

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

 

Vote positif 0 Vote négatif

gilles37

XLDnaute Occasionnel

• 11 Mars 2018

• #6

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

 

Vote positif 0 Vote négatif

gilles37

XLDnaute Occasionnel

• 11 Mars 2018

• #7

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

Merci a vous

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 11 Mars 2018

• #8

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

VB:

 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 ).

 

Pièces jointes

• Bouton(s)Visible(e)ou pas.xlsm

  23.9 KB · Affichages: 35

Vote positif 0 Vote négatif