Bonjour tous,
J'essaye de copier coller les deux dernières lignes de mon tableau tout en gardant la mise en page et la liste déroulante (A4) mais je n'y arrive pas.
Ce que je veux copier coller au final se sont les lignes 3 et 4 pour qu'a chaque nouveau prestataire cela recrée la même chose.
Je sais que cela a été abordé plusieurs fois mais je n'arrive pas à créer une macro simple qui fait ca et à l'adapter à mon classeur.
J’espère que vous pourrez m'aider et comme ça je pourrai le réutiliser et l'adapter sur mes autres classeurs.
J'ai essayer avec enregistrer macro et ca :
Et clairement ca ne va pas car ca ne prend qu'une ligne et en plus ca me la colle toujours à des endroits différents. J'ai essayé d'adapter mais étant débutant je bloc
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Sub ajout_liste_presta() Range("A" & Rows.Count).End(xlUp).Offset(1).Select 'faire une nouvelle ligne ActiveCell.EntireRow.Insert Shift:=xlDown 'copier la ligne du dessus ActiveCell.Offset(-1, 0).EntireRow.Copy Cells(ActiveCell.Row, 1) On Error Resume Next 'effacer le contenu de la nouvelle ligne mais garder la forme ActiveCell.EntireRow.ClearContents End Sub
Partager