Discussion :

[FlorianM]

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

[FlorianM]

Problème résolu, il n'accepte pas que l'on fasse référence à une autre page.
Il suffit de créer un nom :

Code :

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

1
2
3
4
5
6
ActiveWorkbook.Names.Add Name:="List_FM", RefersToR1C1:="=FMD97!R1C4:R1C" & nb_col_FMD
        Cells(i, col_type).Select
        With Selection.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=List_FM"
        End with