insértion de ligne

[panzerseb]

Bonjour à tous,

J'ai un fichier de 11000 lignes environ et je souhaiterais insérer une ligne vide entre chaque ligne déjà existantes.
Est ce qu'il existe une manip pour le faire en une fois?
Merci d'avance à tous!

 

[Creepy]

Re : insértion de ligne

Bonjour le Forum, PanzerSeb,

Voici une macro qui fera ce que tu demande

Sub Inser_Ligne()
Dim Boucle As Integer
For Boucle = Feuil1.Cells(1, 1).End(xlDown).Row To 2 Step -1
    Rows(Boucle).Insert Shift:=xlUp
Next Boucle
End Sub

Penser à modifier le "to 2" si ta première ligne n'est pas 1. si ta première ligne est 9 tu mets "to 10"

Penser aussi à remplacer le feuil1 par le nom de ta feuil si ce n'est pas celui là

A+

Creepy

 

[panzerseb]

Re : insértion de ligne

Merci sa marche nikel!