Recopie incrementale

Bonjour a tous,

Un petit probleme a resoudre, je voudrais creer une liste incrementale a partir de 2 colonnes source (A et B).

Dans la premiere c'est la quantite de fois qu'il faut recopier la reference et la seconde c'est la reference a recopier.

Je suis sur que c'est pas tres compliquer pour vous mais moi ca me prendrais un temps fou

Merci d'avance.

Bonsoir,

Sub etiq()
    Dim n%, i%
    With Worksheets("IMPORT_SHEET")
        n = .Cells(.Rows.Count, 2).End(xlUp).Row
        For i = 2 To n
            Range(.Cells(2, i + 2), .Cells(1 + .Cells(i, 1).Value, i + 2)).Value = .Cells(i, 2).Value
            .Cells(2, i + 2).ColumnWidth = 18
        Next i
    End With
End Sub

Tu supprimes les colonnes testées, pour retester.

Ferrand

Excellent, ca serait possible de mettre toutes les copies sur une meme colonne ?

Aménagé.

Sub etiq()
    Dim n%, i%, k%
    With Worksheets("IMPORT_SHEET")
        n = .Cells(.Rows.Count, 2).End(xlUp).Row
        k = 2
        For i = 2 To n
            Range(.Cells(k, 4), .Cells(k + .Cells(i, 1).Value - 1, 4)).Value = .Cells(i, 2).Value
            k = k + .Cells(i, 1).Value
        Next i
    End With
End Sub

Bonne soirée

Ferrand

Parfait ! Merci beaucoup !!!