Somme sur X feuilles

suistrop

XLDnaute Impliqué

• 3 Novembre 2009

• #2

Re : Somme sur X feuilles

salut,

pour connaitre le nombre d'onglet d'un classeur tu peux utiliser

Code:

Sheets.Count

 

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 3 Novembre 2009

• #3

Re : Somme sur X feuilles

Sinon pour sommer une cellule sur plein de feuille tu peux faire :

Code:

Sub cartman()
'on boucle sur les feuilles
For Each ws In Worksheets
    somme = somme + ws.Cells(1, 1)
Next ws

MsgBox somme
End Sub

 

Pièces jointes

• somme_test.xls

  23.5 KB · Affichages: 27

Vote positif 0 Vote négatif

M

man95

XLDnaute Occasionnel

• 3 Novembre 2009

• #4

Re : Somme sur X feuilles

bonsoir suistrop

j'ai bien déclaré ma variable en utilisant sheets.count mais je ne sais comment l'utiliser dans ma formule

pour ta 2eme elle parait interessante mais le soucis est que j'ai d'autres feuilles mise à par celles que je veux sommer

Feuil Bilan
Feuil Menu
Feuil de 01 à 30 ou 31

merci pour tes réponses

 

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 3 Novembre 2009

• #5

Re : Somme sur X feuilles

Salut en modifiant un peu pour pas tenir compte des onglets bilan et menu

Code:

Sub cartman()
'on boucle sur les feuilles
For Each ws In Worksheets
if ws.name <> "Bilan" and  ws.name <> "Menu" then
    somme = somme + ws.Cells(1, 1)
end if
Next ws

MsgBox somme
End Sub

 

Vote positif 0 Vote négatif

M

man95

XLDnaute Occasionnel

• 4 Novembre 2009

• #6

Re : Somme sur X feuilles

merci suistrop

cela marche du tonnerre

MPR

 

Vote positif 0 Vote négatif