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 ...
Sauf que j'ai un problème :
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
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!
Partager