Grouper par plusieurs attributs

Version imprimable

16/12/2014, 16h34
Blaiz58

2 pièce(s) jointe(s)

Grouper par plusieurs attributs

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 :

Pièce jointe 164019

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

Pièce jointe 164020

Merci beaucoup pour votre aide :)
16/12/2014, 16h41
Mr Poulpe

Bonjour,

Utilise un tableau croisé dynamique je pense,

Bien cordialement,

Poulpe
16/12/2014, 16h42
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.

Bonjour Blaiz58

Essayes ceci:

Code:

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

16/12/2014, 17h06
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 ...
16/12/2014, 17h16
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
22/12/2014, 12h50
Blaiz58

Ouii merci c'est impeccable :)