Comment insérer 10 lignes vides après chaque ligne d'un tableau Excel

Pierrot93

XLDnaute Barbatruc

• 9 Juillet 2010

• #2

Re : Comment insérer 10 lignes vides après chaque ligne d'un tableau Excel

Bonjour Pierre,

essaye peut être ainsi, se base sur la colonne A pour déterminer la dernière ligne dont la cellule est renseignée :

Code:

Option Explicit
Sub test()
Dim i As Long, j As Byte
Application.ScreenUpdating = False
For i = Range("A65536").End(xlUp).Row To 2 Step -1
    For j = 1 To 10
        Rows(i).Insert
    Next j
Next i
Application.ScreenUpdating = True
End Sub

bonne journée
@+

Edition : modifié le "For i = Range("A65536").End(xlUp).Row To 1 Step -1" par un 2 pour éviter d'insérer des lignes avant la 1ère...

 

Dernière édition: 9 Juillet 2010

Vote positif 0 Vote négatif

P

Pit44

Guest

• 9 Juillet 2010

• #3

Re : Comment insérer 10 lignes vides après chaque ligne d'un tableau Excel

Je vais essayer ça tout de suite..

Merci beaucoup!

Pit44

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 9 Juillet 2010

• #4

Re : Comment insérer 10 lignes vides après chaque ligne d'un tableau Excel

Bonjour,

un petit essai :

Code:

Sub Insere_10_Lignes()
Dim DerLig As Long, I As Long
Application.ScreenUpdating = False
DerLig = Range("A65536").End(xlUp).Row
For I = DerLig To 2 Step -1
    Rows(I).Resize(10).Insert
Next I
End Sub

Pfft, un peu à la bourre, bonjour Pierrot 🙂

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Juillet 2010

• #5

Re : Comment insérer 10 lignes vides après chaque ligne d'un tableau Excel

Re, bonjour Hubert🙂

Aarf bien vu le "resize", évite la 2ème boucle....

 

Vote positif 0 Vote négatif

P

Pit44

Guest

• 9 Juillet 2010

• #6

Re : Comment insérer 10 lignes vides après chaque ligne d'un tableau Excel

Merci pour votre aide les gars!

Le truc c'est que je n'y connais vraiment rien du tout en programmation et maccro..

J'ai refais un petit tableau téléchargeable ici:Free - Envoyez vos documents

Comment insérer, par exemple, 5 lignes vierges après chaque ligne?


Je vais essayer ce que vous m'avez dit mais je ne suis vraiment pas sûr d'y arriver!

Amitiés,

Pierre

 

Vote positif 0 Vote négatif