Bonjour,
Cette fois je rencontre un problème sans doute encore bête et méchant, j'ai récuperer du code via l'enregistreur de macro et je l'ai modifié à mon utilité
J'ai une erreur à la toute première ligne sachant que
wsRSC est une worksheet.
On ne peut pas faire un range d'une plage de cellules sur une worksheet ?
l'erreur me dit que c'est le Select qui ne fonctionne pas.
Cette fois je rencontre un problème sans doute encore bête et méchant, j'ai récuperer du code via l'enregistreur de macro et je l'ai modifié à mon utilité
Code:
wsRSC.Range("C3:C107").Select
ActiveWorkbook.Names.Add Name:="Liste_RSC"
ActiveWorkbook.Names("Liste_RSC").Comment = ""
wsAFF.Range("A2").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="= Liste_RSC"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Selection.AutoFill Destination:=Range("A2:A107"), Type:=xlFillDefault
J'ai une erreur à la toute première ligne sachant que
wsRSC est une worksheet.
Code:
Dim wsRSC As Worksheet
Set wsRSC = classeurWork.Worksheets("RSC")
On ne peut pas faire un range d'une plage de cellules sur une worksheet ?
l'erreur me dit que c'est le Select qui ne fonctionne pas.
Dernière édition: