Bonjour à tous,

Je cherche à créer une liste de choix déroulants, et le morceau de code correspondant me retourne une erreur 1004 alors que je reprend une architecture basique retrouvée sur de nombreux forums. Quelqu'un aurait-il une idée de ce qui cloche ?

Merci d'avance !

Florian

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
        Cells(i, col_type).Select
        With Selection.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=" & Range(Sheets("FMD97").Cells(1, 4), Sheets("FMD97").Cells(1, nb_col_FMD)).Address
'            .IgnoreBlank = True
'            .InCellDropdown = True
'            .InputTitle = ""
'            .ErrorTitle = ""
'            .InputMessage = ""
'            .ErrorMessage = ""
'            .ShowInput = True
'            .ShowError = True
        End With