Dupli lignes avec incrementation

Version imprimable

28/11/2012, 21h54
toto92

Dupli lignes avec incrementation

Bonjour
Je suis sous Excel 2010 / Win 7 et j'ai du mal à faire marcher mon macro ( format xlsm )

Je voudrais traiter toutes les lignes d'un fichier ( voir mon fichier Exemple1.xlsx ) car je voudrais obtenir un autre fichier ( voir mon fichier Resultat1.xlsx ) avec des lignes dupliquées en x-1 fois ( selon Colonne G "SAP Qty" ) et avec incrementation ( Selon Colonne B "no d'ordre" ) comme dans mon fichier Resutlat1.xlsx
mon probleme est que je ne peux pas prevoir le nombre totale de ligne
Merci !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Dupliquer()
Dim LastLig As Long, i As Long
Dim Nb As Integer
 
Application.ScreenUpdating = False
With Worksheets("T_SAP_avec_Sub_0")
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
    For i = LastLig To 2 Step -1
        Nb = Val(.Range("G" & i).Value)
        If Nb >=2 Then
            .Rows(i).Copy
            .Rows(i & ":" & i + Nb - 2).Insert
            Application.CutCopyMode = False
        End If
    Next i
End With
End Sub

29/11/2012, 16h41
toto92

:roll: Ca marche ! Mais il manque l'incrementation en colonne B ( no d'ordre) qui reste toujours à 1 !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Dupliquer()
Dim LastLig As Long, i As Long
Dim Nb As Integer
 
Application.ScreenUpdating = False
With Worksheets("T_SAP_avec_Sub_0")
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
    For i = LastLig To 2 Step -1
        Nb = Val(.Range("G" & i).Value)
        If Nb >= 2 Then
            .Rows(i).Copy
            .Rows(i & ":" & i + Nb - 2).Insert
            Application.CutCopyMode = False
            With .Range("B" & i & ":B" & i + Nb - 1)
                .Formula = "=ROW()+1-Row($B$" & i & ")"
                .Value = .Value
            End With
        End If
    Next i
End With
End Sub

30/11/2012, 10h15
toto92

:ccool: Ca marche ! il faut faire dans le sens inverse !