Discussion :

[Pishti]

Bonjour !

J'aimerais grouper mes lignes par 10 dans mon TCD, de manière automatique comme il y a beauucoup de données.

Voilà à quoi ressemble mon tableau de base :


Voilà ce à quoi je veux qu'il ressemble à la fin :

(Sans la première colonne sur le nom de l'équipement : cette colonne n'est plus là, c'est maintenant un filtre)

====================================================
Je suis débutante VBA, donc voilà mon petit code ...

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
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub test()
 
Set TCD = ActiveSheet.PivotTables("TcdP")
 
 
'TCD.PivotFields("Paquet 10").Orientation = xlHidden 'On supprime la colonne Paquet 10
li = 41 'première ligne de donnée du TCD
 
'Premier groupe :
'Car lors de la création de ce groupe, une nouvelle colonne va apparaître
a = Range("B" & li).Row
b = Range("B" & li + 9).Row
Range("B" & a, "B" & b).Select
Selection.Group
li = li + 10
 
'Les autres groupes :
Do While Cells(li, 2).Value <> ""
    a = Range("C" & li).Row
    b = Range("C" & li + 9).Row
    Range("C" & a, "C" & b).Select
    Selection.Group
    li = li + 10
Loop
 
With TCD.PivotFields("Paquet 10") 'comme on a supprimé la colonne 'Paquet de 10' il va se rajouter automatiquement dès sa première céation ... à la colonne 3
        .Orientation = xlRowField
        .Position = 1 'on déplace le champs 'Paquet de 10' à la 2ème colonne du Tdc
End With
 
'    TCD.PivotFields("Paquet 10").AutoSort xlAscending, _
'        "Paquet 10"
 
'On réduit les groupes : (NE MARCHE PAS)
    'Range("A41").Select
    'Range(Selection, Selection.End(xlDown)).Select
    'Selection.ShowDetail = False
 
End Sub

Sauf que j'ai un problème :

Je me retrouve avec des groupes de 10, ok.
Mais :
• Ma macro n'est pas fiable.
• Certains groupe 'bug' et ne font pas des groupes selon l'ordre d'apparition des numéros :


De plus, quand cela se passe, je n'arrive pas à réinitialiser les groupages. J'ai l'impression que le fichier garde les données des groupes et, même si je tri mes numéro différemment, il me fera les même groupes qui avaient été fait précédemment
Je ne sais pas si j'ai été claire, mais n'hésitez pas à me poser des question ..!

Mercii!