1 pièce(s) jointe(s)
Macro : Grouper + Sous total
Bonjour,
Je suis preneur d'une aide pour une macro.
Je dois grouper par catégorie suivant 3 colonnes. Et à chaque groupe avoir le total de la ligne en gras.
Mes 2 groupes crées via la colonne A, j'aimerais avoir en libellé sur n'importe quelle cellule le mot du dessus 'CDD ou CDI' et le total de la ligne.
Idem pour les groupes de colonne B
et idem pour les groupes de colonne C
Jusqu'ici j'arrive plus ou moins à rajouter mes lignes et grouper mais je pense que le code peut être améliorer.
Ci joint un début de code pour ajouter les groupes de colonnes A et B... Apres je me perds…
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
| Dim C As Range
Set C = Cells(1, 1).End(xlDown)
J = 2
I = 2
Do Until I > C.Row
If Not Cells(I, 1) = Cells(I + 1, 1) Then
Cells(I + 1, 1).EntireRow.Insert
Range(Cells(J, 2), Cells(I, 2)).EntireRow.Group
I = I + 1
J = I + 1
End If
I = I + 1
Loop
Dim D As Range
Set D = Cells(1, 2).End(xlDown)
L = 2
K = 2
Do Until K > C.Row
If Not Cells(K, 2) = Cells(K + 1, 2) Then
Cells(K + 1, 1).EntireRow.Insert
Range(Cells(L, 2), Cells(K, 2)).EntireRow.Group
K = K + 1
L = K + 1
End If
K = K + 1
Loop |
Merci d'avance pour votre aide.
Pièce jointe 520754
