Hello
Pour moi ce qu'il y a de plus simple c'est un truc comme ca :
Code :
- Function zcoquelicot(Cell As Range, OngletCalc)
- 'Cell la cellule a sommer, OngletCalc l'onglet _
- sur lequel on va sommer, histoire de l'exclure des calculs
- 'Pour que ca se recalcule si tu changes les valeurs des autres onglets
- Application.Volatile
- 'on compte le nb d'onglet du classeur en cours
- NbSheet = ActiveWorkbook.Worksheets.Count
- 'on passe sur chaque onglet et on somme les valeurs de Cell. _
- A toi de rajouter des tests au cas où tu ai du texte etc.
- For x = 1 To NbSheet
- 'Si l'onglet est different de celui sur lequel doit apparaitre la somme
- If ActiveWorkbook.Worksheets(x).Name <> OngletCalc Then
- 'on somme
- Som = Som + ActiveWorkbook.Worksheets(x).Range(Cell.Address)
- End If
- Next
-
- zcoquelicot = Som
- End Function
|
Sur ta feuille où tu veux ton calcul des A1 tu saisis :
=zcoquelicot (A1;"Nom_De_Ta_Feuille_Ou_Tu_Veux_Ton_Calcul" )
Je ne passe pas par un ActiveSheet car si tu changes le A1 d'une feuille, le Volatile refait passer par la fonction, et l'ActiveSheet se retrouve etre l'autre onglet.
Message édité par SuppotDeSaTante le 02-03-2011 à 10:14:22
---------------
Soyez malin, louez entre voisins !