4 pièce(s) jointe(s)
Macro, TCD - Groupage par 10
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 :
Pièce jointe 521541
Voilà ce à quoi je veux qu'il ressemble à la fin :
Pièce jointe 521542
(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:
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 :
Pièce jointe 521553
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!
