Bonjour,
J'ai réalisé un bout de code qui me permet d'ajouter des sous totaux sur les colonnes de G à S lorsque la valeur de la colonne E change.
Je ne sais pas comment faire pour recopier les valeurs des colonnes A à D sur la ligne de sous total apparu, ni comment faire pour écrire "BE" en F
Est-ce que l'un d'entre vous peut m'aider ?
D'avance merci.
VIPNO

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
With Worksheets("2012_ETP_Projet")
    .UsedRange.RemoveSubtotal
 LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    .Range("A2:S" & LastLig).Subtotal GroupBy:=5, Function:=xlSum, _
        TotalList:=Array(7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19), Replace:=True, PageBreaks:=False, _
        SummaryBelowData:=False
End With