Hello le forum,

J'essaye de faire une liste de validation de données qui depend d'une plage variable.

Donc je sélectionne mon range

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
    Dim QuotList As Range
 
        Range("L5").Select
        Range(Selection, Selection.End(xlDown)).Select
        MsgBox (Selection.Address)
        Set QuotList = Range(Selection.Address)
Puis j'essaye d'appliquer cette sélection pour la liste des valeurs en C9 :

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
               Range("C9").Select
        With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=QuotList"
        .IgnoreBlank = False
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
 
    End With
J'ai essayé pleins de variantes trouvées sur le net mais je n'y arrive pas.

Quelqu'un aurait-il une idée ?

Merci d'avance