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 Somme sur plusieurs feuilles

Somme sur plusieurs feuilles

11 réponses
Avatar
Philippe
Bonjour =E0 tous,

Je poss=E9de une feuille de calcul, en A1 j'ai une somme,=20
dans une autre feuille appell=E9e r=E9sum=E9 je souhaite=20
obtenir automatiquement l'addition de A1 =E0 chaque fois=20
que je cr=E9e une nouvelle feuille est-ce possible ? si oui=20
comment ?

Merci pour vos r=E9ponses
Philippe
Signaler un problème avec ce contenu

1 réponse

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
1 2
Avatar
Mum
Bonjour,

Mais pourquoi compliquer ainsi la vie d'un débutant tout de suite avec du
VBA. Il y a des choses simples dans XL sans cela. Ex : faire un lien par
copier|collage spécial.


Mum


"garnote" a écrit dans le message de news:
Vb6_b.69894$
Salut Denis,

C'est génial, cette affaire-là. J'obtiens le même résultat
mais c'est beaucoup plus simple :

Sub Mettre_A1_Dans_Résumé()
Sheets("Résumé").[a1] = Sheets("UN").[a1]
End Sub
et
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Mettre_A1_Dans_Résumé
End Sub

Yep !

Serge

"Denis Michon" a écrit dans le message de news:
3Z5_b.69794$
Bonjour Garnote,


Dans le ThisWorkbook d'un classeur, je viens(!) de découvrir un nouvel
événement à l'ajout d'une nouvelle feuille,

penses-tu que cela pourrait t'aider ?

'---------------------
Private Sub Workbook_NewSheet(ByVal Sh As Object)

End Sub
'---------------------


Salutations!



"garnote" a écrit dans le message de
news:Ua4_b.69780$

La bonne idée, c'est que je te fasse parvenir mon
classeur- exemple. Le veux-tu ?

Serge


"Philippe" a écrit dans le message
de

news: 1495501c3f959$b609d890$
Il y a du mieux, j'ai nommée ma feui1 "UN" mais dans le
résumé je n'ai toujours pas la somme des feuilles qui se
multiplies.
Philippe
-----Message d'origine-----
Salut Philippe,

En espérant que tout soit clair :

1. Copie cette zone :
Sub Mettre_A1_Dans_Résumé()
Sheets("Résumé").[a1] = Sheets("UN").[a1]
End Sub
Sub Nouvelle_Feuille()
ActiveWorkbook.Sheets.Add
Call Mettre_A1_Dans_Résumé
End Sub
2. Combinaison de touches Alt+F11
Tu devrais alors te retrouver sur une feuille
vierge d'un module standard.
3. Colle
4. Reviens sur ta feuille et Alt+F8
Tu devrais voir le nom des deux macros.
5. Sélectionne «Nouvelle_Feuille», clique
sur «Options» et entre la touche de raccourci
de ton choix. De préférence une lettre majuscule
pour éviter de tomber sur un raccourci d'Excel.
6. Tu peux maintenant appeler la macro par
Ctrl+Maj+(la lettre choisi)

Et alors, ça va ?

Serge




"Philippe" a écrit
dans le message de

news: 1490701c3f952$6d0451e0$
Merci, mais ou coller ce code, dans la cellule, dans la
feuille ? je ne connais pas bien VBA.
Merci d'avance
Philippe
-----Message d'origine-----
Salut Philippe,

Un exemple :
Sur une feuille nommée «UN», tu as
la formule ±+C1 en A1.
Tu voudrais obtenir la valeur (pas la formule) de
cette somme dans la cellule A1 de la feuille «résumé»
à chaque fois que tu ajoutes une feuille.
Alors tu pourrais utiliser les deux macros suivantes :
1.
Sub Mettre_A1_Dans_Résumé()
Sheets("Résumé").[a1] = Sheets("UN").[a1]
End Sub
2.
Sub Nouvelle_Feuille()
ActiveWorkbook.Sheets.Add
Call Mettre_A1_Dans_Résumé
End Sub
Tu associes alors un raccourci clavier à
la macro «Nouvell_Feuille», par exemple
Ctrl+Maj+A.
Et quand tu veux insérer une nouvelle
feuille, fais-le avec la touche de raccourci.
Ça devrait aller. Qu'en penses-tu ?

Serge





.




.













1 2