Afficher/Masquer une Combobox en fonction du contenu d'une cellule

Bonjour à tous,

Je suis débutant en VBA et mon niveau actuel ne me permet pas de résoudre mon problème que je vais vous exposer :

Je dois afficher ou masquer la Combobox1 en fonction du contenu des cellules (par exemple) B6 et C6, donc si B6 = 1 et C6 = 1 <=> Afficher la combobox sinon elle reste masquée.

J'avais déjà rencontré un problème avec les Combobox mais il a été résolu avec l'aide des experts de ce remarquable forum )))) alors je vous remercie d'avance tout le monde de votre aide :))

Bonjour,

Tu dois regarder dans la propriété 'Visible'.

Oui QuestVbA, j'ai essayé avec .visible, mais ou dois-je mettre l'instruction "if then" !!!?? je viens juste de commencer une formation VBA (vidéo) chez moi alors je ne maitrise pas grand-chose, si vous voulez bien m'envoyer un fichier .xls je vous serais très reconnaissant )))

Bonjour,

Citation:

---

ou dois-je mettre l'instruction "if then" !!!??

---

La valeur de la propriété Visible étant une valeur booléenne, il est parfaitement inutile de passer par une formule conditionnelle. Il faut simplement donner comme valeur à cette propriété le résultat du test logique.
Exemple pour une liste déroulante d'un UserForm nommée ComboBox1

Code:

---

1 2 3 4 5

Private Sub UserForm_Initialize() With ThisWorkbook.Worksheets("Feuil1") Me.ComboBox1.Visible = Not (.Range("B6") = 1 And .Range("C6") = 1) End With End Sub

---

Merci Philippe, mais s'il n'y a pas de Userform et la Combobox est sur Feuil1 !!?

Bonjour,

Citation:

---

mais s'il n'y a pas de Userform et la Combobox est sur Feuil1 !!?

---

C'était mieux d'indiquer toute de suite dans la question de quel contrôle il s'agissait
S'il s'agit d'un contrôle ActiveX, voici la procédure à placer dans le module de la feuille où le ComboBox se trouve.
Le nom du contrôle doit bien entendu être modifié (ici ComboBox21)

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) With ActiveSheet.OLEObjects("Combobox21") .Visible = Me.Range("B6").Value = 1 And Me.Range("C6").Value = 1 End With End Sub

---

Merci Philippe mais ça ne marche toujours pas, ça me donne une erreur : "Impossible de lire la propriété OLEObjects de la classe Worksheet" :(

Bonjour,
Si tu avais indiqué tout de suite que c'était un contrôle formulaire on aurait gagné beaucoup de temps

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) With ActiveSheet.Shapes("Combobox21") .Visible = Me.Range("B6").Value = 1 And Me.Range("C6").Value = 1 End With End Sub

---

Je vous remercie infiniment Philippe, et désolé pour votre précieux temps, problème résolu. Merci encore une fois )))))))))))))