Discussion :

[sissi00000]

Bonjour a tous

Je me prend la tete depuis 2 jours a creer une TCD a partir de données d'une feuille Excel en VBA mais je n y arrive pas!!!
Voila mon code:

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
 
Sub TCD()
Sheets("Sheet2").Activate
Dim pivot As String
Dim counter As Double
counter = Cells(2, 1).End(xlDown).Row
 pivot = "Sheet2!R1C1:R" & counter & "C2"
'avec counter=nombre de lignes
 
'création du tableau croisé dynamique
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=pivot). _
    CreatePivotTable TableDestination:=range("AA2"), TableName:="ALtis"
    ActiveSheet.Name = "Pivot toutAlti"
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("Altis").SmallGrid = False
    With ActiveSheet.PivotTables("Altis").PivotFields("Nom")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Altis").PivotFields("Encours")
        .Orientation = xlDataField
        .Position = 1
    End With
 
 
End Sub

Ca bloque au niveau de ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=pivot). _
Ca me fair erreur 1004. Je ne comprends pas pourquoi???

Quelqu'un peut m'aider svp

Merci d'avance

[Godzestla]

Salut,

ta syntaxe est incorrecte.

SourceData:=pivot

voici un exemple qui fonctionne.
Il prend toutes les données de la feuille External comme source. (11 colonnes)

Code :

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

1
2
3
4
 
   ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "External!R1C1:R" & xlrow & "C11").CreatePivotTable TableDestination:="", TableName:= _
        "Pivot_Press"

[sissi00000]

Merci Godzestla pour ta reponse mais ca ne marche tjs pas...
Maintenant, j'ai une erreur 424 (Object required) avec le code que tu m'as donnée...
Ce que je veux faire est le suivant:
J'ai des données sur une feuille Excel (Sheet2),18 colonnes et le nombre de ligne varie d'une requête a l'autre ( je récupère mes données selon des critères d'une base de donnée Access via SQL en VBA Excel).
Il ya trop de doublons, de triplons et même plus dans mes données, donc je veux récupérer une seule fois les données de la première colonne...
J'ai essayé de faire des boucles, des Vlookup mais ca prend du temps car le nombre de ligne est important, c'est pour cela que je veux faire une pivot table en VBA, je récupère le bon nombre de champs, rapidement et j'ai pas a rafraichir les données manuellement a chaque requête ( nouvelles données).
Si tu peux m'aider ca serait trop cool

Merci

[Godzestla]

Salut sissi00000,

j'ai très peu de temps mais montre moi ta procédure ou fonction ou je vais peut-être pouvoir voir quelquechose.

Merci de dire également ou se trouvent tes données de base pour le pivot.

en fait mon code vient de :

1) enregistremenrt macro
2) Générer la pivot à la main
3) Stop macro
4) Adapte le range pour données variable.

C'est tout.

Tu peux essayer. C'est étonnant.

[sissi00000]

en fait , j'ai essayé plein de bout de code que j'ai trouve sur internet mais ca marche pas, parexemple celui la :

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
 
 
Sub MakeTable()
'Dim Pt As PivotTable
'Dim strField As String
'
'    'Pass heading to a String variable
'    strField = Selection.Cells(2, 1).Text
'
'    'Name the list range
'    range(Selection, Selection.End(xlDown)).Name = "Items"
'
'    'Create the Pivot Table based off our named list range.
'    'TableDestination:="" will force it onto a new sheet
'    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
'        SourceData:="Sheet2!R1C1:R" & xlrow & "C11").CreatePivotTable TableDestination:="", _
'            TableName:="ItemList"
'
'    'Set a Pivot Table variable to our new Pivot Table
'    Set Pt = ActiveSheet.PivotTables("ItemList")
'
'    'Place the Pivot Table to Start from A3 on the new sheet
'    ActiveSheet.PivotTableWizard TableDestination:=Cells(3, 25)
'
'    'Move the list heading to the Row Field
'    Pt.AddFields RowFields:=strField
'    'Move the list heading to the Data Field
'    Pt.PivotFields(strField).Orientation = xlDataField
'End Sub

il bloque aussi a la creation de la table.
mes données pour la pivot table se trouve dans une feuille sous forme de 18 colonnes et un nombre de ligne non defini...
Normalement j'ai pas besoin de creer le pivot table a la main , non???

[Godzestla]

Ca peut pas marcher comme cela. Il y a plein de fautes (XLrow n'existe pas dans ton code).

Je me repete, please car pas le temps, donne moi ton code LISIBLE (donc pas avec des ' devant chaque ligne, et dis moi précisément comment je repère la source de données, en code SVP, du genre

Code :

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

1
2
 
Sheet2!R1C1:R500C11") ou si le range est dans une variable ou une sélection montre moi ou.

Faut prendre ton temps pour expliquer en détails si tu veux une réponse qui marche.