Macro pour ajout de lignes

Bjr

je voudrai faire une macro VBA qui :

ajoute 3 lignes toutes les 50 lignes

et ceci sur 1 tableau trés gros (800.000 lignes)

merci

Cdt

Bonjour,

quel est l’intérêt d'une telle macro?

Pourquoi ne pas créer une mise en forme des 53 premières lignes et ensuite utiliser l'outil "copier la mise en forme" pour le coller sur les 800.000 lignes...

En sachant qu'au fur et a mesure vous copierez tous les lignes déjà mises en forme et ainsi cela ira relativement vite.

Cela évite de créer une macro qui ne servira qu'une fois...

Ou alors je n'ai pas compris la demande

Bonjour,

Si les données commencent en A2 et pour insérer des lignes vides

Sub InsertLignes()
Dim Lg&, i&
    Application.ScreenUpdating = False
    Lg = Range("a" & Rows.Count).End(xlUp).Row  'à régler
        Application.CutCopyMode = False
    For i = 52 To Lg + Lg / 50 * 3 Step 53      'à régler
        Rows(i).Resize(3, 1).EntireRow.Insert
    Next i
End Sub

Amicalement

Claude

Bjr

merci pour vos réponses, ça marche

Cdt

Jacques

si tu repasse par là,

n'oublie pas la petite formalité

à+.... Claude