XL 2010 Lier une ComboBox avec un CommandButton

[Slip_Officiel]

Bonjour à tous,

Je suis débutant en VBA et j'essaye de faire quelque chose d'assez simple : Je créer des CommandButton qui ont la fonction d'ouvrir un lien hyperlink mais j'aimerais que le bouton s'affiche uniquement si ma combobox (liste déroulante) affiche une certaine valeur.
J'ai essayé d'utiliser la commande suivante mais cela ne fonction pas :


Private Sub Worksheet_Change(ByVal Target As Range)

Me.CommandButton1.Visible = IIf(Range("ComboBox1").Value = "Ce_Que_Je_Veux", True, False)

End Sub

Si je remplace "ComboBox" par une cellule, mais il ne semble pas prendr ene compte ce qu'affiche la Box.

Merci d'avance à tous

 

[Jacky67]

Bonjour,
Si le "ComboBox" est sur la feuille
Dans ce cas, ce n'est pas "Worksheet_Change" mais "ComboBox1_Change"
Dans le module de la feuille en question.

Private Sub ComboBox1_Change()
Me.CommandButton1.Visible = IIf(Me.ComboBox1.Value = "ce que je veux", True, False)
End Sub

 

[Slip_Officiel]

ReBonjour,

Merci beaucoup Jacky67, tout fonctionne maintenant !