Excel permet de réaliser ce que tu veux faire sans macro : Données -> Sous Totaux ....
Tu choisis : - à chaque changement de ta colonne A - et les colonnes à sommer
Kamel
"Patrick BASTARD" a écrit dans le message de news:
Bonsoir, honorables contribut(rices et eurs).
Quel serait le code pour insérer un sous-total dans les colonnes B, et D à F pour chacune des différentes valeurs de la colonne A ?
Je suppose qu'il faut commencer par le bas ?
Un grand merci à vous.
-- Bien cordialement, P. Bastard
anonymousA
bonsoir,
de la manière dont tu poses le problème, je serais tenté de répondre qu'Excel sait faire ca tout seul avec Données/Sous-totaux. Mais si tu tiens vraiment à écrire du code
Set cel = Cells(1, 1) tamp = cel.Row While Not IsEmpty(cel) While cel = cel.Offset(1, 0) Set cel = cel.Offset(1, 0) Wend cel.Offset(1, 0).Insert Shift:=xlDown cel.Offset(1, 0) = "sous-total: " & Application.WorksheetFunction.Subtotal(9, Range("A" & tamp & ":A" & cel.Offset(1, 0).Row)) Set cel = cel.Offset(2, 0) tamp = cel.Row Wend
tu peux mettre Application.WorksheetFunction.Subtotal(9, Range("A" & tamp & ":A" & cel.Offset(1, 0).Row)) pour les colonnes que tu veux en changeant la colonne A et remplacer ce calcul par une formule.
A+
Bonsoir, honorables contribut(rices et eurs).
Quel serait le code pour insérer un sous-total dans les colonnes B, et D à F pour chacune des différentes valeurs de la colonne A ?
Je suppose qu'il faut commencer par le bas ?
Un grand merci à vous.
bonsoir,
de la manière dont tu poses le problème, je serais tenté de répondre
qu'Excel sait faire ca tout seul avec Données/Sous-totaux. Mais si tu
tiens vraiment à écrire du code
Set cel = Cells(1, 1)
tamp = cel.Row
While Not IsEmpty(cel)
While cel = cel.Offset(1, 0)
Set cel = cel.Offset(1, 0)
Wend
cel.Offset(1, 0).Insert Shift:=xlDown
cel.Offset(1, 0) = "sous-total: " &
Application.WorksheetFunction.Subtotal(9, Range("A" & tamp & ":A" &
cel.Offset(1, 0).Row))
Set cel = cel.Offset(2, 0)
tamp = cel.Row
Wend
tu peux mettre Application.WorksheetFunction.Subtotal(9, Range("A" &
tamp & ":A" & cel.Offset(1, 0).Row)) pour les colonnes que tu veux
en changeant la colonne A et remplacer ce calcul par une formule.
A+
Bonsoir, honorables contribut(rices et eurs).
Quel serait le code pour insérer un sous-total dans les colonnes B, et D à F
pour chacune des différentes valeurs de la colonne A ?
de la manière dont tu poses le problème, je serais tenté de répondre qu'Excel sait faire ca tout seul avec Données/Sous-totaux. Mais si tu tiens vraiment à écrire du code
Set cel = Cells(1, 1) tamp = cel.Row While Not IsEmpty(cel) While cel = cel.Offset(1, 0) Set cel = cel.Offset(1, 0) Wend cel.Offset(1, 0).Insert Shift:=xlDown cel.Offset(1, 0) = "sous-total: " & Application.WorksheetFunction.Subtotal(9, Range("A" & tamp & ":A" & cel.Offset(1, 0).Row)) Set cel = cel.Offset(2, 0) tamp = cel.Row Wend
tu peux mettre Application.WorksheetFunction.Subtotal(9, Range("A" & tamp & ":A" & cel.Offset(1, 0).Row)) pour les colonnes que tu veux en changeant la colonne A et remplacer ce calcul par une formule.
A+
Bonsoir, honorables contribut(rices et eurs).
Quel serait le code pour insérer un sous-total dans les colonnes B, et D à F pour chacune des différentes valeurs de la colonne A ?
