XL 2016 somme des cellules de plusieurs feuilles

KTM · 4 Novembre 2021

Bonsoir chers tous
Je voudrais sur ma feuille Synthèse en cellule A1 faire la somme de toutes les cellules B10 de 70 feuilles contiguës de 1 à 70.
Mon classeur commence par la feuille 1 et la feuille Synthèse en position 71.
Je sais le faire avec une formule Excel mais je voudrais passer par code VBA.
Merci.

sylvanu · 4 Novembre 2021

Bonsoir KTM,
Vous auriez du fournir un fichier test, c'eût été plus simple.
En PJ un essai avec dans la feuille Synthèse :

VB:

Sub Worksheet_Activate()
    Dim F, S
    For Each F In Worksheets
        If F.Name <> "Synthèse" Then S = S + Sheets(F.Name).Range("B10")
    Next F
    [B3] = S    ' choisir la cellule désirée
End Sub

Le calcul est automatique lors de la sélection de cette feuille.

job75 · 4 Novembre 2021

Bonsoir KTM, sylvanu,

KTM à dit:
Je voudrais sur ma feuille Synthèse en cellule A1 faire la somme de toutes les cellules B10 de 70 feuilles contiguës de 1 à 70

Pas besoin de VBA, vous avez sûrement entendu parler de cette formule :

VB:

=SOMME('1:70'!B10)

si les feuilles à traiter sont bien numérotées de 1 à 70.

A+

KTM · 4 Novembre 2021

job75 à dit:
Bonsoir KTM, sylvanu,

Vous avez sûrement entendu parler de cette formule :

VB:

=SOMME('1:70'!B10)

si les feuilles à traiter sont bien numérotées de 1 à 70.

A+

Merci Job75 .Avec la formule Excel aucun problème. Je voudrais passer par VBA .

job75 · 4 Novembre 2021

Je ne vois guère l'intérêt d'utiliser en VBA :

VB:

Sub a()
Sheets("Synthèse").[A1] = "=SUM('1:70'!B10)"
End Sub

KTM · 4 Novembre 2021

job75 à dit:
Je ne vois guère l'intérêt d'utiliser en VBA :

VB:

Sub a() Sheets("Synthèse").[A1] = "=SUM('1:70'!B10)" End Sub

En m'inspirant du code de Sylvanu je suis arrivé à ceci qui fonctionne aussi apparemment


Sub Somme() 'en [Syntese!B3]je fais la Somme des cellules B10 des 70 feuilles
    Dim i, S As Long
    For i = 1 To 70
        S = S + Sheets(i).Range("B10")
    [Syntese!B3] = S
    Next i
End Sub

chris · 4 Novembre 2021

Bonjour à tous

Une boucle prend plus de temps que la fonction...

Faire du VBA lent juste pour le plaisir de VBA

job75 · 4 Novembre 2021

Bonsoir chris,

Surtout il me paraît anormal de déclarer S As Long si B10 peut être un nombre décimal

A+

XL 2016 somme des cellules de plusieurs feuilles

KTM

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

job75

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

chris

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires