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

Tableau croisé construit par macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion stazpo
  • Date de début Date de début

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
S

stazpo

Guest
Bonjour,

Je souhaite pouvoir mettre en place une macro pour pouvoir créer un tableau croisé dynamique automatiquement.
Voilà ma commande en VBA qui ne marche pas

Sub tabo()
'
' tabo Macro
' Macro enregistrée le 17/03/2009 par Marc
'

'
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"admin").CreatePivotTable TableDestination:="TCD!R12C6", TableName:= _
"TCD", DefaultVersion:=xlPivotTableVersion10
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("TCD").PivotFields("DATE")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("TCD").PivotFields("NOM")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("TCD").AddDataField ActiveSheet.PivotTables("TCD"). _
PivotFields("CA"), "Nombre de CA", xlCount
End Sub

Excel me dit erreur d'execution '5'. Argument ou appel de procédure incorrect.

Merci pour votre aide

Stazpo
 
Trier par date Trier par votes
Re : Tableau croisé construit par macro

Pourquoi personne ne lit mon sujet ou ne m'aide sur le forum j'ai rien trouvé comme solution aidez moi c'est urgent
 
Vote positif 0 Vote négatif
Re : Tableau croisé construit par macro

Bonsoir,
Question posée à 20h29 et toujours pas de réponse à 20h53 !
Tu as raison, c'est tout simplement scandaleux 🙄
Code: 
Sub tabo()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="=admin") _
.CreatePivotTable TableDestination:="TCD!R12C6", TableName:="TCD"
With ActiveSheet.PivotTables("TCD").PivotFields("DATE")
    .Orientation = xlRowField
    .Position = 1
End With
With ActiveSheet.PivotTables("TCD").PivotFields("NOM")
    .Orientation = xlColumnField
    .Position = 1
End With
With ActiveSheet.PivotTables("TCD").PivotFields("CA")
    .Orientation = xlDataField
End With

End Sub
Version 2000 et avec les infos fournies (c'est à dire rien), je précise pour t'éviter un nouveau courroux
kjin
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

A
  • Résolu(e)
XL 2016 Regroupement dates sur TCD
Réponses
3
Affichages
603
Aldonanou
A
O
  • Question Question
XL 2021 VBA / Macro et tableau croisé dynamique
Réponses
3
Affichages
618
oguruma
D
  • Question Question
XL 2016 Création Tableau Croisé Dynamique VBA
Réponses
2
Affichages
765
dysorthographie
D
  • Question Question
XL 2010 Création et mise à jour d'un TCD tableau croisé dynamique avec macro VBA
Réponses
1
Affichages
3 K
chris
L
  • Question Question
Microsoft 365 TCD VBA SELECTION PLUSIEUR VALEUR
Réponses
3
Affichages
882
merinos-BernardEtang
R
  • Question Question
XL 2010 Création d'un tableau croisé dynamique à partir de cellule déjà sélectionnée
Réponses
1
Affichages
1 K
MP59
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
  • Question Question
XL 2016 VBA : création TCD à partir de feuilles variables - nommées
Réponses
10
Affichages
2 K
chris
D
  • Résolu(e)
XL 2019 TCD ajout automatique des nouveaux champs (VBA)
Réponses
1
Affichages
945
DelphineDF
D
D
  • Question Question
Vba macro pour créer un tableau croisé dynamique avec lignes variables
Réponses
1
Affichages
2 K
soan
S
D
  • Question Question
XL 2019 TCD par macro
Réponses
1
Affichages
766
chris
D
  • Question Question
XL 2010 Filtrer un champ d'un TCD en macro VBA
Réponses
0
Affichages
2 K
Demha_2022
D
M
  • Question Question
Créer un TCD en vba dont le fichier source de données est variable
Réponses
1
Affichages
4 K
chris
L
  • Question Question
XL 2016 mise à jour d'un tableau croisé dynamique via une macro
Réponses
1
Affichages
2 K
LN80
L
M
  • Question Question
XL 2016 Macro tableau croisé dynamique plage variable
Réponses
2
Affichages
3 K
chris
  • Question Question
XL 2013 TCD automatisé qui coince sur le pivotfields
Réponses
1
Affichages
2 K
Compte Supprimé 979
C
V
  • Question Question
XL 2016 Création de tableau dynamique croisé
3 4 5
Réponses
69
Affichages
9 K
VBA
V
T
  • Question Question
Microsoft 365 VBA - TCD - Liste des champs et filtres verrouillés
Réponses
1
Affichages
2 K
Tinytoons
T
C
  • Question Question
CREATION DE PLUSIEURS TCD VBA
2
Réponses
23
Affichages
4 K
Charles78
C
C
  • Question Question
Microsoft 365 GRAPHIQUE VBA - COMMENT INDIQUER UNE VALEUR A ZERO SUR LE GRAPHIQUE
Réponses
5
Affichages
2 K
Charles78
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…