Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Gros total

Gros total

4 réponses
Avatar
garnote
Bonchoir,

Quand j'active la feuille «Gros total», cette cramo
entre la somme de toutes les cellules A1
des autres feuilles en A1.

Private Sub Worksheet_Activate()
For Each f In ActiveWorkbook.Worksheets
If f.Name <> "Gros total" Then s = s + f.[a1]
Next f
Worksheets("Gros Total).[a1] = s
End Sub

Puis-je me passer du sapin (pardon, du If) ?

Serge
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
gee-dee-
;-)))
mon Jacquouille !!!!
sans macro......
supposons que les onglets soient arrangés comme ceci :
la feuille 1 s'appelle "GrosTotal"
la feuille 2 s'appelle "Jacky"
peut importe" comment s'appelle les autres feuilles........
seul le nom de la dernière est important appelons-là : "Zaza"

dans la feuille 1 "GrosTotal"
en A1 tu écrit : ==SOMME(Jacky:Zaza!A1)
si u veux absolument une macro ????

Private Sub Worksheet_Activate()
Range("A1").FormulaR1C1 = "=SUM(Jacky:Zaza!RC)"
End Sub

@+



"garnote" a écrit dans le message de
news:FF8_b.71817$
Bonchoir,

Quand j'active la feuille «Gros total», cette cramo
entre la somme de toutes les cellules A1
des autres feuilles en A1.

Private Sub Worksheet_Activate()
For Each f In ActiveWorkbook.Worksheets
If f.Name <> "Gros total" Then s = s + f.[a1]
Next f
Worksheets("Gros Total).[a1] = s
End Sub

Puis-je me passer du sapin (pardon, du If) ?

Serge






Avatar
garnote
C'est que je n'avais pas tout dit !
Il faut que cette somme s'ajuste quand
je copie, supprime ou ajoute des feuilles.
Et là, sans macro, fouille-moé :-)))

Serge



"gee-dee-" a écrit dans le message de news:
OkW4anY#
;-)))
mon Jacquouille !!!!
sans macro......
supposons que les onglets soient arrangés comme ceci :
la feuille 1 s'appelle "GrosTotal"
la feuille 2 s'appelle "Jacky"
peut importe" comment s'appelle les autres feuilles........
seul le nom de la dernière est important appelons-là : "Zaza"

dans la feuille 1 "GrosTotal"
en A1 tu écrit : ==SOMME(Jacky:Zaza!A1)
si u veux absolument une macro ????

Private Sub Worksheet_Activate()
Range("A1").FormulaR1C1 = "=SUM(Jacky:Zaza!RC)"
End Sub

@+



"garnote" a écrit dans le message de
news:FF8_b.71817$
Bonchoir,

Quand j'active la feuille «Gros total», cette cramo
entre la somme de toutes les cellules A1
des autres feuilles en A1.

Private Sub Worksheet_Activate()
For Each f In ActiveWorkbook.Worksheets
If f.Name <> "Gros total" Then s = s + f.[a1]
Next f
Worksheets("Gros Total).[a1] = s
End Sub

Puis-je me passer du sapin (pardon, du If) ?

Serge










Avatar
gee-dee-
Oupsss....
je m'a fourvoyé, je me suis adressé par erreur à notre jacquouille !!!!!
reprenons donc !
SERGE,
tant que la feuille GrosTotal est en position 1
et que les feuilles "Jacky" et dernière "Zaza" sont existantes
les feuilles supprimées ou ajoutées entre ces deux feuilles
la solution sans macro reste valable.
sinon :
Private Sub Worksheet_Activate()
Worksheets("GrosTotal").Move Before:=Sheets(1)
prem = Worksheets(2).Name
dern = Worksheets(Worksheets.Count).Name
Range("A1").FormulaR1C1 = "=SUM(" & prem & ":" & dern & "!RC)"
End Sub

Non ????

je va le boire tout seul mon rhum, moé.... !!!

"garnote" a écrit dans le message de
news:kj9_b.72295$
C'est que je n'avais pas tout dit !
Il faut que cette somme s'ajuste quand
je copie, supprime ou ajoute des feuilles.
Et là, sans macro, fouille-moé :-)))

Serge



"gee-dee-" a écrit dans le message de news:
OkW4anY#
;-)))
mon Jacquouille !!!!
sans macro......
supposons que les onglets soient arrangés comme ceci :
la feuille 1 s'appelle "GrosTotal"
la feuille 2 s'appelle "Jacky"
peut importe" comment s'appelle les autres feuilles........
seul le nom de la dernière est important appelons-là : "Zaza"

dans la feuille 1 "GrosTotal"
en A1 tu écrit : ==SOMME(Jacky:Zaza!A1)
si u veux absolument une macro ????

Private Sub Worksheet_Activate()
Range("A1").FormulaR1C1 = "=SUM(Jacky:Zaza!RC)"
End Sub

@+



"garnote" a écrit dans le message de
news:FF8_b.71817$
Bonchoir,

Quand j'active la feuille «Gros total», cette cramo
entre la somme de toutes les cellules A1
des autres feuilles en A1.

Private Sub Worksheet_Activate()
For Each f In ActiveWorkbook.Worksheets
If f.Name <> "Gros total" Then s = s + f.[a1]
Next f
Worksheets("Gros Total).[a1] = s
End Sub

Puis-je me passer du sapin (pardon, du If) ?

Serge














Avatar
garnote
je va le boire tout seul mon rhum, moé.... !!!
Ça sra bin le bout de la marde, viarge !!!

Je t'attends à mon anniversaire pour déguster
mon Royal Salute; c'est pas du rhum, mais
ce scotch-là, c'est divinement exquis.

:-)))

Serge