Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Insérer lignes automatiquement

Insérer lignes automatiquement

3 réponses
Avatar
Gary92
Bonsoir à tous.
Je n'ai pas trouvé (ou mal cherché).
J'ai un tableau simple :
NOM PRENOMS XXXX XXX XXX
NOM PRENOMS XXXX XXX XXX

Sur 800 lignes je voudrais insérer un ligne vide entre chaque ligne
existante, mais dun seul coup.

soit :
NOM PRENOM XXXX XXX XXX

NOM PRENOM XXXX XXX XXX

Je sias le faire -bien sûr- une par une, mais il doit y avoir une soluce
pour le faire sur tout le tableau en 1 seule fois ?
Suis pas très calé en Excel.

Merci de votre aide et pour vos lumières.

Gérard.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Bonsoir,

Une solution....
'----------
Sub jj()
derlg = Sheets("feuil1").Range("a65536").End(3).Row
For i = derlg To 1 Step -1
Range("a" & i & ":iv" & i).Insert Shift:=xlDown
Next
End Sub
'-------------
Salutations
JJ
"Gary92" a écrit dans le message de
news:%
Bonsoir à tous.
Je n'ai pas trouvé (ou mal cherché).
J'ai un tableau simple :
NOM PRENOMS XXXX XXX XXX
NOM PRENOMS XXXX XXX XXX

Sur 800 lignes je voudrais insérer un ligne vide entre chaque ligne
existante, mais dun seul coup.

soit :
NOM PRENOM XXXX XXX XXX

NOM PRENOM XXXX XXX XXX

Je sias le faire -bien sûr- une par une, mais il doit y avoir une soluce
pour le faire sur tout le tableau en 1 seule fois ?
Suis pas très calé en Excel.

Merci de votre aide et pour vos lumières.

Gérard.




Avatar
Benoit1024
Bonjour,

Je cherche un truc équivalent.
J'ai un tableau équivalent mais où le nom peut apparaître plusieurs fois.
J'aimerais donc insérer une ligne après chaque nouveau nom. Je suis clair ??

Monsieur 1 xxx xxx xxx
Monsieur 1 xxx xxx xxx
Monsieur 2 xxx xxx xxx
Monsieur 3 xxx xxx xxx
Monsieur 3 xxx xxx xxx

devrait donner :

Monsieur 1 xxx xxx xxx
Monsieur 1 xxx xxx xxx

Monsieur 2 xxx xxx xxx

Monsieur 3 xxx xxx xxx
Monsieur 3 xxx xxx xxx

Merci à vour ;)


Bonsoir,

Une solution....
'----------
Sub jj()
derlg = Sheets("feuil1").Range("a65536").End(3).Row
For i = derlg To 1 Step -1
Range("a" & i & ":iv" & i).Insert Shift:=xlDown
Next
End Sub
'-------------
Salutations
JJ
"Gary92" a écrit dans le message de
news:%
Bonsoir à tous.
Je n'ai pas trouvé (ou mal cherché).
J'ai un tableau simple :
NOM PRENOMS XXXX XXX XXX
NOM PRENOMS XXXX XXX XXX

Sur 800 lignes je voudrais insérer un ligne vide entre chaque ligne
existante, mais dun seul coup.

soit :
NOM PRENOM XXXX XXX XXX

NOM PRENOM XXXX XXX XXX

Je sias le faire -bien sûr- une par une, mais il doit y avoir une soluce
pour le faire sur tout le tableau en 1 seule fois ?
Suis pas très calé en Excel.

Merci de votre aide et pour vos lumières.

Gérard.









Avatar
JB
Bonjour,

A
1 Nom
2 Monsieur 1 xxx xxx xxx
3 Monsieur 1 xxx xxx xxx
4 Monsieur 2 xxx xxx xxx
5 Monsieur 3 xxx xxx xxx
6 Monsieur 3 xxx xxx xxx

Sub rupture()
[A2].Select
Do While ActiveCell <> ""
mnom = ActiveCell
Do While ActiveCell = mnom
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.EntireRow.Insert
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Cordialement JB