VBA : ajouter nouvelle feuille Excel avec somme
Résolu
thierry.b3
Messages postés
14
Date d'inscription
Statut
Membre
Dernière intervention
-
thierry.b3 Messages postés 14 Date d'inscription Statut Membre Dernière intervention -
thierry.b3 Messages postés 14 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- VBA : ajouter nouvelle feuille Excel avec somme
- Excel compter cellule couleur sans vba - Guide
- Mkdir vba ✓ - Forum VB / VBA
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Vba range avec variable ✓ - Forum VB / VBA
2 réponses
Bonjour à tous,
une solution sans macro.
Ajoute un feuille Fin (que tu pourras masquer) après ta dernière feuille à prendre en compte.
Dans ta feuille synthèse :
Ajoute tes feuilles juste avant Fin. Toutes les feuilles entre Feuil4 et Fin seront prises en compte dans la somme.
eric
une solution sans macro.
Ajoute un feuille Fin (que tu pourras masquer) après ta dernière feuille à prendre en compte.
Dans ta feuille synthèse :
=SOMME(Feuil4:Fin!D1)
Ajoute tes feuilles juste avant Fin. Toutes les feuilles entre Feuil4 et Fin seront prises en compte dans la somme.
eric
Bonjour
Dim Nbre As Byte, Cptr As Byte, Total As Double
Sheets(3).Range("A1") = 0
Nbre = ThisWorkbook.Sheets.Count
For Cptr = 4 To Nbre
Total = Total + Sheets(Cptr).[D1]
Next
Sheets(3).Range("A1") = Total
Dim Nbre As Byte, Cptr As Byte, Total As Double
Sheets(3).Range("A1") = 0
Nbre = ThisWorkbook.Sheets.Count
For Cptr = 4 To Nbre
Total = Total + Sheets(Cptr).[D1]
Next
Sheets(3).Range("A1") = Total
Merci énormément Michel. J'ai intégré votre code au mien et ça fonctionne parfaitement.
Néanmoins j'ai remarqué qu'une fois la nouvelle page ajoutée Excel ne fait plus les actualisations automatiquement. De fait, lorsque j'actualise certaine page de travail ma feuille synthèse ne récupère plus les données de ces dernières.
Avez-vous une astuce pour forcer l'actualisation ?
Néanmoins j'ai remarqué qu'une fois la nouvelle page ajoutée Excel ne fait plus les actualisations automatiquement. De fait, lorsque j'actualise certaine page de travail ma feuille synthèse ne récupère plus les données de ces dernières.
Avez-vous une astuce pour forcer l'actualisation ?
Soit dit en passant, voici mon code complet :
Sub NouvellePage()
Dim Nombre As Byte
Dim Cptr As Byte
Dim Total As Double
Sheets("PAGE VIERGE").Select
Cells.Select
Selection.Copy
Sheets.Add After:=Worksheets(3)
Cells.Select
ActiveSheet.Paste
Sheets("SYNTHESE").Select
Range("F18") = 0
Nombre = Sheets.Count
For Cptr = 4 To Nombre
Total = Total + Sheets(Cptr).[E26]
Next
Sheets("SYNTHESE").Range("F18") = Total
End Sub
Sub NouvellePage()
Dim Nombre As Byte
Dim Cptr As Byte
Dim Total As Double
Sheets("PAGE VIERGE").Select
Cells.Select
Selection.Copy
Sheets.Add After:=Worksheets(3)
Cells.Select
ActiveSheet.Paste
Sheets("SYNTHESE").Select
Range("F18") = 0
Nombre = Sheets.Count
For Cptr = 4 To Nombre
Total = Total + Sheets(Cptr).[E26]
Next
Sheets("SYNTHESE").Range("F18") = Total
End Sub
Bonjour,
au départ combien de feuilles après la feuille "synthèse"?
D'où vient la feuille "page vierge" ?
reste elle sous ce nom ? si oui, que se passe t il pour un nouvel ajout ?
tu la colles toujours en feuille 4 (juste après "synthèse") ?
comment est remplie la cellule E26 ?
trouver une solution qui permette une actualisation automatique (sans cliquer sur ce bouton).
oui. mais il faut répondre à ces questions surtout la dernière
Au passage:
En VBA, on évite au maximum les "select", et "copy-paste" pour la rapidité et le confort visuel
au départ combien de feuilles après la feuille "synthèse"?
D'où vient la feuille "page vierge" ?
reste elle sous ce nom ? si oui, que se passe t il pour un nouvel ajout ?
tu la colles toujours en feuille 4 (juste après "synthèse") ?
comment est remplie la cellule E26 ?
trouver une solution qui permette une actualisation automatique (sans cliquer sur ce bouton).
oui. mais il faut répondre à ces questions surtout la dernière
Au passage:
En VBA, on évite au maximum les "select", et "copy-paste" pour la rapidité et le confort visuel
Bonjour Michel,
Au départ combien de feuilles après la feuille "synthèse"?
Après ma feuille "SYNTHESE" j'ai ma "PAGE VIERGE" (feuille modèle) puis mes feuilles de travail
D'où vient la feuille "page vierge" ?
C'est en fait ma feuille modèle.
reste elle sous ce nom ? si oui, que se passe t il pour un nouvel ajout ?
Non. J'ai intégré un interbox qui modifie le nom de l'onglet pour chaque nouvel ajout.
tu la colles toujours en feuille 4 (juste après "synthèse") ?
Elle est collée en feuille 4 (après "PAGE VIERGE")
comment est remplie la cellule E26 ?
Somme de plusieurs éléments sur cette même feuille.
Merci beaucoup de ton aide.
Au départ combien de feuilles après la feuille "synthèse"?
Après ma feuille "SYNTHESE" j'ai ma "PAGE VIERGE" (feuille modèle) puis mes feuilles de travail
D'où vient la feuille "page vierge" ?
C'est en fait ma feuille modèle.
reste elle sous ce nom ? si oui, que se passe t il pour un nouvel ajout ?
Non. J'ai intégré un interbox qui modifie le nom de l'onglet pour chaque nouvel ajout.
tu la colles toujours en feuille 4 (juste après "synthèse") ?
Elle est collée en feuille 4 (après "PAGE VIERGE")
comment est remplie la cellule E26 ?
Somme de plusieurs éléments sur cette même feuille.
Merci beaucoup de ton aide.
Joli! tu as droit à un +1 pour tes étrennes ;o)
j'avais essayé mais n'avait pas pensé à cette feuille "fin"
bravo
Merci.
Dommage que ça n'a pas eu l'heur de plaire au demandeur ;-)
Bonne journée avec le soleil.
eric
Et excel en français bien sûr
eric