Discussion :

[Gamack]

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]

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]

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]

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]

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]

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 ?