XL 2016 somme des cellules de plusieurs feuilles

[KTM]

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]

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 :

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]

Bonsoir KTM, sylvanu,

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 :

=SOMME('1:70'!B10)

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

A+

 

[KTM]

Bonsoir KTM, sylvanu,

Vous avez sûrement entendu parler de cette formule :

=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]

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

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

 

[KTM]

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

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]

Bonjour à tous

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

Faire du VBA lent juste pour le plaisir de VBA

 

[job75]

Bonsoir chris,

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

A+