Insertion auto de lignes / Excel

Version imprimable

13/07/2012, 15h46
tekpaf

Insertion auto de lignes / Excel

Bonjour,

Voici mon problème :

J'ai un fichier de 572 lignes.
Chaque ligne est une référence produit.
Je souhaite insérer 17 lignes après chaque ligne de référence.

Cela donnerait ceci : Ref 1 : ligne 1, puis 17 lignes à insérer avant ref2. La ref 2 n'est donc plus en ligne 2, mais en ligne 19... et ainsi de suite.

Comment faire ?
Merci de votre aide... ;-)

Code:

1
2
3
4
5
6
7
8
9
Dim LastLig As Long, i As Long
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")                        'à adapter
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    For i = LastLig To 2 Step -1
        .Rows(i & ":" & i + 16).Insert
    Next i
End With

13/07/2012, 16h39
tekpaf

Merci beaucoup, c'est clair net et précis, et en plus ça fonctionne :ccool:

J'en profite pour te demander comment faire pour recopier les ligne 2, 20, 38, 56, 74, (et tous les multiples de 18 jusqu'à la ligne 10262) dans les 17 lignes vierges créées par la macro précédente.

Pour imager ce qu'il me faut, cela donnerait ceci :
ligne 2 copiée jusqu'à ligne 19
ligne 20 copiée jusqu'à ligne 37
ligne 38 copiée jusqu'à ligne 55,
etc jusqu'à la ligne 10262 qui sera donc copiée jusqu'à la ligne 10279.

J'espère avoir été clair...!

Merci de ton aide.

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim LastLig As Long, i As Long
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")                          'à adapter
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    For i = LastLig To 2 Step -1
        .Rows(i).Copy
        .Rows(i & ":" & i + 16).Insert
        Application.CutCopyMode = False
    Next i
End With