Discussion :

[halaster08]

Bonjour,

J'ai un fichier avec un nombre de sheet variable (1 par client selectionné dans un autre fichier), chaque sheet contient le même tableau.
J'aimerais rajouter une sheet "total" avec la somme de tous mes autres tableaux.
Existe-t-il une formule pour avoir total!A1 = Somme (A1 de toutes les autres sheets).
Petite précision les sheets ont le nom du client et pas Sheet1 2 3...

Merci d'avance

[Philippe PONS]

Salut,

as tu regardé la commande Consolider, dans l'onglet Données?

Cordialement,

[antonysansh]

Bonjour halaster08,

Une solution sans VBA :

En A1 de la feuille Total : =SOMME(Feuil1:Feuil10!A1) Feuil1 est le nom de ta première feuille et Feuil10 est le nom de ta dernière feuille. (les feuilles doivent se suivre)

[halaster08]

Bonjour halaster08,

Une solution sans VBA :

En A1 de la feuille Total : =SOMME(Feuil1:Feuil10!A1) Feuil1 est le nom de ta première feuille et Feuil10 est le nom de ta dernière feuille. (les feuilles doivent se suivre)

Merci mais ça je sais le faire
Si je poste dans la section VBA c'est pour automatiser ça a la création du fichier
Et je le répète le nombres de feuille est variable et ne s'appelle plus Sheet1 .. SheetX d'où mon problème
J'aimerais sommer sur toutes les feuilles sans utiliser leur noms (je peut utiliser le nombre par contre mais je ne vois pas comment)

Salut,

as tu regardé la commande Consolider, dans l'onglet Données?

Cordialement,

Non je ne l'avais pas fait, maintenant oui, mais en la passant à l'enregistreur de macro je vois qu'il utilise le nom de la feuille et ça me pose problème pour l'automatisation

Merci de vos réponses

[Philippe PONS]

Salut,

Utilises une boucle For...Each...Next pour parcourir toutes le feuilles:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub bouclerFeuilles()
    Dim sh As Worksheet
 
    For Each sh In ThisWorkbook.Worksheets
        ' fais ici ce que tu veux sur chaque sh
    Next sh
 
End Sub

[halaster08]

Merci, j'y avais pas pensé, c'est exactement ce qu'il me fallait.

Voici le code final au cas où qqn serait intéressé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro2()
Dim sh As Worksheet
For i = 7 To 23
For j = 3 To 15
    For Each sh In ThisWorkbook.Worksheets
 
        If Not (sh.Name = "Total") Then Worksheets("Total").Cells(i, j).Value = Worksheets("Total").Cells(i, j).Value + Worksheets(sh.Name).Cells(i, j).Value
 
    Next sh
Next j
Next i
 
End Sub

[Philippe PONS]

Super!

Après passage au service contrôle qualité du logiciel, ça donne ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub Macro2()
    ' variables objet
    Dim sh As Worksheet
    Dim shTotal As Worksheet
    ' variables simples
    Dim i As Integer, j As Integer
 
    ' init
    Set shTotal = Worksheets("Total")
    ' boucle
    For i = 7 To 23
        For j = 3 To 15
            For Each sh In ThisWorkbook.Worksheets
                If Not (sh.Name = "Total") Then
                    shTotal.Cells(i, j).Value = shTotal.Cells(i, j).Value + shTotal.Cells(i, j).Value
                End If
            Next sh
        Next j
    Next i
End Sub

[antonysansh]

Bonjour halaster08,

Une solution sans VBA :

En A1 de la feuille Total : =SOMME(Feuil1:Feuil10!A1) Feuil1 est le nom de ta première feuille et Feuil10 est le nom de ta dernière feuille. (les feuilles doivent se suivre)

Merci mais ça je sais le faire
Si je poste dans la section VBA c'est pour automatiser ça a la création du fichier
Et je le répète le nombres de feuille est variable et ne s'appelle plus Sheet1 .. SheetX d'où mon problème
J'aimerais sommer sur toutes les feuilles sans utiliser leur noms (je peut utiliser le nombre par contre mais je ne vois pas comment)

Tu sais le faire, ok. Moi aussi et ça colle à ta problématique.

• Avec cette formule, tu peux insérer des feuilles et tous ira bien. A condition d'insérer entre la première et la dernière feuille de la collection de feuilles.
• Si tu changes le nom de la première feuille (ou de la dernière), la formule s'adapte.

Concernant les noms des feuilles désolé d'avoir utilisé Feuil1, Feuil2, ... Je n'ai pas réussi à deviner le nom de tes feuilles.


Apres si tu veux vraiment du VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub MacroInutille()
    ThisWorkbook.Sheets("Total").Range("A2").FormulaR1C1 = "=SUM(PremiereFeuille:DerniereFeuille!RC)"
End Sub

Mais tu dois surement savoir le faire.

PS : Je sais qu'aucune de tes feuilles ne s'appellent PremiereFeuille ou DerniereFeuille.

[antonysansh]

Plus sérieusement et pour optimiser le code, il est préférable de passer par des tableaux.
Cells est un objet bien plus lourd que le simple contenu d'un tableau

Tu peux modifier le code ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 Sub Macro2()
    ' variables objet
    Dim shTotal As Worksheet, sh As Worksheet, tTotal(), tTemp()
    ' variables simples
    Dim i&, j&, Plage$
 
    ' init
    Set shTotal = ThisWorkbook.Worksheets("Total")
    Plage = "C7:O23"
    tTotal = shTotal.Range(Plage)
 
    ' boucle
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name = shTotal.Name Then GoTo FeuilleSuivante
            tTemp = sh.Range(Plage)
            For i = 1 To UBound(tTotal, 1)
                For j = 1 To UBound(tTotal, 2)
                    tTotal(i, j) = tTotal(i, j) + tTemp(i, j)
                Next j
            Next i
FeuilleSuivante:
    Next sh
    shTotal.Range(Plage) = tTotal
Fin:
    Set shTotal = Nothing
End Sub

[halaster08]

Super!

Après passage au service contrôle qualité du logiciel, ça donne ceci:

Merci c'est vraiment sympa d'avoir fait le boulot chiant à ma place, c'est une mauvaise habitude que j'ai prise de le faire seulement à la fin ou quand du temps.
edit: par contre tu as glissé une erreur dans le calcul, il y a deux fois shTotal

Tu sais le faire, ok. Moi aussi et ça colle à ta problématique.

Non, justement ça ne colle pas du tout à ma problématique, mais c'est probablement moi qui me suis mal exprimé.
Je souhaite que la feuille total se remplisse automatiquement après la création des autres feuilles dont le nombre et le nom vont varier
Donc je ne connais pas le nom des feuilles, donc je ne peut pas utiliser leur nom, donc que tu l'appelle sheet1 ou premierefeuille ça ne résout en rien le problème

Plus sérieusement et pour optimiser le code, il est préférable de passer par des tableaux.
Cells est un objet bien plus lourd que le simple contenu d'un tableau

Merci, je n'utilise VBA que de manière occasionelle et je n'ai encore jamais utilisé de tableaux, je vais étudier ça.


Merci encore pour vos réponses.

edit: il y a une chose que je ne comprend pas du tout

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If sh.Name = shTotal.Name Then GoTo FeuilleSuivante

c'est écrit en bon français pas défini avant (ou alors je dois changer de lunette) et pourtant ça a l'air de marché. Mais ça me perturbe
La sheet total est toujours la dernière, il n'y a donc pas de suivant ça ne risque pas de générer d'erreur?

Dernière chose, pourquoi "&" après la déclaration de i,j et plage?