Discussion :

[toto92]

Bonjour
J'ai une feuille Excel "copy of UC Desktops.xls" ( fichier joint )
Je voudrai dupliquer la ligne entiere selon "quantité SAP" ( qui peut etre entre 0 et 500 )

si Quantité SAP = 5 ==> Dupliquer la ligne entiere : 4 fois juste en dessous

Merci

Pour info : j utilise Excel 2003

[fring]

Bonjour,

Si j'ai bien compris, ceci devrait convenir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
Application.ScreenUpdating = False
Dim i As Integer, N As Integer
 
For i = Cells(Rows.Count, 7).End(xlUp).Row To 5 Step -1
    If Cells(i, 7) > 1 Then
        N = Cells(i, 7).Value - 1
        Range(Cells(i + 1, 1), Cells(i + N, 1)).EntireRow.Insert
        Rows(i).Copy Range(Cells(i + 1, 1), Cells(i + N, 1))
    End If
Next
Application.ScreenUpdating = True
End Sub