Compilé des tableaux en un seul

Version imprimable

19/01/2011, 22h30
andre17

Compilé des tableaux en un seul

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

bonjour,

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

Code:

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

20/01/2011, 11h12
andre17

Bonjour Mayekeul et merci infiniment pour ton retour.

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

Code:

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

As-tu une idée ?

André17
20/01/2011, 11h15
mayekeul

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...
20/01/2011, 11h20
andre17

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

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

Code:

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

Est-ce la même erreur?

Merci encore
20/01/2011, 11h22
mayekeul

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
20/01/2011, 11h24
andre17

Il me met "impossible de lire la propriété PivotFields de la classe PivotTable"
20/01/2011, 11h26
mayekeul

voir ma précédente réponse
20/01/2011, 11h30
andre17

Mai à quoi correspond le champ "DT" ?
20/01/2011, 11h41
mayekeul

dans mon exemple, c'est le nom de champs de la colonne des dates dans les différents tableaux