Compilé des tableaux en un seul

**andre17** · 19/01/2011, 22h30

Bonsoir à tous,

Je souhaiterais, à l'aide d'une macro, compiler sur une feuille plusieurs tableaux identiques (même nb de colonne et nb de lignes variables) présents sur plusieurs feuilles du même classeur. Le tableau de compilation ayant les mêmes colonnes.

Par ailleurs, dans cette feuille de compilation je souhaiterais trier les lignes par date (1ère colonne de mes tableaux).

Cependant, étant donné mon niveau en VBA, je ne sais comment faire et comment débuter !?

Auriez-vous des idées??

Merci par avance et excellente soirée!

André17

**mayekeul** · 20/01/2011, 10h11

bonjour,

voici une idée de comment tu pourrait opérer

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
29
30
31
32
33
34
35
36
Sub Compil()
Dim sh As Variant
Dim shComp As Worksheet
Dim shName As Variant
Dim R As Integer
Dim PVT As PivotTable
 
'on définit les nom des feuilles contenant les tableaux a compiler
shName = Array("sh1", "sh2", "sh3")
 
' on ajoute une feuille pour la compilation
Set shComp = Worksheets.Add
 
'on les copie dans la feuille de compilation
'on admet ici, qu'ils débutent tous en cellule "A1" et qu'ils possedent chacun dix colonnes
 
'on copie d'abord les en-têtes
Sheets("sh1").Range("A1:J1").Copy shComp.Range("A1")
For Each sh In shName
    R = Sheets(sh).Range("A1").CurrentRegion.Rows.Count - 1
    Sheets(sh).Range("A2:J" & R).Copy
    shComp.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
Next sh
 
'on crée une table pivot!
    Set PVT = ActiveWorkbook.PivotCaches.Create(xlDatabase, shComp.Name & "!" & Range("A1").CurrentRegion.Address). _
                    CreatePivotTable(shComp.Name & "!R1C12", "PivotTableCompil")
    PVT.PivotFields("DT").Orientation = xlRowField
    PVT.PivotFields("DT").Position = 1
    PVT.AddDataField PVT.PivotFields("A"), "Sum of A", xlSum
    PVT.AddDataField PVT.PivotFields("B"), "Sum of B", xlSum
    PVT.AddDataField PVT.PivotFields("C"), "Sum of C", xlSum
    PVT.AddDataField PVT.PivotFields("D"), "Sum of D", xlSum
    '...
    PVT.PivotFields("DT").AutoSort xlAscending, "DT"
End Sub

**andre17** · 20/01/2011, 11h12

Bonjour Mayekeul et merci infiniment pour ton retour.

J'ai simplement une erreur 1004 au moment de la compilation sur la ligne suivante :

Code :

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

Sheets(sh).Range("A2:J" & R).Copy

As-tu une idée ?

André17

**mayekeul** · 20/01/2011, 11h15

oui, que vaux R a ce moment là?

je suppose qu'il est égal à zéro

et que donc la feuille ne contient pas de tableau commençant en A1...

**andre17** · 20/01/2011, 11h20

Ok parfait ça c'est réglé!

Et maintenant j'ai la même erreur sur la ligne :

Code :

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

PVT.PivotFields("DT").Orientation = xlRowField

Est-ce la même erreur?

Merci encore

**mayekeul** · 20/01/2011, 11h22

ben presque,

je suppose que tu n'as pas de champs "DT" dans ta table pivot!
et donc les noms de champs venant de la première feuille... ce champs ne doit pas y figurer non plus