liste déroulante (formulaire de validation)

[hbc87]

Bonjour,
j'ai un vecteur de 62 noms obtenus suite à des calculs complexes dont je veux utiliser pour faire une liste déroulante.
Cependant j'ai un bug, ça bloque à la ligne Formula1:=vecteur1

Merci de m'aider!

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
dim vecteur1(1 a 62) as variant

Workbooks(File).Worksheets(Feuille).Range("A1").Select
        With Selection.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=vecteur1
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With

[jfontaine]

Bonjour,

Formula1 attend une plage de cellule
dans ton cas, vecteur est une variable tableau

si tu veux utiliser une variable pour gérer la plage tu peux faire comme cela

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Dim rg As Range
 
Set rg = Range("A1:A7")
 
Range("G2").Select
With Selection.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=" & rg.Address
End With