Bonjour ;

Mon probléme est d'insérer par macros une liste déroulante d'une liste sur un colonne (dont j'ai fait des filtres sur des colonnes dans le tableau avant) .

je veux que la liste soit juste avec les cellules visibles : voila mon code qui ne marche pas au niveau de validation des données ,il reconnait pas la variable :


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 A()
 
 
Sheets("OUTILS").Range("A2:E300").AutoFilter Field:=1, Criteria1:=Sheets("DEV").Range("D23").Value
Sheets("OUTILS").Range("A2:E300").AutoFilter Field:=2, Criteria1:="<=" & Sheets("DEV").Range("D14").Value
Sheets("OUTILS ").Range("A2:E300").AutoFilter Field:=3, Criteria1:="<=" & Sheets("DEV").Range("D14").Value
Dim list As Range
Set list = Range(Range("E3"), Range("E3").End(xlDown)).SpecialCells(xlCellTypeVisible)
list.Select
 
Sheets("DEV").Select
Range("F23").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
 xlBetween, Formula1:="=" & list[/B]
End With
 
Sheets("OUTILS").AutoFilterMode = False
 
End Sub
Merci d'avance