Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Tableau croisé dynamique

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

Jeremyy

XLDnaute Occasionnel
Bonjour a tous ,

voici mon probleme je dois faire un code en vba faisant un tableau croisé dynamique dont voici le code :
Code: 
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Feuil6!C1:C6").CreatePivotTable TableDestination:=Range("A2"), TableName:= _
        "Tableau croisé dynamique4"
mais le probleme est que celui si ne va pas sur ma feuil1 !

comment faire? merci d'avance a tous....
 
Trier par date Trier par votes
Re : Tableau croisé dynamique

Bonjour,
Essaies comme ceci
Code: 
With Sheets("Feuil1")
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Feuil6!C1:C6").CreatePivotTable TableDestination:=.Range("A2"), TableName:= _
        "Tableau croisé dynamique4"
End With
Par contre, la source de données est pour le moins étrange
A+
kjin
 
Vote positif 0 Vote négatif
Re : Tableau croisé dynamique

Re,
Comment renvoyer dans ton TCD des champs non compris dans ta plage source ?! le champs "Centre" existe mais pas dans la plage source et "Prénom" est lui inexistant !
Sans vraiment comprendre les données que tu cherches à consolider, un exemple à adapter
Code: 
Sub Macro1()
With Sheets("Feuil2")
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Feuil1!A1:G14").CreatePivotTable TableDestination:=[B][COLOR="Red"].[/COLOR][/B]Range("A1"), TableName:= _
        "Tableau croisé dynamique2"
    With .PivotTables("Tableau croisé dynamique2")
        .SmallGrid = False
        .AddFields RowFields:="Centre"
        .PivotFields("Nom").Orientation = xlDataField 'je n'ai pas vu de champ Prénom
        '.PivotSelect "", xlDataAndLabel ???
        .Format xlReport6
        .PivotFields("Centre").PivotItems("(vide)").Visible = False
    End With
End With
End Sub
N'oublie pas le point (en rouge dans le code)
A+
kjin
 
Vote positif 0 Vote négatif
Re : Tableau croisé dynamique

Bonjour a tous,

voici mon code qui me donne une erreur d'execution "1004 "
Code: 
    Sheets("Feuil6").Select
    Range("A2").Select
    With Sheets("Bulletin")
        ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Feuil6!L1C1:R" & Derligne & " C7").CreatePivotTable TableDestination:="", TableName:= _
        "Tableau croisé dynamique2"
    End With

Je ne vois pas ou est le probleme .

Pouvez vous m'aider ?

Merci d'avance a tous
 
Vote positif 0 Vote négatif
Re : Tableau croisé dynamique

Bonjour,
Un code extrait de son contexte ne veut rien dire
Donc soit tu fournis le code complet de la procédure, soit un extrait du fichier avec une note explicative
Mais là je ne pourrais rien te dire de plus
A+
kjin
 
Vote positif 0 Vote négatif
Re : Tableau croisé dynamique

Bonsoir, et bien le code s'aplique dans mon exmple car je souhaite créer un tableau croisé dynamique sur une feuille qui s'apelle bulletin a partir de la feuille 6 . Mais les données de ma feuille 6 sont variable d'un jour a l autre c'est pour cela qu'il y a "Derlign" qui est trouvé juste avant le code.
 
Vote positif 0 Vote négatif
Re : Tableau croisé dynamique

bonsoir a tous ,

j'ai besoin de votre aide c'est pour cela que je vous remet le code .

Désolé de reposté ma demande mais j'ai besoin de votre aide ! ! !

Code: 
 Sheets("Feuil6").Select
    Range("A2").Select
    With Sheets("Bulletin")
        ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Feuil6!L1C1:R" & Derligne & " C7").CreatePivotTable TableDestination:="", TableName:= _
        "Tableau croisé dynamique2"
    End With

ce code s'applique avec mon exemple ...

Merci d avance a tous
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
XL 2019 Tableau croisé dynamique
Réponses
9
Affichages
286
cathodique
L
  • Question Question
XL 2021 Tableau croisé dynamique
Réponses
7
Affichages
515
fanfan38
I
  • Résolu(e)
Microsoft 365 Tableau croisé dynamique
Réponses
2
Affichages
207
JHA
J
D
  • Question Question
XL 2016 Création Tableau Croisé Dynamique VBA
Réponses
2
Affichages
764
dysorthographie
G
  • Question Question
Autres TCD nouvelles données non visible
Réponses
9
Affichages
864
Gaëlle excel
G
M
  • Question Question
Microsoft 365 Erreur en créant un tableau croisé dynamique suggéré
2
Réponses
17
Affichages
2 K
moanin
M
P
  • Question Question
XL 2019 Créer des formules dans un tableau croisé dynamique
Réponses
10
Affichages
781
merinos-BernardEtang
3
  • Question Question
XL 2010 Copier un tableau croisé dynamique même si celui ci a un nombre de ligne variable
Réponses
4
Affichages
922
306255
3
T
  • Question Question
XL 2019 Tableau croisé dynamique connecté à des feuilles créée par un userform
Réponses
2
Affichages
574
Cousinhub
V
  • Question Question
Microsoft 365 affichage sélectif tableau croisé dynamique
2
Réponses
21
Affichages
2 K
vincent Blanchard
V
F
  • Question Question
Microsoft 365 Graphique croisé dynamique / graphique COMBINÉ
Réponses
9
Affichages
1 K
FF30
F
T
  • Question Question
XL 2016 Tableau Dynamique : Problème pourcentage moyen
Réponses
4
Affichages
888
Tom33700
T
B
  • Question Question
Microsoft 365 Excel - Tableau croisé dynamique
Réponses
12
Affichages
1 K
Benouze
B
V
  • Question Question
XL 2016 Pouvoir faire un tableau dynamique croisé avec des données en ligne
Réponses
13
Affichages
1 K
vivi21
V
D
  • Question Question
Vba macro pour créer un tableau croisé dynamique avec lignes variables
Réponses
1
Affichages
2 K
soan
S
M
  • Question Question
XL 2021 Créer une liste d'informations en colonne dans des cellules différentes
Réponses
3
Affichages
708
djidji59430
C
  • Résolu(e)
Microsoft 365 Graphique charge de travail répartie sur la journée
Réponses
3
Affichages
576
AtTheOne
D
  • Question Question
XL 2019 TCD par macro
Réponses
1
Affichages
761
chris
  • Question Question
XL 2021 Créer une requête SQL pour lire plusieurs Ranges?
2
Réponses
26
Affichages
2 K
dysorthographie
  • Question Question
Microsoft 365 Tableau croisé dynamique
Réponses
3
Affichages
657
JNC-DEV
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…