benrazzouk
XLDnaute Nouveau
Bonjour tous le monde
J'ai un souci sur mon petit programme, je souhaite copier une plage de cellules et la coller dans la derniere ligne de mon tableau, et comme à chaque fois je dois rajouter le même tableau avec les mêmes couleurs et les mêmes focrmules, je veux créer un bouton qui m'assurera cette fonction avec une Macro deriére . mais j'ai message d'erreur au lancement de la macro, je crois que sa proviens de la ligne 7, et voila le programme Merci d'avance pour vos répenses
J'ai un souci sur mon petit programme, je souhaite copier une plage de cellules et la coller dans la derniere ligne de mon tableau, et comme à chaque fois je dois rajouter le même tableau avec les mêmes couleurs et les mêmes focrmules, je veux créer un bouton qui m'assurera cette fonction avec une Macro deriére . mais j'ai message d'erreur au lancement de la macro, je crois que sa proviens de la ligne 7, et voila le programme Merci d'avance pour vos répenses
Code:
Public Sub Copy1()
Dim derLig As Long
derLig = 9
While Cells(derLig, 4) <> ""
derLig = derLig + 13
Wend
Worksheets(1).Range("D9:L21").Copy_
Destination:=Worksheets(1).Cells(derLig, 4)
End Sub