Macro : boucle pour insérer des lignes

[rodrigues89]

Bonjour tout le monde,

J'ai besoin de l'aide d'une âme charitable. J'ai un tableau somme toute assez normal et il faut qu'après chaque lignes de ce tableau j'insère 4 lignes vierges. le problème c'est que le tableau fait 613 lignes et que je n'arrive pas à mettre au point une macro qui le fasse pour toutes les lignes.

Ci joint un petit fichier d'exemple. merci d'avance à tout ceux qui pourraient m'aider

Cordialement,

Rodrigues

 

[rodrigues89]

Re : Macro : boucle pour insérer des lignes

Petit up,

Personne ne peut m'aider ?
je suis vraiment bloqué.
Merci d'avance

 

[Paritec]

Re : Macro : boucle pour insérer des lignes

Bonjour Rodrigues le forum
j'ouvre ton fichier je fais la macro et dans 10 minutes tu as cela
a+
papou

 

[tototiti2008]

Re : Macro : boucle pour insérer des lignes

Bonjour rodrigues, Bonjour Paritec,

un essai

Sub Test()
    For i = 614 To 3 Step -1
        Range(i & ":" & i + 3).EntireRow.Insert
    Next i
End Sub

 

[Paritec]

Re : Macro : boucle pour insérer des lignes

Re bonjour Rodrigues le forum
voilà ton fichier en retour tu cliques sur le bouton et tu me redis si c'est bon
a+
papou
EDIT Bonjour Tototiti

 

[rodrigues89]

Re : Macro : boucle pour insérer des lignes

Un grand merci a Paritec et tototiti2008 ça fonctionne parfaitement !

Bonne journée