VBA - macro Somme colonne plusieurs feuilles sur feuille globale

**Gamack** · 24/05/2014, 12h34

Bonjour,

Je bloque sur l'élaboration d'une macro VBA.

Contexte :

=> J'ai plusieurs feuilles dans un classeur avec des entêtes sur la 1ère ligne.
=> en fonction des feuilles, les entêtes ne sont pas dans la même colonne.

Objectifs :

=> avoir une feuille Total avec toutes les entêtes listés et faire la somme de chaque feuille dans cette feuille Total.

En gros, une macro qui va chercher dans ma feuille Total chaque entête, fais la somme, puis colle le résultat sur la feuille Total..

en espérant avoir été clair pour avoir une aide précieuse :-)

**Daniel.C** · 24/05/2014, 17h11

Bonjour,

Essaie :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim C As Range, Plage As Range, Ws As Worksheet, Col As Integer
With Sheets("Total")
    Set Plage = .Range("A1", .Cells(1, .Columns.Count).End(xlToLeft))
End With
For Each C In Plage
    For Each Ws In Worksheets
        If Ws.Name <> "Total" Then
            Col = Application.Match(C.Value, Ws.[1:1], 0)
            C.Offset(1) = C.Offset(1) + Application.Sum(Ws.Columns(Col))
        End If
    Next Ws
Next C
End Sub

**Gamack** · 26/05/2014, 12h04

MErci Daniel,

Pour bien comprendre :

Ton code permet de :

faire la somme dans la feuille total de chaque colonne(somme ligne par ligne?) de chaque feuille contenant telle entête?

**Daniel.C** · 26/05/2014, 12h10

Non, j'additionne brutalement toute la colonne contenant l'entête et je mets le résultat en ligne 2 de la feuille Total. Trop simpliste ?

**Gamack** · 26/05/2014, 12h22

lol oui

en fait chaque ligne de mon tableau correspond à une 1/2 heure dans mon fichier.

J'ai plusieurs feuilles qui correspondent à des "sites de traitement", les entêtes correspondant aux flux traités.

Ce que je cherche à faire :

Dans la feuille total, faire la somme 1/2 heure par 1/2 heure de chaque flux traité par tout les sites.

**Daniel.C** · 26/05/2014, 13h09

Comment chaque ligne est-elle référencée ? Y a--t-il par exemple une heure en colonne A ou une date et une heure ? Si oui, les cellules sont-elles au format date ? Ces références sont-elles les mêmes sur toutes les feuilles ?

**Gamack** · 26/05/2014, 13h39

Merci pour ton aide.

Avec un fichier ce sera peut etre plus clair....

j'ai des sites SITEA,SITEB,SITEC,etc.... sur plusieurs feuilles et pas forcément à chaque fois dans la même colonne.

Sur la feuille total, faire la somme ligne par ligne de toutes les feuilles pour le site SITEA, pour le site SITEB, etc....

cette somme correspond aux "répondus" dans la feuille total.

J'ai fait mon calcul avec les fonctions RechercheH et somme, maintenant je voudrais le faire en macro, car je dois intégrer d'autres données... :-)

**Daniel.C** · 26/05/2014, 17h45

Quelles sont les colonnes à ne pas prendre en compte ? Certaines colonnes de la feuille total contiennent des formules.

**Gamack** · 26/05/2014, 17h55

la macro doit renseigner les colonnes Engagement et répondus de chaque site.

Sur les autres colonnes je laisses les formules.

**Daniel.C** · 26/05/2014, 18h34

Teste :

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
Sub Recap()
    Dim C As Range, Plage As Range, Ws As Worksheet, Col As Variant, I As Integer
    Dim Sh As Worksheet
    Set Sh = Sheets("total_Ass_Co")
    With Sheets("total_Ass_Co")
        Set Plage = .Range("B1", .Cells(1, .Columns.Count).End(xlToLeft))
    End With
    For Each C In Plage
        If (Left(C.Value, 4) = "SITE" And Right(C.Value, 8) = "Répondus") Or _
            (Left(C.Value, 4) = "SITE" And Right(C.Value, 10) = "Engagement") Then
            For Each Ws In Worksheets
                If Ws.Name <> "total_Ass_Co" Then
                    Col = Application.Match(C.Value, Ws.[1:1], 0)
                    If IsNumeric(Col) Then
                        For I = 2 To 33
                            Sh.Cells(I, C.Column) = Sh.Cells(I, C.Column) + Ws.Cells(I, Col).Value
                        Next I
                    End If
                End If
            Next Ws
        End If
    Next C
End Sub

**Gamack** · 27/05/2014, 09h44

wow super merci :-)

afin de ne pas être bête... peux tu m'expliquer comment fonctionne Col = Application.Match(C.Value, Ws.[1:1], 0)

notamment Ws.[1:1]

**Daniel.C** · 27/05/2014, 11h05

Dans la boucle sur les feuilles, "WS" représente tour à tour chaque feuille. "C.value" représente tour à tour chaque entête de la feuille total. [1:1] est une autre façon d'écrire "Range("1:1")", soit la ligne 1. "Application.Match" est l'équivalent de la fonction Excel EQUIV.

Code :

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

Col = Application.Match(C.Value, Ws.[1:1], 0)

renvoie donc la position (colonne) sur chaque feuille, tour à tour, de l'entête lu sur la feuille total.

**Gamack** · 27/05/2014, 14h15

Merci beaucoup ça marche ,

J'ai juste modifié pour faire la recherche que sur certaines feuilles et aussi chaque fois que je lancer la macro ça incrémenté la feuille total

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
27
28
Dim C As Range, Plage As Range, Ws As Worksheet, Col As Variant, I As Integer
 
    Dim Sh As Worksheet
 
    Set Sh = Sheets("CALCUL_FNBFAICO")
 
    With Sheets("CALCUL_FNBFAICO")
        Set Plage = .Range("B1", .cells(1, .Columns.Count).End(xlToLeft))
    End With
 
    For Each C In Plage
        If (Right(C.Value, 8) = "Répondus") Or _
            (Right(C.Value, 10) = "Engagement") Then
 
            Sh.Range(cells(2, C.Column), cells(33, C.Column)).ClearContents
 
            For Each Ws In Worksheets
                If Ws.Name = "Assistance_CO_Mobile_FNB" Or Ws.Name = "Assistance_CO_Fixe_GP" Or Ws.Name = "SCMM" Or Ws.Name = "Actes_Urgence" Then
                    Col = Application.Match(C.Value, Ws.[1:1], 0)
                    If IsNumeric(Col) Then
                        For I = 2 To 33
                            Sh.cells(I, C.Column) = Sh.cells(I, C.Column) + Ws.cells(I, Col).Value
                        Next I
                    End If
                End If
            Next Ws
        End If
    Next C

**Daniel.C** · 27/05/2014, 14h53

et aussi chaque fois que je lancer la macro ça incrémenté la feuille total

Oui, pour pallier cet inconvénient, j'ai modifié mon code. Remets ta sélection sur les feuilles :

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
27
Option Base 1
Sub Recap()
    Dim C As Range, Plage As Range, Ws As Worksheet, Col As Variant, I As Integer, Tot(33) As Double
    Dim Sh As Worksheet
    Set Sh = Sheets("total_Ass_Co")
    With Sheets("total_Ass_Co")
        Set Plage = .Range("B1", .Cells(1, .Columns.Count).End(xlToLeft))
    End With
    For Each C In Plage
        If (Left(C.Value, 4) = "SITE" And Right(C.Value, 8) = "Répondus") Or _
            (Left(C.Value, 4) = "SITE" And Right(C.Value, 10) = "Engagement") Then
            For Each Ws In Worksheets
                If Ws.Name <> "total_Ass_Co" Then
                    Col = Application.Match(C.Value, Ws.[1:1], 0)
                    If IsNumeric(Col) Then
                        For I = 2 To 33
                            Tot(I) = Tot(I) + Ws.Cells(I, Col).Value
                        Next I
                    End If
                End If
            Next Ws
            For I = 2 To 33
                Sh.Cells(I, C.Column) = Tot(I)
            Next I
        End If
    Next C
End Sub

**Gamack** · 27/05/2014, 15h18

Ok merci,

Je pensais que Sh.Range(cells(2, C.Column), cells(33, C.Column)).ClearContents

Peux tu m 'expliquer la démarche avec ton code?

**Daniel.C** · 27/05/2014, 17h31

C'est inutile, sauf erreur. Les cellules sont systématiquement remplies par :

Code :

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

1
2
3
            For I = 2 To 33
                Sh.Cells(I, C.Column) = Tot(I)
            Next I

**Gamack** · 27/05/2014, 17h35

Ok mais comment interpréter ce code

Code :

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

1
2
3
4
Dim Tot(33) As Double
 
 For I = 2 To 33
                            Tot(I) = Tot(I) + Ws.Cells(I, Col).Value

**Daniel.C** · 27/05/2014, 17h45

Code :

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

Dim Tot(33) As Double

définit une variable tableau de 34 positions numériques (les 2 premières (Tot(0) et Tot(1) ne servent pas)

Code :

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

1
2
3
 For I = 2 To 33
                            Tot(I) = Tot(I) + Ws.Cells(I, Col).Value
                        Next I

sert à additionner les cellules des lignes 2 à 33 de la colonne Col de la feuille Ws.

Lorsque toutes les feuilles sélectionnées ont été parcourues, la feuille total est remplie par :

Code :

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

1
2
3
            For I = 2 To 33
                Sh.Cells(I, C.Column) = Tot(I)
            Next I

**Gamack** · 27/05/2014, 18h37

je viens te tester ça ne fonctionne pas.

**Daniel.C** · 27/05/2014, 18h58

Clair, je suis super avancé. A quoi vois-tu que ça ne fonctionne pas ? Où ?

VBA - macro Somme colonne plusieurs feuilles sur feuille globale

Macros et VBA Excel

Discussions similaires

Partager

Partager