Macro Excel pour création de liste d'inventaire

Bonjour à tous !

Je fais appel à vous pour la création d'une macro VBA.

En effet je souhaiterais automatiser une macro afin de générer des listes d'inventaire en s'inspirant des données du tableau de la figure A (présent dans le fichier).

Les listes doivent respecter les règles suivantes:

- Les allées comprenant le plus de produits doivent être traitées en priorité.

- Une fois commencé, tous les produits doivent être traitées dans la totalité s'il y en a dans différentes allées.

Vous trouverez tous dans le fichier d'exemple ci-joint.

Pour des raisons de confidentialité professionnelle je n'ai pas pu envoyer le fichier complet mais le principe reste le même c'est juste le nombre de produit par allée qui s'élève au maximum à 40 et le nombre d'allées à 3000.

J'espère avoir été le plus clair possible

Merci par avance pour votre aide

Bonjour,

à tester,

Sub test()
Dim sh1, sh2, i As Integer, j As Long
Dim list()
Set sh1 = Sheets("Tableau de données")
Set sh2 = Sheets("Liste d'inventaire")

For j = 2 To sh1.Cells(Rows.Count, 1).End(xlUp).Row
 For i = 2 To sh1.Cells(1, Columns.Count).End(xlToLeft).Column Step 2
  If sh1.Cells(j, i) <> "" Then
   ReDim Preserve list(2, x)
   list(0, x) = sh1.Cells(j, i)
   list(1, x) = sh1.Cells(j, i + 1)
   list(2, x) = sh1.Cells(j, 1)
   x = x + 1
  End If
 Next
Next
sh2.[A2].Resize(x, 3) = Application.Transpose(list)
End Sub

Bonjour sabV,

Merci pour ta réponse, je vais essayer ça de suite.

Je tiens à préciser que mes notions sur VBA sont très très restreinte mais je pense que je devrais tout de même réussir à entrer la macro.

Je te tiens au courant du résultat.

Après plusieurs essais, je n'arrive pas a exécuter la macro...

Je l'ai affecté à un bouton, je clique dessus et rien.

Peut être que je fais mal quelque chose ?

peut tu joindre ton fichier ?