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

Signaler
-
 Loui -
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

9 réponses

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
103
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 57903 internautes nous ont dit merci ce mois-ci

merci! happy
that's a smart idea thank you for sharing

Merci. Très apprécié ton aide.
Super idée! Merci
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 110
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.
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.
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 110
Un petit mode d'emploi à lire et tu mets ces six lignes sur ta feuille ou dans un module.

Ensuite avec alt + F8 tu auras la macro listée et il suffit de l'exécuter.
Messages postés
2966
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
794
Salut le forum

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

Mytå
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 099
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+
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 099
Aurant pour moi, le code présenté par Gbinforme est tout à fait valable, erreur de ma par suite à mauvaise manip.
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 110
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 ?
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.
ok je vais tester ça lundi, ma journée au travail est finie.

Merci beaucoup :)
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.