Je cherches à faire une sorte de copier coller d'une partie, quelque ligne dessous avec une macro. Le soucis c'est que j'ai une macro qui me permets d'ajouter des lignes et celles ci sont donc variables. De plus il faudrait que le tableau soit vierge (tel quel ci joint), Je n'ai pas trouvé aucune macro donc aucun code pour l'instant.
@>CR1910: (Salut et bienvenue sur le forum XLD)
Je te propose ce petit bout de code pour insérer une ligne vide dans ton tableau.
Code:
Sub InsererUneLigne()
Dim DerL As Long
DerL = Sheets("FICHE").Cells(Rows.Count, "B").End(xlUp).Row
Sheets("FICHE").Rows(DerL - 1).EntireRow.Insert
End Sub
[Suggestion en passant] Cela pourrait nous simplifier la tâche, d'utiliser Ce lien n'existe plus Cela ouvre un grand nombre de possibilité. Qu'en penses-tu ? [/Suggestion en passant]
@>CR1910: (Salut et bienvenue sur le forum XLD)
Je te propose ce petit bout de code pour insérer une ligne vide dans ton tableau.
Code:
Sub InsererUneLigne()
Dim DerL As Long
DerL = Sheets("FICHE").Cells(Rows.Count, "B").End(xlUp).Row
Sheets("FICHE").Rows(DerL - 1).EntireRow.Insert
End Sub
[Suggestion en passant] Cela pourrait nous simplifier la tâche, d'utiliser Ce lien n'existe plus Cela ouvre un grand nombre de possibilité. Qu'en penses-tu ? [/Suggestion en passant]
Merci mais j'ai déjà un code pour insérer une ligne dans mon tableau. Mon soucis c'est que je n'arrive pas faire un copier coller de tout mon tableau (vide) en dessous. Je ne peux pas avoir une "simple" macro de copier coller par exemple à la ligne 16, car mes lignes de mon tableau peuvent varier et donc être après la ligne 16.
Tout les niveaux de mon tableau sont remplis par des chefs. Il me faudrait une macro sur un bouton me permettant d'insérer un nouveau tableau vierge pour le renseigner de nouveau (différent du 1er)