Discussion :

[Blaiz58]

Bonjour à tous,

Je cherche quelque chose qui permette de grouper les colonnes par les différentes valeurs qu'elles peuvent avoir.
Pour mieux comprendre, voici l'exemple ci_dessous.

J'ai cette base :



et je souhaiterai qu'elle se transforme en cette base :



Merci beaucoup pour votre aide

[Mr Poulpe]

Bonjour,

Utilise un tableau croisé dynamique je pense,

Bien cordialement,

Poulpe

[Blaiz58]

Déja fais mais je n'arrive pas exactement à ce type de présentation. Il faut que ma base reste bien dans cette structure façon BDD.

[eric4459]

Bonjour Blaiz58

Essayes ceci:

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
 Dim data As Worksheet
Set data = ThisWorkbook.Sheets("Feuil1") 'Si les données sont sur l'onglet Feuil1
data.Select
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
        data.Sort.SortFields.Clear
        data.Sort.SortFields.Add _
        Key:=Range("A:A"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
 
            With data.Sort
            .SetRange Range("A2:D300")
            .Apply
            End With

C'est en fait un code tiré du code généré par l'enregistreur de macro.

Eric

[Blaiz58]

Oui je vois mais cela ne fait juste un tri des données.
En gros ce qu'il faudrait c'est une sorte de group by comme fonction ...

[Mr Poulpe]

Dans création après avoir sélectionné le tableau croisé dynamique:

Disposition du rapport > forme tabulaire + réoéter les étiquettes d'éléments

Sous totaux:

désactivés

Je pense que ça devrait correspondre à ce qu'il te faut,

Poulpe

[Blaiz58]

Ouii merci c'est impeccable