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 Insertion de lignes

Insertion de lignes

4 réponses
Avatar
Christian
Bonjour =E0 tous
J'ai une base de donn=E9es de +/-500 lignes.
Je dois =E0 chaque ligne inserer 2 nouvelles lignes vides.
j'ai bien commenc=E9 manuellement, mais cela est un travail=20
de titan.
Via l'enregistreur de macro, je ne m'en sort pas.
Qui pourrait m'aider =E0 r=E9soudre mon petit probl=E8me.
Merci d'avance
Christian
Signaler un problème avec ce contenu

4 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
isabelle
bonjour Christian,

voici un exemple

Sub Macro1()
For i = 500 To 1 Step -1
Rows(i & ":" & i + 1).Insert Shift:=xlDown
Next
End Sub

isabelle


Bonjour à tous
J'ai une base de données de +/-500 lignes.
Je dois à chaque ligne inserer 2 nouvelles lignes vides.
j'ai bien commencé manuellement, mais cela est un travail
de titan.
Via l'enregistreur de macro, je ne m'en sort pas.
Qui pourrait m'aider à résoudre mon petit problème.
Merci d'avance
Christian


Avatar
Christian
Merci Isabelle
Je suppose que pour inserer 2 lignes, je dois remplacer
le chiffre 1 par 2.
Je vais mettre en pratique.
Christian

-----Message d'origine-----
bonjour Christian,

voici un exemple

Sub Macro1()
For i = 500 To 1 Step -1
Rows(i & ":" & i + 1).Insert Shift:=xlDown
Next
End Sub

isabelle


Bonjour à tous
J'ai une base de données de +/-500 lignes.
Je dois à chaque ligne inserer 2 nouvelles lignes
vides.


j'ai bien commencé manuellement, mais cela est un
travail


de titan.
Via l'enregistreur de macro, je ne m'en sort pas.
Qui pourrait m'aider à résoudre mon petit problème.
Merci d'avance
Christian
.





Avatar
isabelle
non, Christian, puisque pour i = 500 Rows(i & ":" & i + 1)equivaut à
faire la sélection de
Rows("500:501") et donc de deux lignes.

isabelle


Merci Isabelle
Je suppose que pour inserer 2 lignes, je dois remplacer
le chiffre 1 par 2.
Je vais mettre en pratique.
Christian

-----Message d'origine-----
bonjour Christian,

voici un exemple

Sub Macro1()
For i = 500 To 1 Step -1
Rows(i & ":" & i + 1).Insert Shift:=xlDown
Next
End Sub

isabelle


Bonjour à tous
J'ai une base de données de +/-500 lignes.
Je dois à chaque ligne inserer 2 nouvelles lignes
vides.


j'ai bien commencé manuellement, mais cela est un
travail


de titan.
Via l'enregistreur de macro, je ne m'en sort pas.
Qui pourrait m'aider à résoudre mon petit problème.
Merci d'avance
Christian
.







Avatar
Christian
Merci beaucoup Isabelle
-----Message d'origine-----
non, Christian, puisque pour i = 500 Rows(i & ":" & i +
1)equivaut à

faire la sélection de
Rows("500:501") et donc de deux lignes.

isabelle


Merci Isabelle
Je suppose que pour inserer 2 lignes, je dois remplacer
le chiffre 1 par 2.
Je vais mettre en pratique.
Christian

-----Message d'origine-----
bonjour Christian,

voici un exemple

Sub Macro1()
For i = 500 To 1 Step -1
Rows(i & ":" & i + 1).Insert Shift:=xlDown
Next
End Sub

isabelle


Bonjour à tous
J'ai une base de données de +/-500 lignes.
Je dois à chaque ligne inserer 2 nouvelles lignes
vides.


j'ai bien commencé manuellement, mais cela est un
travail


de titan.
Via l'enregistreur de macro, je ne m'en sort pas.
Qui pourrait m'aider à résoudre mon petit problème.
Merci d'avance
Christian
.


.