Discussion :

[Sylvain84000]

Bonjour,

j'ai trouvé des dizaines de posts sur le web à propos de problèmes similaires au mien, mais jusqu'à présent, rien ne m'a permis de le résoudre... Mon faible niveau en vba y est probablement pour quelque chose.

Voilà mon code:

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
Set Cel1 = Range("C7")
Dim i As Integer
 
For i = 0 To 30 Step 3
If Cel1.Offset(i, 2) = "Equip. Dest." Or Cel1.Offset(i, 2) = "Equipement" Then
If Cel1.Offset(i + 1, 2) = Empty Then
Cel1.Offset(i + 1, 2).Clear
Cel1.Offset(i + 1, 2).Select
        With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=Range(Worksheets("BaseDeDonnees").Cells(2, 26), Worksheets("BaseDeDonnees").Cells(2, 26).End(xlDown))"
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
       End With
Range("A1:AA200").Select
Cel1.Offset(i + 1, 2).Select
End If
End If
Next

Mon but est de faire afficher des menus déroulants dans les cases en dessous de "Equip. Dest." ou "Destination". Le contenu du menu déroulant doit être constitué de la plage allant sur la cellule Z2 de la page "BaseDeDonnees" à la dernière cellule non vide de cette colonne.

La ligne qui pose problème est lorsque je déclare ma liste de validation. J'ai essayé avec Address à la fin, avec et sans les "" , mais je n'y arrive pas.

Si quelqu'un pouvait m'aider, et surtout m'expliquer ce que je fais mal, ce serait génial.

Par avance merci.

[parmi]

Je pense que tu vas devoir nommer la plage de référence et l'utiliser dans ta macro. On ne peut faire référence à une autre feuille dans une liste de validation.

[Sylvain84000]

J'ai essayé aussi, mais là encore, j'ai eu des "erreur 401" à chaque tentative...

Et le problème est toujours localisé au niveau de ma déclaration de liste

Euhh... Et puis je crois qu'on peut faire référence à une autre feuille sans problème; je l'ai fait à un autre endroit de mon code et cela fonctionne très bien:

Code :

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

Cel3.Offset(i + 1).Validation.Add Type:=xlValidateList, Operator:=xlBetween, Formula1:="=BaseDeDonnees!$A$2:$A$16"

[parmi]

Si cette partie de code est dans la feuille BaseDeDonnees, ça se peut, mais autrement, ça ne devrait pas fonctionner.
Tu peux l'essayer manuellement et tu verras...

Donc, tu crées des noms pour tes plages et tu t'en sers dans le code de Validation.

Dans le code qui suit, je fais référence à une liste qui porte le nom "Liste" et qui se trouve sur Feuil2. Ça fonctionne très bien comme ça.

Code :

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

1
2
3
4
With Sheets("Feuil1").Range("A1:A10").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=Liste"
End With

[Sylvain84000]

Merci quand même Parmi, mais j'ai finalement trouvé ma solution. Je la poste car cela peut servir à quelqu'un:

Code :

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

1
2
3
4
5
6
Dim plage As String
plage = "=indirect(""BaseDeDonnees!" & Worksheets("BaseDeDonnees").Range("Z2:Z" & Worksheets("BaseDeDonnees").Range("Z200").End(xlUp).Row).Address & """)"
 
....
 
Selection.Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=plage

Voilà cela fonctionne parfaitement. Il me manquait l'utilisation de la méthode "Indirect" dans ma plage, car celle-ci se trouve sur une autre feuille de calcul. La syntaxe particulière de cette ligne me manquait également.