Discussion :

[Kraster]

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 )

[QuestVba]

Bonjour,

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

[Kraster]

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

[Philippe Tulliez]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Kraster]

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

[Philippe Tulliez]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Kraster]

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

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Kraster]

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