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…
Merci d'avance pour votre aide.
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 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
test groupe.xlsx
Partager