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
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 Dim QuotList As Range Range("L5").Select Range(Selection, Selection.End(xlDown)).Select MsgBox (Selection.Address) Set QuotList = Range(Selection.Address)
J'ai essayé pleins de variantes trouvées sur le net mais je n'y arrive pas.
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
Quelqu'un aurait-il une idée ?
Merci d'avance
Partager