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
Partager