Discussion :

[huître]

bonjour

j'ai un problème j'ai un fichier excel contenant 4 feuilles

chaque feuille correspond à un fournisseur

ce que j'aimerais faire c'est un tcd qui ressemble à ça et qui reprend les 4 feuilles




donc j'arrive à le faire sous forme de tableau basiquement avec quelques formules mais ça reste static

j'aimerais un tableau de ce genre qui regroupe toute les qualités d'un tcd
avec une liste (critère) qui prend toutes les agences sans doublons des 4 feuilles
les villes se trouvent dans des colonnes differente d'une feuille à l'autre mais se caractérisent par le même libellé


voilà merci d'avance

[mercatog]

Bonjour
Une lien s'il peut t'aider http://excel.developpez.com/faq/inde...tiFeuilles2007

[huître]

donc j'ai trouver cette formule via le lien que tu m'as donné

mais quelques problemes signaler par les instructions en vert

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
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub CreationTCD_MultiPage()
    'Testé sous Excel 2007
    Dim NomFeuille As String
    Dim i As Integer
    Dim RefPlage As String, Cible As String
    Dim Tableau() As String
    Dim ListeFeuilles As Variant
    
    Application.ScreenUpdating = False
    
    'Liste de feuilles contenant les données.
    'Pour cet exemple, les données sont dans la plage A1:B6 de chaque feuille (en-tête compris).
    ListeFeuilles = Array("Feuil1", "Feuil2", "Feuil3")
    
    'Définit la taille du tableau pour stocker l'adresse des sources
    'de données.
    ReDim Preserve Tableau(1 To UBound(ListeFeuilles) + 1, 1 To 2)
    
    'Boucle sur le nom des feuilles pour créer la référence des sources
    'Style: Feuil1!R1C1:R6C2, Feuil2!R1C1:R6C2 ... etc ...
    For i = LBound(ListeFeuilles) To UBound(ListeFeuilles)
        NomFeuille = ListeFeuilles(i)
        RefPlage = Range("A1:B6").Address(ReferenceStyle:=xlR1C1, _
            RowAbsolute:=True, ColumnAbsolute:=True)
        Cible = NomFeuille & "!" & RefPlage
        Tableau(i + 1, 1) = Cible
        Tableau(i + 1, 2) = ListeFeuilles(i)
    Next i
    
    'Crée le TCD dans la cellule A1 de la feuille "Synthese"
    ThisWorkbook.PivotCaches.Add(SourceType:=xlConsolidation, _
        SourceData:=Tableau).CreatePivotTable _
        TableDestination:=Worksheets("Synthese").Range("A1"), _
        TableName:="PivotTable1"
    
    
    Worksheets("Synthese").Activate
    'Mise en forme du TCD
    With ActiveSheet.PivotTables("PivotTable1")
        .ColumnGrand = False
        .HasAutoFormat = False
        .RowGrand = False
        .SmallGrid = False
        .PivotFields(1).PivotItems(1).Position = 1
    End With
    
    Application.ScreenUpdating = True
    
End Sub

comment faire si les plages de données sont différentes d'une feuille à l'autre?