Sous total Excel

Version imprimable

Sous total Excel

Bonjour,

Je débute en VBA et je rencontre quelques soucis.
J'ai une feuille avec des prix et je voudrais faire régulièrement des sous-totaux tout au long de la feuille à l'aide d'un bouton qui renvoit à une macro.
Donc en appuyant sur le bouton, il faudrait qu'il recherche le sous-total précédent et ne somme que les cellules situées entre le sous-total précédent et le nouveau sous-total.

J'ai essayé d'écrire une macro mais elle ne fonctionne pas.
Code:

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 Sub MacroSousTotal() ActiveCell.Offset(0, 0).Select ActiveWorkbook.Names.Add Name:="stt", RefersToR1C1:=ActiveCell Range("AN1:BQ1").Select Selection.Copy Application.Goto Reference:="stt" ActiveCell.Offset(0, 0).Select ActiveSheet.Paste Application.CutCopyMode = False Ligne1 = ActiveCell.Row If ("stt" <> "SOUS TOTAL") And ("stt" <> "DESIGNATION") Then ActiveCell.Offset(-1, 0).Select Else If ("stt" = "SOUS TOTAL") Or ("stt" <> "DESIGNATION") Then ActiveCell.Offset(1, 0).Select Ligne2 = ActiveCell.Row End If End If Application.Goto Reference:="stt" ActiveCell.Offset(0, 8).Select Range(R[" & Ligne1 & "]C).Formula = "=SUM(R[" & Ligne2 & "]C:R[" & Ligne1 - 1 & "]C)" End sub
Le problème se situe apparemment au niveau de la formule de somme
Normalement je faire la somme dans plusieurs colonnes, mais je n'ai pas mis la fin du code vu que ca se répète.

Et ils me disent "Attendu séparateur de liste ou )" pour l'intérieur de mes crochets mais je ne sais pas comment améliorer

Si quelqu'un avait une idée pour m'aider, ça serait formidable
Merci!

03/04/2008, 10h34
ouskel'n'or

Bonjour Ali, bienvenue sur le forum,

Citation:

J'ai essayé d'écrire une macro mais elle ne fonctionne pas.

En effet, tes guillemets sont mal placés, en outre on ne peut pas désigner un range (une cellule ou une plage de cellules) ainsi

Si je regarde tes "goto", Ligne1 est la ligne de stt puisque tu écris

Citation:

Application.Goto Reference:="stt"
...
...
Ligne1 = ActiveCell.Row

Donc, quand tu écris

Citation:

Range(R[" & Ligne1 & "]C).Formula =

(ce qui ne veut rien dire en VBA) tu sembles vouloir écrire ta formule sur la ligne de stt ce qui n'a pour moi aucun sens. Peux-tu préciser ce que tu veux faire ?
Tu écris également en début de code

Citation:

ActiveCell.Offset(0, 0).Select
ActiveWorkbook.Names.Add Name:="stt", RefersToR1C1:=ActiveCell

Très dangereux car où que tu te trouves dans la feuille, tu auras une cellule nommée "stt"
L'enregistreur de macro utilise ReferstoR1C1 mais dans une macro, utilise RefersTo et désigne l'adresse de la cellule. Par exemple, pour nommer la cellule B19, utilise ceci

Code:

ActiveWorkbook.Names.Add Name:="stt", RefersTo:=Worksheets("feuil1").Range("B19")

Pour le reste, je ne comprends pas.
Le mieux serait que tu joignes ton fichier avec une seule feuille de calculs et que tu nous expliques ce que tu veux faire.
Bon courage
A+

Merci de la réponse rapide

Je ne peux pas trop joindre le fichier car c'est pour le boulot, mais je vais essayer de t'expliquer ce que je veux faire.

Le fichier que j'utilise sert à faire des prix, donc il y a des listes de "désignations" en colonne B et des prix dans les colonnes suivantes.
Les désignations sont divisées en plusieurs parties qui sont à la suites les unes des autres dans la feuille, et pour chaque partie je voudrais mettre une ligne sous-total qui fait la somme dans certaines colonnes des cellules au dessus.
La somme ne doit prendre en compte que les cellules de sa partie.
C'est pourquoi dans la macro je voulais commencer par chercher le sous-total précédent pour créer une plage de cellule entre les 2 sous-totaux et ensuite faire la somme.

Le problème est que le fichier est utilisée pour toutes les affaires et donc qu'il est très différent à chaque fois, c'est à dire que le nombre de lignes varie et l'emplacement des sous-totaux aussi.

C'est pourquoi par exemple je ne connais pas l'adresse de la cellule "stt" à l'avance puisque ca va dépendre de la cellule que j'aurais sélectionnée avant de cliquer sur le bouton.

En fait, je voudrais que la ligne de sous-total s'écrive sur la ligne de la cellule sélectionnée, chaque somme se faisant dans la colonne correspondante.

Donc dans la partie
Code:

1 2 3 4 5 6 7 8 9 10 ActiveCell.Offset(0, 0).Select ActiveWorkbook.Names.Add Name:="stt", RefersToR1C1:=ActiveCell Range("AN1:BQ1").Select Selection.Copy Application.Goto Reference:="stt" ActiveCell.Offset(0, 0).Select ActiveSheet.Paste Application.CutCopyMode = False Ligne1 = ActiveCell.Row
Je voulais nommer la cellule sélectionner pour ensuite pouvoir la retrouver
Je copie une ligne vierge de sous-total qui est dans les cellules AN1:BQ1 de ma feuille vers la ligne de la cellule "stt"
Et je donne un nom à la ligne (je pensais que ca serait plus facile pour jusqu'ou il faut sommer)

Dans la partie
Code:

1 2 3 4 5 6 7 8 If ("stt" <> "SOUS TOTAL") And ("stt" <> "DESIGNATION") Then ActiveCell.Offset(-1, 0).Select Else If ("stt" = "SOUS TOTAL") Or ("stt" <> "DESIGNATION") Then ActiveCell.Offset(1, 0).Select Ligne2 = ActiveCell.Row End If End If
Je voulais rechercher la cellule précédente qui s'appelle "SOUS TOTAL" (ou"DESIGNATION" si c'est le premier sous-total de la feuille) dans la colonne B, pour ensuite pouvoir sommer que les cellules entre les 2
et je donne un nom à la ligne

Et après.... C'est la que je voulais faire la somme (par exemple en colonne J, K et P) des cellules situées entre les 2 lignes
Mais apparemment je n'écrit pas bien le range.
Comment est ce que je peux l'écrire avec les adresses des cellules grace aux noms que j'ai donné? (Ou doivent etre placés les guillemets? J'ai regardé sur des forums mais tout se mélange un peu pour moi)

Peux etre faut il que je créée une plage de données par exemple des cellules de la colonne J situées entre le sous-total précédent et le nouveau pour ensuite faire la somme de cette plage?

Je ne sais pas si j'ai réussi à etre plus claire
merci pour ton aide

j'ai oublié de précisé qu'il y a actuellement une macro écrite dans un onglet et que j'essaie de transformer pour la mettre dans un module:

Citation:

SousTotal (t) Calcul et insertion d'un sous-total
=ECRAN(FAUX)
=SELECTIONNER("LC1") Copie de la ligne type de
=COPIER(LIGNE_DU_SOUS_TOTAL) sous-total dans la ligne
=INSERER(2) sélectionnée en l'insérant
=SELECTIONNER("LC2")

xy=(DECALER(CELLULE.ACTIVE();-1;8)) Boucle recherchant le
=SELECTIONNER("l(-1)c") sous-total précédant
a=SELECTION() pour automatiser la
compteur= 0 somme
=TANT.QUE(ET(a<>"sous total";a<>"DESIGNATION"))
compteur= compteur + 1
=SELECTIONNER("l(-1)c")
a=SELECTION()
=SUIVANT()
yz=(DECALER(CELLULE.ACTIVE();1;8))
=SELECTIONNER(DECALER(xy;1;0))

=FORMULE("=SOMME(l(-1)c:l("&-compteur&")c)") Formule de somme

=COPIER() Copie la somme dans
=LIGNEH(3) les cellules
=SELECTIONNER("LC(4)")
=LIGNEH(9)
=SELECTIONNER("LC;LC(9);LC(11):LC(20)")
=COLLER()
=ANNULER.COPIE()
=SELECTIONNER("lc1")
=DEFINIR.NOM("stt")
=ECRAN(VRAI)
=RETOUR()

Je ne sais pas si ca aidera pour la compréhension

03/04/2008, 13h10
ouskel'n'or

J'ai essayé de décripter ton code mais, sans le fichier, "je" suis incapable de comprendre ce que tu cherches à faire (hormis le fait que tu veux obtenir des sous-totaux sur plages de cellules... ce qui est un peu juste...)
Si ton fichier a des données confidentielles, enregistre-le sous un autre nom, remplace les données confidentielles par fhjsdfhklf, mais sans lui je suis dans l'incapacité de te répondre.
Désolé
03/04/2008, 14h14
ali92

J'ai mis une partie du fichier pour tenter d'etre plus claire

Les lignes de sous-total ont été créées avec l'ancien code (sur l'onglet macro) que je n'ai pas fait.
Je voudrais que ca donne la meme chose avec les nouveau code
03/04/2008, 14h27
ouskel'n'or

Où sont les valeurs à ajouter ?
Quelle cellule, par exemple, nommes-tu stt ?
A+
03/04/2008, 14h35
ali92

Oups, désolé.. J'ai oublié de faire ces précisions.
Je voudrais que dans chaque rectangle bordé de noir il y ait la somme des cellules de la meme colonne situées au dessus (jusqu'au rectangle noir précédent)
La cellule que j'appelle "stt" est la dernière où il est écrit "SOUS TOTAL"
En fait, quand je me mets sur une cellule de la colonne B, il faut qu'en cliquant sur le bouton la ligne sous total apparaisse et que ca fasse les sommes
Est ce que j'ai été assez claire?
03/04/2008, 15h18
ouskel'n'or

Désolé, je ne vais pas pouvoir t'aider :(
Telles que sont organisées tes données, je ne parviens même pas à réaliser un sous total Excel (je ne parle pas de VBA)
Tout ce que je peux t'indiquer, c'est comment connaître le N° de ligne de chaque cellule contenant "Désignation" ou "Sous-total". Mais pour les utiliser, il faut en créer un tableau et je te vois mal te lancer là-dedans.
Le mieux que je puisse te conseiller et de sélectionner la cellule où tu souhaites mettre ton résultat, en face de la cellule "Sous-total", et d'écrire
=Somme(
puis de sélectionner la plage correspondante à l'aide de la souris pour avoir son adresse, puis fermer la parenthèse.
Tu peux aussi utiliser l'icône Somme d'Excel.
Bon courage
03/04/2008, 15h46
ali92

Merci quand meme d'avoir essayé de m'aider.
Si qqn d'autre passe par la et a une idée, je suis preneuse
A+

C'est bon, j'ai finalement résolu mon problème avec ce code :yaisse2:

Code:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Sub MacroSousTotal()
 
Application.ScreenUpdating = False
 
ActiveCell.Offset(0, 0).Select
     ActiveWorkbook.Names.Add Name:="stt", RefersToR1C1:=ActiveCell
     Range("AN1:BQ1").Select
     Selection.Copy
     Application.Goto Reference:="stt"
     ActiveCell.Offset(0, 0).Select
     ActiveSheet.Paste
     Application.CutCopyMode = False
 
Ligne1 = ActiveCell.Row
 
Do
    ActiveCell.Offset(-1, 0).Select
    Loop Until (ActiveCell = "SOUS TOTAL") Or (ActiveCell = "DESIGNATION")
ActiveCell.Offset(1, 0).Select
Ligne2 = ActiveCell.Row
 
Application.Goto Reference:="stt"
 
ActiveCell.Offset(0, 8).Select
    Range("J" & Ligne1).FormulaLocal = "=SOMME(J" & Ligne2 & ":J" & Ligne1 - 1 & ")"
ActiveCell.Offset(0, 1).Select
    Range("K" & Ligne1).FormulaLocal = "=SOMME(K" & Ligne2 & ":K" & Ligne1 - 1 & ")"
ActiveCell.Offset(0, 4).Select
    Range("N" & Ligne1).FormulaLocal = "=SOMME(N" & Ligne2 & ":N" & Ligne1 - 1 & ")"
ActiveCell.Offset(0, 9).Select
    Range("W" & Ligne1).FormulaLocal = "=SOMME(W" & Ligne2 & ":W" & Ligne1 - 1 & ")"
ActiveCell.Offset(0, 2).Select
    Range("Y" & Ligne1).FormulaLocal = "=SOMME(Y" & Ligne2 & ":Y" & Ligne1 - 1 & ")"
ActiveCell.Offset(0, 1).Select
    Range("Z" & Ligne1).FormulaLocal = "=SOMME(Z" & Ligne2 & ":Z" & Ligne1 - 1 & ")"
ActiveCell.Offset(0, 1).Select
    Range("AA" & Ligne1).FormulaLocal = "=SOMME(AA" & Ligne2 & ":AA" & Ligne1 - 1 & ")"
ActiveCell.Offset(0, 1).Select
    Range("AB" & Ligne1).FormulaLocal = "=SOMME(AB" & Ligne2 & ":AB" & Ligne1 - 1 & ")"
ActiveCell.Offset(0, 1).Select
    Range("AC" & Ligne1).FormulaLocal = "=SOMME(AC" & Ligne2 & ":AC" & Ligne1 - 1 & ")"
ActiveCell.Offset(0, 1).Select
    Range("AD" & Ligne1).FormulaLocal = "=SOMME(AD" & Ligne2 & ":AD" & Ligne1 - 1 & ")"
ActiveCell.Offset(0, 1).Select
    Range("AE" & Ligne1).FormulaLocal = "=SOMME(AE" & Ligne2 & ":AE" & Ligne1 - 1 & ")"
ActiveCell.Offset(0, 1).Select
    Range("AF" & Ligne1).FormulaLocal = "=SOMME(AF" & Ligne2 & ":AF" & Ligne1 - 1 & ")"
ActiveCell.Offset(0, 1).Select
    Range("AG" & Ligne1).FormulaLocal = "=SOMME(AG" & Ligne2 & ":AG" & Ligne1 - 1 & ")"
ActiveCell.Offset(0, 1).Select
    Range("AH" & Ligne1).FormulaLocal = "=SOMME(AH" & Ligne2 & ":AH" & Ligne1 - 1 & ")"
 
Application.Goto Reference:="stt"
 
Application.ScreenUpdating = True
 
End Sub

Merci encore d'avoir passé du temps à essayer de m'aider