Problème ValidateList VBA
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:
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 |
[XL-2007] Problème ValidateList VBA
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:
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 |
