Macro pour rendre visible ou masquee une liste deroulante

[THIERRY35]

Bonjour,

je cherche par macro à rendre visible ou masquée une liste déroulante de type contrôles de formulaire selon que l'on coche ou pas une case à cocher.

Ci-joint modèle pour rendre ma demande plus explicite.

Merci de votre aide

 

[PMO2]

Re : Macro pour rendre visible ou masquee une liste deroulante

Bonjour,

Une piste avec la démarche suivante

1) copiez le code suivant dans un module Standard

Sub CheckBox_Clic()
Dim SH As Shape
Dim DD As Excel.DropDown
'--- Identification du DropDown ---
For Each SH In ActiveSheet.Shapes
  If SH.FormControlType = xlDropDown Then
    Set DD = ActiveSheet.DropDowns(SH.Name)
    DD.Visible = [a4] 'on affecte avec la valeur de la cellule liée de la CheckBox
    Exit For
  End If
Next SH
End Sub

2) affectez la macro "CheckBox_Clic" à la CheckBox (avec un clic droit sur l'objet CheckBox)