XL 2016 Conversion table vers autre table

[Ldm.nico]

Bonjour, en ces temps de vacances désolé de vous importuner avec mon problème. Je débute en VBA et j'ai besoin de vos précieuses connaissances.
Je souhaite convertir simplement la feuille Data en feuille Sortie, voir fichier ci-joint.
Données complémentaires:
le nombre de lignes de la table Data peut varier d'un mois sur l'autre.

Merci d'avance pour votre aide.

 

[sylvanu]

Bonjour Ldm.nico,
Un essai en PJ avec une macro.

 

[Ldm.nico]

Bonjour Sylvanu, Merci Beaucoup , cela semble répondre à mon besoin. Je vais jouer avec et faire tous les tests possibles. Merci encore.

 

[Ldm.nico]

Une remarque: le filtre ne teint pas compte du nombre variable de ligne du fichier Sortie: Key:=Range("A2:A15").
Amélioration possible?
D'avance merci pour ton aide.

 

[WTF]

Hello Nico,
En PJ une autre proposition qui ne passe pas par VBA mais par PowerQwery.

 

[sylvanu]

Bonjour Ldm.nico, WTF,
@Ldm.nico : Désolé je ne comprend pas votre requête du post #4.
Ma matrice de sortie est exactement la même que dans votre fichier exemple.
Pouvez vous préciser ?

 

[Ldm.nico]

Désolé Sylvanu. Comme indiqué dans ma demande initiale, le nombre de ligne peut varier d'un mois à l'autre. Le fichier exemple aujourd'hui comporte 15 lignes mais il peut y avoir le mois prochain 20 lignes et dans ce cas le filtre ne fonctionnera que sur les 15 premières lignes..

 

[sylvanu]

Re,
il suffit de remplacer la plage du filtre .SetRange Range("A1:E15") par .SetRange Range("A:E").
Voir PJ avec 72 lignes en sortie.

 

[Ldm.nico]

Merci Sylvanu, ça fonctionne.
Je vais regarder maintenant la proposition de WTF par PowerQwery.

 

[mapomme]

Surtout pour saluer tout le monde ,

Une autre méthode en VBA.

Sub test()
Dim der&, t, i&, j&, n&

Application.ScreenUpdating = False
   With Sheets("Data")
      der = Application.Match(String(255, "z"), Sheets("Data").Columns(1))
      t = Sheets("Data").Range("a1:g" & der)
      ReDim r(1 To der * 3, 1 To 5)
      n = n + 1: r(1, 1) = "Month": r(1, 2) = t(1, 1): r(1, 3) = t(1, 2): r(1, 4) = t(1, 3): r(1, 5) = "QTY"
      For i = 2 To UBound(t)
         For j = 5 To 7
            If t(i, j) <> "" Then n = n + 1: r(n, 1) = t(1, j): r(n, 2) = t(i, 1): r(n, 3) = t(i, 2): r(n, 4) = t(i, 3): r(n, 5) = t(i, j)
         Next j
      Next i
   End With
   With Sheets("Sortie")
      If .FilterMode Then .ShowAllData
      .Columns("a:e").Clear: .Columns(3).Resize(n).NumberFormat = "@"
      .Columns("a:e").Resize(n) = r
      .Columns("a:e").Resize(n).Sort key1:=.Range("a1"), order1:=xlAscending, Header:=xlYes
      .Columns("a:e").Resize(n).AutoFilter
      .Activate
   End With
End Sub

 

[Ldm.nico]

Bonjour Mapomme, cette dernière proposition fonctionne aussi mais mes connaissances Vba ne me permette pas, actuellement, de la faire évoluer en fonction de mon fichier source évolutif...
Merci encore à toi.
Merci à tous de votre support.