Signaler

Inserer des lignes automatiques

Posez votre question kemon - Dernière réponse le 13 janv. 2017 à 18:53 par f894009
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.
Afficher la suite 
Utile
+0
moins plus
Bonjour,

adaptez nom de feuille

Sub 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
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !