XL 2016 Conversion table vers autre table

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Août 2020

• #2

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

 

Pièces jointes

• testVba1.xlsm

  19.5 KB · Affichages: 9

Vote positif 0 Vote négatif

L

Ldm.nico

XLDnaute Nouveau

• 25 Août 2020

• #3

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

 

Vote positif 0 Vote négatif

L

Ldm.nico

XLDnaute Nouveau

• 25 Août 2020

• #4

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.

 

Vote positif 0 Vote négatif

WTF

XLDnaute Impliqué

• 25 Août 2020

• #5

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

 

Pièces jointes

• testVba1.xlsx

  22.2 KB · Affichages: 2

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Août 2020

• #6

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 ?

 

Vote positif 0 Vote négatif

L

Ldm.nico

XLDnaute Nouveau

• 25 Août 2020

• #7

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..

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Août 2020

• #8

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.

 

Pièces jointes

• testVba1 (2).xlsm

  23.3 KB · Affichages: 6

Vote positif 0 Vote négatif

L

Ldm.nico

XLDnaute Nouveau

• 25 Août 2020

• #9

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 25 Août 2020

• #10

Surtout pour saluer tout le monde 🙂,

Une autre méthode en VBA.

VB:

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

 

Pièces jointes

• Ldm.nico- testVba1- v1.xlsm

  21.3 KB · Affichages: 4

Vote positif 0 Vote négatif

L

Ldm.nico

XLDnaute Nouveau

• 26 Août 2020

• #11

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.

 

Vote positif 0 Vote négatif