[VBA]Tableaux croisé dynamique avec source variableRésolu

Question

Bonjour,

J'ai recherché sur internet une solution à ma requête mais sans succès. Je n'ai peut être pas compris toutes les subtilités de certains codes mais soit.

Il s'agit de tableau croisé dynamique.

Voici un code "lambda" de TCD:

 ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "[sapoV21.xlsx]cartouches!R1C7:R1048576C7", Version:=xlPivotTableVersion12). _
        CreatePivotTable TableDestination:="Sheet1!R2C12", TableName:="PivotTable2" _
        , DefaultVersion:=xlPivotTableVersion12

Pour moi il y a 2 informations :
La source : "[sapoV21.xlsx]cartouches!R1C7:R1048576C7"
La destination : "Sheet1!R2C12"

Je cherche à rendre la source variable en fonction de l'adresse dans la cellule B14 de l'onglet DATA'! au format :
'Q:\LOGISTIQUE\[sapoV21.xlsx]cartouches'!G:G  

La destination resterait dans notre exemple "Sheet1!R2C12"

J'ai testé quelques trucs avec Application.WorksheetFunction.indirect()  mais je n'y arrive pas (surement un problème de synthaxe)
De plus, le code TDC est en R1C1 automatiquement plutôt qu'en A1, je ne sais pas si ça joue.

Je ne suis pas encore un expert en VBA, c'est pourquoi je recherche quelque chose de relativement simple et pédagogue.

Peut être du genre :

i = ("Data'!B14").value

 ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "i", Version:=xlPivotTableVersion12). _
        CreatePivotTable TableDestination:="Sheet1!R2C12", TableName:="PivotTable2" _
        , DefaultVersion:=xlPivotTableVersion12


Merci d'avance pour vos conseils et explications.

propagandeman · Accepted Answer

J'ai enfin réussi. C'était simplement une erreur de syntaxe, Je marquais  SourceData:= _"i"    au lieu de _i

Merci

Private Sub ListeBPC_Click()

'TDC variable

'Definir la valeur de la variable i
i = Sheets("Data").Range("c14").Value
'Définir l'entete du pivotfield
j = Range("A1").Value

'Activer parade anti-scintillement
Application.ScreenUpdating = False
'supprimer l'ancien TCD
Columns("L:N").Select
    Selection.Delete Shift:=xlToLeft
   
    'créer le nouveau TCD
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        i, Version:= _
        xlPivotTableVersion12).CreatePivotTable TableDestination:="BPC!R3C12", _
        TableName:="PivotTable4", DefaultVersion:=xlPivotTableVersion12
        'Mise en forme du TCD
    Sheets("BPC").Select
    Cells(3, 12).Select
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("PivotTable4").PivotFields(j)
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveWorkbook.ShowPivotTableFieldList = False
   
    'Masque le TCD
      Columns("L:L").Select
    Selection.EntireColumn.Hidden = True
   
    'Définir la colonne du TCD comme source pour la liste de validation en A3
  Range("A3").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$L$4:$L$1000"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
      
'Filtre dans le TCD
ActiveSheet.PivotTables("PivotTable4").PivotFields(j).PivotFilters.Add _
        Type:=xlCaptionDoesNotBeginWith, Value1:="s"
       
    'Fin de parade anti- scintillement
    Application.ScreenUpdating = True
End Sub

banana32 · Answer

Bonsoir,
Je ne suis pas encore un expert en VBATu auras plus de chances d'obtenir une réponse en postant dans la bonne section du forum

propagandeman · Answer

Bonsoir, 

Je n'ai pas su trouver la partie vba "Excel" dans le listing des themes

NHenry · Answer

Bonjour, 

Le message a été déplacé dans la bonne section.
Ne marques réponse acceptée que si ton problème est résolu (je retire la marque).

As-tu tenté de mettre directement le contenu de la cellule en utilisant l'objet Range ?

---
Mon site

propagandeman · Answer

Hello,

J'ai essayé avec 
i = range("data'!B14").value

Il me réponds erreur 1004

Je vais me renseigner sur range ce soir dès mon retour du boulot .

NHenry · Answer

Bonjour, 

De quel type est i ?
Que donne le code résultant ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

propagandeman · Answer

Bonjour,

i devait être du texte vu qu'il est soit = "'Q:\LOGISTIQUE\[sapoV21.xlsx]cartouches'!G:G "
soit pourrait être =indirect(B14) ( en formulation excel...)

Mais je n'arrive pas a trouver les bonnes synthaxe

NHenry · Answer

Bonjour, 

Comment as-tu déclaré i ?
As-tu mis Option Explicit en haut de ton module ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

[VBA]Tableaux croisé dynamique avec source variable

8 réponses

Votre réponse

Discussions similaires