Conversion d'un tableau en liste

Bonjour á tous,

Je souhaite convertir un tableau normal (pas un TCD) en liste comme expliqué en annexe. Existe-t-il une facon simple pour faire cela?

Merci de votre aide

Bonjour,

Un essai :

Crdmt

Bonjour,

à tester,

Sub test()
x = 1
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
 For y = 2 To 5
 x = x + 1
    Cells(x, 14) = Cells(i, 1)
    Cells(x, 15) = Cells(1, y)
    Cells(x, 16) = Cells(i, y)
 Next y
Next i
End Sub

Bonjour

merci beaucoup. Cependant il faudrait que j'automatise aussi la colonne STOCK. Avec le SUMPRODUCT, il ne me semble pas que ce soit possible. Une idée?

Cdt

Bonjour,

Ca a marché parfaitement. A moi de tester maintenant sur le vrai fichier. Merci beaucoup.

à tester,

Sub test()
x = 1
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
 For y = 2 To 5
 x = x + 1
    Cells(x, 14) = Cells(i, 1)
    Cells(x, 15) = Cells(1, y)
    Cells(x, 16) = Cells(i, y)
 Next y
Next i
End Sub

[/quote]

JDS3 a écrit :

Bonjour

Cependant il faudrait que j'automatise aussi la colonne STOCK.

Cdt

C'est a dire ?est le resultat attendu ??

Bonjour

Oui j'ai adapté la formule á mon fichier de travail. Parfait, ca a bien fonctionné. Merci beaucoup. J'ai gagné un temps précieux.

DjiDji59430 a écrit :

JDS3 a écrit :

Bonjour

Cependant il faudrait que j'automatise aussi la colonne STOCK.

Cdt

C'est a dire ?est le resultat attendu ??

Bonjour,

Pardon je me suis trompe sur mon dernier post. Merci a sabV pour la macro: c'etait la solution parfaite. En l'adaptant á mon tableau réel, cela a fonctionné.

DjiDji59430, ta solution proposée ne permettait pas de "créer" la deuxieme colonne en automatique. Donc c'etait utile mais partiellement.

Merci beaucoup pour l'aide precieuse

Merci pour ce retour, au plaisir!

pour clôturer le fil, cliquer sur le bouton V vert du post à coté du bouton EDITER, merci!