XL 2013 Multiplier les données dans la colonne BCDEF selon la quantité dans la colonne G

lestoiles1 · Mercredi à 06:32

Bonjour ,

J'aimerais multiplier les données dans la colonnne BCDEF selon la quantité qui se trouve dans la colonne G.

Les données sont dans la feuille "Sheet1" et le resultat que je voudrais est dans la feuille "Sheet2".

Cordialement

Lestoiles

sylvanu · Mercredi à 08:59

Bonjour Lestoiles,
Un essai en PJ avec :

VB:

Sub DupliquerLignes()
With Sheets("Sheet2")
    .Range("A2:G10000").ClearContents
    Ligne = 2
    For L = 2 To [A10000].End(xlUp).Row
        Qté = Cells(L, "G") - 1
        .Range("A" & Ligne & ":G" & Ligne + Qté) = Range("A" & L & ":G" & L).Value
        Ligne = Ligne + Qté + 1
    Next L
    .Select
    .Columns.AutoFit
    .Range("A2:A" & .[A10000].End(xlUp).Row).Formula = "=ROW()-1"
End With
End Sub

XL 2013 Multiplier les données dans la colonne BCDEF selon la quantité dans la colonne G

lestoiles1

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires