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.