liste déroule paramétée avec une zone variable
bonjour,
une petite question car je n'ai pas trouvé la réponse dans le forum,
il s'agit de definir une liste déroulante dans une cellule dont les valeurs se trouvent dans une autre colonne, de la sorte les utilisateurs pouront faire évoluer ces valeur sans avoir à toucher au code de la liste.
voici le code que j'essai de mettre au point en définissant la zone de valeurs dans la variable objet Range zone
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Sub liste_1()
'
Dim zone As Range
Set zone = Worksheets(1).Range(Cells(2, 3), Cells(15, 3))
Range("A1").Select
'
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=zone
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub |
et bien évidement à l'éxécution ça hurle,
je voudrais savoir comment implémenter le code derriére Formula1:
j' ai essaué de coder la zone en dur, ça marche, mais je veux pouvoir utiliser la variable zone
merci à celui qui connait la bonne réponse
Patnel
