Bonjour,
je chercher actuellement à automatiser la création de liste de choix, je me suis inspiré de l'enregistreur de macro, mais j'ai une erreur que je ne parviens absolument pas à résoudre ...
l'erreur survient à la ligne
et je vous avoue que je ne vois pas d'ou cela peut venir ... puisque meme en relançant la macro en elle meme, ça bug tout autant !
l'erreur est :" erreur définie par l'application ou par l'objet " (1004)
des idées ?
Merci de m'avoir lut,
Arnaoke
je chercher actuellement à automatiser la création de liste de choix, je me suis inspiré de l'enregistreur de macro, mais j'ai une erreur que je ne parviens absolument pas à résoudre ...
Code:
For ligne = 8 To ActiveSheet.Range("C65536").End(xlUp).Row
For colonne = 27 To 38
If ActiveSheet.Cells(colonne, ligne).Interior.ColorIndex <> 16 Then
Range("AA8:AL" & Range("C65536").End(xlUp).Row).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=L6C58:L7C58"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
Next colonne
Next lignel'erreur survient à la ligne
Code:
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=L6C58:L7C58"et je vous avoue que je ne vois pas d'ou cela peut venir ... puisque meme en relançant la macro en elle meme, ça bug tout autant !
l'erreur est :" erreur définie par l'application ou par l'objet " (1004)
des idées ?
Merci de m'avoir lut,
Arnaoke
Dernière édition: