XL 2013 Macro qui duplique les lignes d'un tableau en fonction d'un nombre précis

Staple1600 à dit:

Bonjour @onyirimba, le fil

@onyirimba
Test OK sur mon PC (Office 365)
NB: Test fait sur une feuille ne contenant qu'un seul tableau structuré

VB:

Sub Dupliquer_Lignes_Tableau()
Dim tbl As ListObject, derLg&, i&, j&, nbCopies%
Application.ScreenUpdating = False
Set tbl = ActiveSheet.ListObjects(1)
derLg = tbl.ListRows.Count
For i = derLg To 1 Step -1
    nbCopies = tbl.ListRows(i).Range.Cells(1, "O").Value
    If IsNumeric(nbCopies) And nbCopies > 1 Then
        For j = 1 To nbCopies - 1
            tbl.ListRows.Add (i + 1)
            tbl.ListRows(i).Range.Copy Destination:=tbl.ListRows(i + 1).Range
        Next j
    End If
Next i
End Sub

Cliquez pour agrandir...

Staple à dit:

NB: Test fait sur une feuille ne contenant qu'un seul tableau structuré

Cliquez pour agrandir...