une possibilité Sub test() For i = 2 To Range("a65536").End(xlUp).Row * 2 Step 2 Rows(i).Insert Next End Sub a+ rural thierry
"Mike" a écrit dans le message de news:
Bonjour,
Comment peut-on insérer des lignes dans un fichier excel?
Par exemple, on a un fichier de 500 lignes et on a besoin d'insérer une ligne vide après chaque ligne contenant des données.
Ceci de façon à obtenir un fichier de 1000 lignes dont une ligne sur deux est vide.
Merci d'avance pour vos réponses
Michel
Jacquouille
Bonsoir Thierry Et s'il y a déjà une ligne blanche qui traîne quelque part , tu crois pas qu'il va se gourrer, son PC ? Tu n'eus pas dû tester si la ligne n'est pas vide, puis lui en coller une (vide) ? Mille pardon d'avoir péché par impertinence, mon Père.
Jacques, critiqueur mais pas payeur Jacques, spécialiste des lignes blanches.
une possibilité Sub test() For i = 2 To Range("a65536").End(xlUp).Row * 2 Step 2 Rows(i).Insert Next End Sub a+ rural thierry
"Mike" a écrit dans le message de news:
Bonjour,
Comment peut-on insérer des lignes dans un fichier excel?
Par exemple, on a un fichier de 500 lignes et on a besoin d'insérer une ligne vide après chaque ligne contenant des données.
Ceci de façon à obtenir un fichier de 1000 lignes dont une ligne sur deux est vide.
Merci d'avance pour vos réponses
Michel
Bonsoir Thierry
Et s'il y a déjà une ligne blanche qui traîne quelque part , tu crois pas
qu'il va se gourrer, son PC ?
Tu n'eus pas dû tester si la ligne n'est pas vide, puis lui en coller une
(vide) ?
Mille pardon d'avoir péché par impertinence, mon Père.
Jacques, critiqueur mais pas payeur
Jacques, spécialiste des lignes blanches.
Bonsoir Thierry Et s'il y a déjà une ligne blanche qui traîne quelque part , tu crois pas qu'il va se gourrer, son PC ? Tu n'eus pas dû tester si la ligne n'est pas vide, puis lui en coller une (vide) ? Mille pardon d'avoir péché par impertinence, mon Père.
Jacques, critiqueur mais pas payeur Jacques, spécialiste des lignes blanches.