Additionner plusieurs feuilles

  • Initiateur de la discussion Initiateur de la discussion mcj1997
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mcj1997

XLDnaute Accro
Bonjour,

Je souhaite additionner par exemple sur la feuille 12 case I29 toutes les cases I29 des feuilles précédentes,

je fais :

=('feuille 1'!I29+'feuille 2'!I29+.....)

y a-t-il plus simple ? car j'ai un autre programme à faire avec beaucoup plus de feuilles à additionner.

Merci d'avance,
 
Re : Additionner plusieurs feuilles

Bonjour à tous,
Je suis lent 😱, alors comme j'ai fait quelque chose pour la première question, je le poste.
Code:
Sub regrouper()
Dim i As Integer
Dim nom As Long
nom = 0

Application.ScreenUpdating = False
Application.DisplayAlerts = False

For i = 1 To Sheets.Count
If Not i = 12 Then
    Sheets(i).Activate
    nom = nom + Range("I29").Value
End If
Next i
Sheets(12).Activate
Range("I29").Value = nom

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Voila, voila,voila...
Cordialement
 

Pièces jointes

Re : Additionner plusieurs feuilles

Bonjour mcj1997, bpol,

En déplaçant simplement les feuilles concernées avant ta feuille Récap, et les autres après, doit le faire.

Bon dimanche.

Jean-Pierre

Ok merci, si j'adopte cette solution, je déplace les feuilles, je fais mes formules, est-il possible après la manip de remettre les feuilles à leur place initiale (c'est mon incontournable) sans que cela affecte les formules ? dans ce cas je suppose qu'il doit falloir intégrer quelque chose dans la formule, style $ ?

Merci d'avance,
 
Re : Additionner plusieurs feuilles

Re, Jacques, Efgé,

Non, pas de solution, car en remettant les feuilles dans l'ordre initial les formules vont se recalculer.

Essaie la solution de BOISGONTIER mais elle t'oblige à nommer les feuilles dans la formule.

Jean-Pierre
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
18
Affichages
538
Réponses
10
Affichages
281
Réponses
3
Affichages
254
Retour