Discussion :

[comme de bien entendu]

Bonjour,
Je souhaitais faire une liste de validation avec une plage de données obtenue dynamiquement mais j'ai une erreur sur la création de la liste de valiatation.
Voici le code ci dessous :

L'erreur est sur le .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=INDIRECT(" & varPN & ")"

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
22
23
24
25
26
27
28
29
30
31
32
Sub LVAL()
Dim varPN As String
Dim Nom As Name
 
 
For Each Nom In ThisWorkbook.Names
    If Nom.Name = "EQLAN008" Then Nom.delete
Next Nom
 
varPN = "EQLAN008"
 
 
ThisWorkbook.Names.Add Name:=varPN, RefersToR1C1:= _
        "='Controleur-Site'!R1C:R2C2"
 
 
 
Range("C5").Select
    With Selection.Validation
        .delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=INDIRECT(" & varPN & ")"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
   End Sub

Merci de vos idées.

[Theze]

Bonjour,

Ta plage est mal définie. Pour une liste de validation, la plage doit être soit en ligne soit en colonne et ta plage est sur plusieurs lignes et colonnes. Ta référence :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=R1C:R2C2

concerne la ligne 1, la colonne de la cellule active (R1C) puis la ligne 2 et la colonne 2 (R2C2) donc ça va marcher si la cellule active est en colonne B sinon tu aura plusieurs colonnes. Je pense qu'il te faut construire ta référence en définissant bien la plage donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=R1C2:R2C2

La fonction Indirect n'est pas utile, il te suffit d'inscrire "=" & NomDeLaVariable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=" & varPN

Hervé.