Pb simple

Fermé
guezelinho - 13 juil. 2010 à 17:39
Bonjour,

Je souhaite que VBA copie des données dans des feuilles en fonction d'un code :

Nom de la feuille /// Code produit //// Prix
A Z 1
A Y 2
B Z 3
A X 2
B Y 4

Comment puis je faire ?

j'ai déjà le code pour les ref produits, mais je copie le mm prix dans toutes les feuilles.

For Each Sheet In ActiveWorkbook.Sheets

For i = 1 To 150
For j = Sheet.Cells(2, 1).Value To Sheet.Cells(3, 1).Value
a = 1
Do While Sheets("List").Cells(a, 1) <> ""
a = a + 1
Loop
b = 1
Do While Sheets("Price data").Cells(b, 2) <> "" And Sheets("Price data").Cells(b, 2).Value <> Sheet.Cells(i, j).Value
b = b + 1
Loop
Sheets("List").Cells(a, 1) = Sheet.Cells(i, j)

merci de votre aide.