Excel: insérer une ligne entre chaque ligne Résolu/Fermé

Question

Bonjour, 

J'ai un document Excel avec plus de 300 lignes d'information. Comment puis-je rajouter une ligne entre chaque, d'un seul coup ?

merci

Configuration: Windows 2003 / Internet Explorer 7.0

CaWa · Accepted Answer

Une autre manip plus simple, tu ajoutes une colonne qui numérote tes lignes (p.ex. de 1 à 300). Ensuite tu numérotes les 300 lignes vides qui sont juste en dessous, toujours dans la même colonne (à nouveau de 1 à 300)

Il ne te reste plus qu'à trier les données en fonction de la colonne qui comporte les numéros, puis à supprimer cette colonne.

C'est du bricolage, mais ça marche

gbinforme · Answer

bonjour

Ton message est succinct : ces lignes vont te servir à quoi ?

- rajouter des données entre les lignes ?

- aérer l'impression ?

- utilises-tu les macros ?

El-sol · Answer

c'est pour rajouter de l'information dans le futur, concernant chaque ligne.
Donc, je veux insérer une ligne sur deux.
Je sais comment faire une macro mais j'ai pas trouvé ce qui pourrait faire ça, j'en connais pas assez.

merci.

gbinforme · Answer

bonjour

Cette simple macro devrait donc te permettre de le faire :

Public Sub ajout_ligne()
Dim lig As Long
For lig = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    Rows(lig + 1).Insert
Next lig
End Sub
Bon test.

El-sol · Answer

excuse mon inexpérience, mais je sais juste créer une macro en faisant les étapes au fur et à mesure. Comment puis-je en faire une en faisant juste copier ce que tu as écrit ? 
et où dois-je ajouter des choses dans ce texte ?
J'imagine que  à la ligne Public Sub ajout_ligne()   je dois mettre des chiffres entre les parenthèses.

Mytå · Answer

Salut le forum

Tu fais Alt+F11, ensuite Insertion > Module et tu y colle le code
donné par gbinforme.

Mytå

El-sol · Answer

ok je vais tester ça lundi, ma journée au travail est finie.

Merci beaucoup :)

lermite222 · Answer

Bonjour tou(re)s
Petit problème avec la macro de  gbinforme  :)
Rows.Count s'incrémente à chaque fois.
pour y remédier, ajouter une variable
Public Sub ajout_ligne()
Dim lig As Long, DerLig As Long
    DerLig = Cells(Rows.Count, 1).End(xlUp).Row -1
    For lig = DerLig To 1 Step -1
        Rows(lig + 1).Insert
    Next lig
End Sub
A+

El-sol · Answer

wow, j'adore l'idée de Cawa, je l'ai essayé et c'est super simple et rapide. Fallait y penser.
Quand j'aurai du temps, je m'amuserai à essayer les autres suggestions. Pour le moment, mettons que mon problème est résolu.

merci.

Excel: insérer une ligne entre chaque ligne

9 réponses

Discussions similaires

Newsletters