[XL-2007] Sous totaux et ajout de de texte [Résolu]

[VIPNO]

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 :

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

[Daniel.C]

Bonjour,

Peux-tu expliciter davantage ce que tu veux recopier ?

[VIPNO]

Bonjour Daniel,
Merci de regarder mon problème.
En fait comme je fais des sous totaux au dessus des lignes quand les valeurs en colonne E sont identiques , je voulais recopier les valeurs des colonnes A à D de la lignes précédent les sous totaux.
De plus comme je voulais faire des sous totaux en cascade mais que je n'y arrive pas, je vais passer en boucle For ...Next.
J'ai ouvert une autre discussion à ce sujet.
A bientôt, peut être
VIPNO