Bon voila, j'ai besoin de créer un menu déroulant dans des cellules et donc je me suis dit je vais faire ca sous excel et ensuite faire le copier/coller de la macro. Le seul probleme c'est que le résultat ne tourne pas.
En clair la macro créer par excel ne marche pas....
Bon alors la tout simple, j'ai aussi enregistré le remplissage des cases.
Donc je mets les chiffres de 1 a 7 dans les cases A1 à A7 et dans A8 je crée un menu déroulant qui prend comme argument les colonnes précédentes.
Ok ca marche impec !
Ensuite je tente de faire la meme chose avec l'enregistrement de la macro et la pu rien
erreur d'execution 1004 => erreur définie par l'application ou par l'objet
code :
ActiveCell.FormulaR1C1 = "1"
Range("A2" ).Select
ActiveCell.FormulaR1C1 = "2"
Range("A3" ).Select
ActiveCell.FormulaR1C1 = "3"
Range("A4" ).Select
ActiveCell.FormulaR1C1 = "4"
Range("A5" ).Select
ActiveCell.FormulaR1C1 = "5"
Range("A6" ).Select
ActiveCell.FormulaR1C1 = "6"
Range("A7" ).Select
ActiveCell.FormulaR1C1 = "7"
Range("A8" ).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=L1C1:L7C1"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
|
Voila merci pour les aideurs et les aideurs des aideurs !