Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

somme de cellules dans différents onglets

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 !

sarrsouraa

XLDnaute Occasionnel
bonjour tout le monde
j'ai un tableau qui contient les noms des feuilles et ce que je fais c ds une cellule de la feuille Exec.Total la somme de la meme cellule dans les feuilles du tableau comme suit

Sheets("Exec. Total").Cells(ligneC, colonneC).formula = "=" & Sheets(table(0)).Cells(ligneA, colonneA).Address
i = 1
Do While i < UBound(table)
Sheets("Exec. Total").Cells(ligneC, colonneC).formula = Sheets("Exec. Total").Cells(ligneC, colonneC).formula & "+" & Sheets(table(i)).Cells(ligneA, colonneA).Address
i = i + 1
Loop


mais je trouve comme resultat 0 et comme fonction dans la cellule exemple
k16+k16 au lieu de feuille1.k16 et feuille.k16
je sais pas si c'est correcte la facon de recuperer une valeur d'un autre onglet
merciiiiiiiiiiiiiiiiiiiiiiiiiiiiii de m aider
 
Re : somme de cellules dans différents onglets

Bonjour,

peut-être comme ça :

Code:
[COLOR=#000080]Sheets("Exec. Total").Cells(ligneC, colonneC).formula = "='Exec. Total'!" & Sheets("Exec. Total").Cells(ligneC, colonneC).formula & "+'" & table(i) & "'!" & Sheets(table(i)).Cells(ligneA, colonneA).Address[/COLOR]
 
Re : somme de cellules dans différents onglets

Bonjour sarrsouraa, tototiti2008,
Une autre version:
Code:
Sub Cpt_feuille()
Dim feuille As Worksheet
Dim Var As Long
Dim Var2 As Long
    For Each feuille In ThisWorkbook.Worksheets
    Var2 = Cells(3, 3).Value
    Var = Var + Var2
Next
Sheets("Exec. Total").Cells(3, 3).Value = Var
End Sub
Cordialement
 
Re : somme de cellules dans différents onglets

Merci pour vos reponses efge j'ai plutot besoin d'affecter une frmule et les feuilles sont dans un tableau
j'ai essaye ton instruction tototiti mais j 'ai l erreur object defined error
merciiiiiiiii
 
Re : somme de cellules dans différents onglets

Re,
bonjour Efge,

peut-être comme ça ?

Code:
[COLOR=#000080]Sheets("Exec. Total").Cells(ligneC, colonneC).formula = "=" & Sheets(table(0)).Cells(ligneA, colonneA).Address
i = 1
Do While i < UBound(table)
Sheets("Exec. Total").Cells(ligneC, colonneC).formula = Sheets("Exec. Total").Cells(ligneC, colonneC).formula & "+'" & table(i) & "'!" & Sheets(table(i)).Cells(ligneA, colonneA).Address
i = i + 1
Loop[/COLOR]
 
Re : somme de cellules dans différents onglets

salut efge et tototiti
merciiiiiiiiiiiiiii ca marche en changeant juste la premiere ligne

Sheets("Exec. Total").Cells(ligneC, colonneC).formula = "='" & table(0) & "'!" & Sheets(table(i)).Cells(ligneA, colonneA).Address(0, 0)
i = 1
Do While i < UBound(table)
Sheets("Exec. Total").Cells(ligneC, colonneC).formula = Sheets("Exec. Total").Cells(ligneC, colonneC).formula & "+'" & table(i) & "'!" & Sheets(table(i)).Cells(ligneA, colonneA).Address(0, 0)
i = i + 1
Loop

encore une fois merciii
 
- 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
5
Affichages
546
M
Réponses
4
Affichages
2 K
ManOfCatz
M
S
Réponses
4
Affichages
2 K
stage_ferrit
S
N
Réponses
17
Affichages
3 K
ninajams
N
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…