Ce forum est vraiment super et c'est pourquoi je me permets de créer une nouvelle discussion.
Je souhaiterais insérer dix lignes vides (ou plus) après chacune des 600 lignes (toutes remplies) de mon tableau.
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...
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