Inserer des lignes automatiques

Résolu

kemon -
kemon - 17 janv. 2017 à 09:24

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.

A voir également:

Inserer des lignes automatiques
Insérer video powerpoint - Guide
Insérer signature word - Guide
Comment insérer des points de suite sur word - Guide
Insérer liste déroulante excel - Guide
Recherche automatique des chaînes ne fonctionne pas - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Réponse 2 / 2

kemon

Un grand merci, ca marche niquel!!!
je viens de gagner plusieurs jours de travail!!!

Votre réponse