cyrikou
XLDnaute Occasionnel
Bonjour,
j'ai créé une macro qui s'active selon un choix dans une combobox placée sur la feuille.
Cette macro permet de créer une liste de choix dans chacune des cellules de la sélection (validation de données).
Voici le code :
Il fonctionne très bien sauf si je me mets dans le menu option "style de référence L1C1".
J'ai un message d'erreur qui apparait : "erreur d'execution 1004, erreur définie par l'application ou par l'objet"
L'erreur est là :
J'aimerai que quelque soit l'utilisateur, le code fonctionne et là je bloque car je n'arrive pas à écrire
Formula1:="=$D$60:$D$71" en référence L1C1.
Si vous avez une idée, un conseil, je vous remercie !
j'ai créé une macro qui s'active selon un choix dans une combobox placée sur la feuille.
Cette macro permet de créer une liste de choix dans chacune des cellules de la sélection (validation de données).
Voici le code :
VB:
Range(Cells(10, 5), Cells(37, 44)).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$D$60:$D$71"
.IgnoreBlank = True
.InCellDropdown = True
.InputMessage = "Veuillez saisir les notes de 1 à 10 !"
.ErrorMessage = "Mauvaise saisie ! Veuillez recommencer !"
.ShowInput = True
.ShowError = True
End WithIl fonctionne très bien sauf si je me mets dans le menu option "style de référence L1C1".
J'ai un message d'erreur qui apparait : "erreur d'execution 1004, erreur définie par l'application ou par l'objet"
L'erreur est là :
Code:
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$D$60:$D$71"J'aimerai que quelque soit l'utilisateur, le code fonctionne et là je bloque car je n'arrive pas à écrire
Formula1:="=$D$60:$D$71" en référence L1C1.
Si vous avez une idée, un conseil, je vous remercie !