Discussion :

[SYCAM49300]

Bonjour à tous,

Je recherche un code VBA qui transformerait une mise en page de tableau selon un critère dans une colonne qui correspond à un code client. Le tableau d'origine peut avoir jusqu'à 2000 lignes.

Je vous joint le fichier type en exemple.

Merci d'avance.

Sycam

[BENNASR]

Bonjour
à tester avec prudence sur une copie de ton fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub regroup()
Application.ScreenUpdating = False
Dim F1 As Worksheet
Dim F2 As Worksheet
Set F1 = Sheets("DONNEES VERTICALES")
Set F2 = Sheets("DONNEES HORIZONTALES")
F2.Cells.ClearContents
Dim i As Long
On Error Resume Next
Set d = CreateObject("Scripting.Dictionary")
 
    TblBD = F1.Range("A2:F" & F1.Range("A" & Rows.Count).End(xlUp).Row)
    For i = 1 To UBound(TblBD)
    clé = TblBD(i, 1) & "|" & TblBD(i, 2)
    d(clé) = d(clé) & "|" & TblBD(i, 6) & "|" & TblBD(i, 4)
    Next i
 F2.Range("A2").Resize(d.Count) = Application.Transpose(d.keys)
 F2.Range("C2").Resize(d.Count) = Application.Transpose(d.items)
 Application.DisplayAlerts = False
 F2.Range("A2").Resize(d.Count).TextToColumns Other:=1, OtherChar:="|"
 F2.Range("C2").Resize(d.Count).TextToColumns Other:=1, OtherChar:="|"
 
 F2.Columns(3).Delete Shift:=xlToLeft
 
Application.ScreenUpdating = True
End Sub

[SYCAM49300]

Bonjour BENNASR,

J'ai fait un essai sur l'ensemble de mon tableau, ça a l'air de fonctionner.
Merci beaucoup.

SYCAM

[Raccourcix]

Bonjour

personnellement avec Excel 2016 vous avez Power Query à disposition
cet outil est plus simple à mettre en œuvre que VBA pour ce genre de traitement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    #"Regroupement+Index" = Table.Group(Source, {"RUPT CDE", "CLI"}, {{"Données", each Table.AddIndexColumn(_,"Index",1)}}),
    Developpement = Table.ExpandTableColumn(#"Regroupement+Index", "Données", {"Qte Cde", "ARTICLE", "Index"}, {"Qte Cde", "ARTICLE", "Index"}),
    Dépivot = Table.UnpivotOtherColumns(Developpement, {"RUPT CDE", "CLI", "Index"}, "Attribut", "Valeur"),
    Tri = Table.Sort(Dépivot,{{"Index", Order.Ascending},{"Attribut", Order.Ascending}}),
    Fusion_Colonne = Table.CombineColumns(Table.TransformColumnTypes(Tri, {{"Index", type text}}, "fr"),{"Attribut", "Index"},Combiner.CombineTextByDelimiter(" ", QuoteStyle.None),"Attribut.1"),
    Pivot = Table.Pivot(Fusion_Colonne, List.Distinct(Fusion_Colonne[Attribut.1]), "Attribut.1", "Valeur")
in
    Pivot

le principe est d'ajouter un Index à chaque ligne de données regroupées par client.
on dépivote et on fusionne avec l'index pour créer les lignes Article 1, Quantité 1, Article 2, Quantité 2...
puis on pivote ces lignes pour les mettre en colonne

Stéphane