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 : Sélectionner tout - Visualiser dans une fenêtre à part
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