totalisation cellules

[averty]

Bonjour à tous
j'ai un fichier contenant un nombre VARIABLE de feuilles, mais toutes de même format.
Je voudrais, sur une feuille supplémentaire par exemple nommée 'total', aditionner toutes les valeurs de cellules R8 de chaque feuille.
Si qq'un a une solution
Merci

 

[Dan]

Bonjour,

Une solution très simple est la suivante :

1. Sélectionne la cellule où tu veux avoir le total des cellules R8
2. Vans dans menu / données / consolider
3. Sélectionne SOMME dans la liste déroulante
4. Dans référence, sélectionne la cellule R8 de ta première feuille et clique sur 'ajouter'
5. Répète l'opération 4 pour chacune de tes feuilles.
6. Confirme par OK.

Bon travail

 

[Jeannot45]

bonjour averty

Une petite procédure pour réaliser ce calcul

Sub TotalGeneral()
    Dim intNbFeuilles As Integer
    
    intNbFeuilles = ActiveWorkbook.Sheets.Count - 1
    Sheets('Total').Select
    Range('R8') = '=SUM(' & Sheets(1).Name & ':' & Sheets(intNbFeuilles).Name & '!R8)'
End Sub

Si quelque chose te gène, .... demande

Jeannot

 

[averty]

merci, maintenant ça marche mais au début ma feuille Total étai la première et le code me renvoyait une référence circulaire.Je lai déplcacée et c'est top.
merci encore

 

[Gael]

Bonsoir Averty, Bonsoir Dan, Bonsoir Jeannot,

Une autre solution simple est d'utiliser des références 3D.

=SOMME(AAA:CCC!$R$8)

Pour créer la formule, tu peux taper les noms de la première et dernière feuille ou sélectioner la première puis la deuxième avec MAJ et enfin la cellule souhaitée.

L'avantage est que si tu insères une nouvelle feuille entre ces bornes, celle-ci sera automatiquement incluse dana la formule.

@+

Gael