Inserer des lignes automatiques
Résolu
kemon
-
kemon -
kemon -
Bonjour,
Mon problème n'est, j'en suis sur, pas très compliqué mais étant que je n'ai jamais appris a faire de la macro, je galère.
Voici ma problématique:
J'ai un tableau excel rempli de données avec plus de 4000 lignes. Mon but est d'ajouter 6 lignes vierges entre chaque ligne de données.
Comment puis-je l'automatiser?
Grand merci par avance.
Antoine.
Mon problème n'est, j'en suis sur, pas très compliqué mais étant que je n'ai jamais appris a faire de la macro, je galère.
Voici ma problématique:
J'ai un tableau excel rempli de données avec plus de 4000 lignes. Mon but est d'ajouter 6 lignes vierges entre chaque ligne de données.
Comment puis-je l'automatiser?
Grand merci par avance.
Antoine.
2 réponses
-
Bonjour,
adaptez nom de feuilleSub Insert_Ligne() Application.ScreenUpdating = False 'fige ecran With Worksheets("feuil1") derlig = .Range("A" & Rows.Count).End(xlUp).Row 'derniere cellule non vide colonne A 'boucle de balayage pour insertion lignes For N = derlig To 2 Step -1 .Rows(N & ":" & N + 5).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Next N End With Application.ScreenUpdating = True 'defige ecran End Sub -
