Somme sur X feuilles

[man95]

bonsoir

j'ai une petite question qui j'espere trouvera sa réponse

j'aimerai par Vba faire une somme d'une cellule sur plusieurs feuilles. jusqua là pas de pb j'ai utilisé l'enregistreur de macro. mais mon PB est que selon les mois j'ai 30 ou 31 feuilles à sommer. J'aimerai donc mettre en variable le nombre d'onglet existant

Ex

ma formule actuelle: ActiveCell.FormulaR1C1 = "=SUM('01:31'!RC)"
ma formule souhaité ActiveCell.FormulaR1C1 = "=SUM('01:NbFeuil'!RC)"

Est ce possible

merci de vos réponses

MPR

 

[suistrop]

Re : Somme sur X feuilles

salut,

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

Sheets.Count

 

[suistrop]

Re : Somme sur X feuilles

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

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

MsgBox somme
End Sub

 

[man95]

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

 

[suistrop]

Re : Somme sur X feuilles

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

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

 

[man95]

Re : Somme sur X feuilles

merci suistrop

cela marche du tonnerre

MPR