Somme sur plusieurs feuilles

[Astyanax]

Bonjour à tout le forum, je désirerais faire la somme de cellules situées à un emplacement identique mais sur des feuilles différentes (20 environ)
L'onglet des feuilles est renommé avec un nom à rallonge (bien sur).
Je peux faire l'addition en citant la référence de l'onglet de la feuille mais cela va me faire une formule d'une longueur non négligeable pour une longueur utile très faible.
Je pense que malgré qu'elle soir renommée, la feuille dans ses propriétés ou autres,garde une référence qui ne change pas (feuil1, feuil2,...).
Y a t-il moyen de faire quelque chose de ce côté ?
Je vous remercie de me répondre et vous souhaite à tous un excellent WE
Astyanax

 

[Tibo]

Salut Astyanax,

Positionne-toi sur la feuille qui doit recevoir le total, ensuite :

- clique sur l'icone Somme
- clique sur le 1er onglet
- maintiens la touche Shift enfoncée
- clique sur le dernier onglet
- enfin, sélectionne la zone que tu dois additionner


Reviens si pb

Bon WE

@+

 

[ziopizza]

Bonjour Astyanax,Tibo,

Essaye ça à adapter,
Sub result()
Dim result As Integer
Dim Feuille As Variant

Application.ScreenUpdating = False
For Each Feuille In ActiveWorkbook.Sheets
Feuille.Activate
result1 = result1 + Range('a1').Value

Next

Sheets('feuil1').Range('a3').Value = result1
Application.ScreenUpdating = True
End Sub

Yves

Message édité par: ziopizza, à: 18/03/2006 14:59

 

[titin]

bonjour à tous

peut être un peu simple:

=SOMME(NomdemaFeuil1:NomdemaDerniereFeuil!A1)

si les 20 feilles se suivent

A+

 

[Astyanax]

Bonjour Tibo, Ziopizza et Titin et merci pour vos réponses rapides.
J'ai utilisé la solution de Tibo qui est très simple et qui fonctionne impec.
Mon problème est résolu.
Merci et bon WE
Astyanax