Dupliquer cellules en fonction d'un coefficient multiplicateur

[Corentin.PL]

Bonjour à tous,

J'ai une nouvelle problématique aujourd'hui, certains d'entre-vous pourront peut-être m'aider !

J'ai un tableau dans lequel j'ai extrait de notre ERP l'ensemble des expédiéditions sur une période de temps T.

Ces colis peuvent être composés de N articles, mais une seule référence (R) à chaque fois.

Mon tableau :
Colonne A : référence produit
Colonne B : poids de l'expédition
Colonne C (résultat d'une rechercheV) : elle fait ressortir le poids de la référence du produit
Colonne D : B/C (pris en compte uniquement si le résultat est un nombre entier)
Je souhaiterais qu'en fonction du résultat D(colonne D) se créer X lignes dans une nouvelle feuille.

Exemple :
Si mon expédition pèse 27kg et que mon produit pèse 9kg, je souhaiterais que se créer 3 lignes indiquant 9kg.

Si quelqu'un a une idée...

Merci d'avance,

Corentin

 

[Ikito]

Salut CorentinPL,

Tu peux joindre un fichier stp ?

 

[Corentin.PL]

J'organise ma feuille pour virer les données sensibles et je reviens vers toi !
Edit : j'ajoute le fichier en PJ.

 

[Ikito]

Re,

Ci-dessous le code de la macro :

Sub TotAutreFeuille()

Set ws1 = Sheets("BDD")
Set ws2 = Sheets("Dubliquer ici")

LigneTot = ws1.[C2].CurrentRegion.Rows.Count
Lig = 2

For i = 2 To LigneTot
Quantite = ws1.Cells(i, "D")
Poids = ws1.Cells(i, "C")
CodeArt = ws1.Cells(i, "A")
    For j = 1 To Quantite
        ws2.Cells(Lig, "B") = Poids
        ws2.Cells(Lig, "A") = CodeArt
        Lig = Lig + 1
    Next
Next
End Sub

Et ton fichier en PJ.

 

[Corentin.PL]

Énorme !
C'est parfait, merci ++++++