XL 2010 copier Coller VBA

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;)

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
 

benrazzouk

XLDnaute Nouveau
oui sa fonctionne. merci pour votre aide :) une derniere chose, est ce que c'est possible que les deux boutons soient fixe au millieu de la page, comme sa même si je defile ils seront toujour visible? je veux pas les mettre dans la barre d'outil car apres je vais les voir sur tous les fichier excel
 

Discussions similaires

Statistiques des forums

Discussions
298 001
Messages
1 965 027
Membres
200 809
dernier inscrit
Ksiba