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

lestoiles1 · 30 Octobre 2024

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 · 30 Octobre 2024

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

sylvanu · 30 Octobre 2024

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

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

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

Privacy & Transparency

Privacy & Transparency