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 : 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
Merci d'avance pour votre aide.

test groupe.xlsx