XL 2013 language VBA: Insérertion des lignes entre les cellules

[ella17]

Bonjour tout le monde,
je veux que les lignes de ma plage soient séparées par 7 lignes chacune. Je suis débutante en VBA. Quelle formule faut-il utiliser s’il vous plait ?
Cordialement.

 

[Staple1600]

Bonjour le fil, ella17

Une possibilité (qui se base ici sur la colonne A)

Sub Insertion7lignes()
Dim NB_Lig&, DerLig&, Lig&, i&
DerLig = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
NB_Lig = 7
Lig = 2
Application.ScreenUpdating = False
For i = 1 To DerLig
Rows(Lig).Resize(NB_Lig).Insert
Lig = Lig + NB_Lig + 1
Next i
End Sub

EDITION: Bonjour sylvanu

 

[ella17]

Bonjour

Un possibilité (qui se base ici sur la colonne A)

Sub Insertion7lignes()
Dim NB_Lig&, DerLig&, Lig&, i&
DerLig = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
NB_Lig = 7
Lig = 2
Application.ScreenUpdating = False
For i = 1 To DerLig
Rows(Lig).Resize(NB_Lig).Insert
Lig = Lig + NB_Lig + 1
Next i
End Sub

Merci beaucoup.

 

[sylvanu]

Bonjour Ella, Staple
Tout dépend de la structure de votre fichier.
En PJ un exemple où la liste est en un bloc.
deux boutons :
1 pour le test 1 pour l'insertion.

 

[ella17]

Merci beaucoup.

Bonjour @Staple1600,
le programme a inséré 64 lignes au lieu de 7

 

[Staple1600]

Re

•>ella17
Comme précisé, mon code se base sur la colonne A de mon fichier de test.
Par contre ton fichier, je ne sais pas à quoi il ressemble, puisque non joint dans le 1er message