Rendre une liste déroulante visible en fonction de la valeur d'une cellule

D'où vient cette "liste déroulante" ?

AV

Salut,
Barre d'outils Formulaires Contrôle "Zone de liste déroulante"
André

D'où vient cette "liste déroulante" ?

AV

Exemple avec une "zone de liste modifiable" nommée "maZ" et pour des variations
de valeur de A1 de la feuille

Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
With ActiveSheet.Shapes("maZ")
If [zz] = 1 Then .Visible = False Else .Visible = True
End With
End Sub

AV

OK Alain, Merci beaucoup.
Je vois ça dès que possible.
A+
André
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
ekWXO5uxEHA.2752@TK2MSFTNGP11.phx.gbl...
| Exemple avec une "zone de liste modifiable" nommée "maZ" et pour des
variations
| de valeur de A1 de la feuille
|
| Dans le module de la feuille :
| Private Sub Worksheet_Change(ByVal zz As Range)
| If zz.Address <> "$A$1" Then Exit Sub
| With ActiveSheet.Shapes("maZ")
| If [zz] = 1 Then .Visible = False Else .Visible = True
| End With
| End Sub
|
| AV
|
|
|