Ma macro enregistrée pour faire un TCD ne marche pas, comment la faire marcher ?

D

dungan

XLDnaute Nouveau
Tout est dans le titre :)

Je suis sous XP SP2 / Excel 2003
La situation :
Sur Feuil1 il y a les données sources sur 3 colonnes (date/Lang/TotalCount)
Je veux en faire un TCD qui me permette d'avoir un tableau à double entrée date / langue.

J'ai fait la manipulation à la main sous Excel en enregistrant la Macro, mais elle ne marche jamais (erreur 1004). J'ai beau refaire la manipulation, la macro enregistrée fait toujours un TCD uniquement avec TotalCount, sans même qu'apparaissent les autres champs dans la Liste de champs de TCD.

La macro enregistrée est la suivante :
Columns("A:C").Select
Range("C1").Activate
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Feuil1!C1:C3").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique7", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique7").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique7").PivotFields("TotalCount"), _
"Nombre de TotalCount", xlCount
With ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields("Lang")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields("date")
.Orientation = xlColumnField
.Position = 1
End With
Range("A3").Select
ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields( _
"Nombre de TotalCount").Function = xlSum
With ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields("date")
.PivotItems("(vide)").Visible = False
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields("Lang")
.PivotItems("(vide)").Visible = False
End With
End Sub

Je met en pièce jointe le fichier Excel qui me pose un problème, avec l'onglet "TCD fait par la macro" et l'onglet "TCD Visé" auquel je souhaite arriver.

Je galère depuis un certain temps sur le sujet sans rien vraiment trouver qui résout mon problème, je pense que j'ai loupé qqch, mais quoi ?
 

Pièces jointes

  • TCD_Macro_2.zip
    21.4 KB · Affichages: 96
  • TCD_Macro_2.zip
    21.4 KB · Affichages: 69
  • TCD_Macro_2.zip
    21.4 KB · Affichages: 66
Dernière édition:
Trier par date Trier par votes
JCGL

JCGL

XLDnaute Barbatruc
Re : Ma macro enregistrée pour faire un TCD ne marche pas, comment la faire marcher ?

Bonjour à tous,

Peux-tu essayer en remplaçant la partie en rouge par :

Code: 
"Feuil1!A1:C5000"

A+

Edition : Bonjour Gael


dungan à dit:
Tout est dans le titre :)
Je suis sous XP SP2 / Excel 2003
La situation :
Sur Feuil1 il y a les données sources sur 3 colonnes (date/Lang/TotalCount)
Je veux en faire un TCD qui me permette d'avoir un tableau à double entrée date / langue.

J'ai fait la manipulation à la main sous Excel en enregistrant la Macro, mais elle ne marche jamais (erreur 1004). J'ai beau refaire la manipulation, la macro enregistrée fait toujours un TCD uniquement avec TotalCount, sans même qu'apparaissent les autres champs dans la Liste de champs de TCD.

La macro enregistrée est la suivante :
Columns("A:C").Select
Range("C1").Activate
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Feuil1!C1:C3").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique7", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique7").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique7").PivotFields("TotalCount"), _
"Nombre de TotalCount", xlCount
With ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields("Lang")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields("date")
.Orientation = xlColumnField
.Position = 1
End With
Range("A3").Select
ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields( _
"Nombre de TotalCount").Function = xlSum
With ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields("date")
.PivotItems("(vide)").Visible = False
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields("Lang")
.PivotItems("(vide)").Visible = False
End With
End Sub

Je met en pièce jointe le fichier Excel qui me pose un problème, avec l'onglet "TCD fait par la macro" et l'onglet "TCD Visé" auquel je souhaite arriver.

Je galère depuis un certain temps sur le sujet sans rien vraiment trouver qui résout mon problème, je pense que j'ai loupé qqch, mais quoi ?
Cliquez pour agrandir...
 
Dernière édition:
Vote positif 0 Vote négatif
Gael

Gael

XLDnaute Barbatruc
Re : Ma macro enregistrée pour faire un TCD ne marche pas, comment la faire marcher ?

Bonjour Dungan, bonjour JCGL,

Comme JCGL, je te propose de remplacer "Feuil1!C1:C3" qui sélection 3 cellules et non 3 colonnes par:

Code: 
"Feuil1!$A$1:$C$" & Range("C5000").End(xlUp).Row).CreatePivotTable

"Range("C5000").End(xlUp).Row" va donner le numéro de la dernière ligne utilisée. Ce qui fait que tu peux également supprimer la partie destinée à ne pas afficher les (Vide) puisqu'il n'y en aura plus:

A supprimer:
Code: 
With ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields("date")
.PivotItems("(vide)").Visible = False
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields("Lang")
.PivotItems("(vide)").Visible = False
End With

@+

Gael
 
Vote positif 0 Vote négatif
Gael

Gael

XLDnaute Barbatruc
Re : Ma macro enregistrée pour faire un TCD ne marche pas, comment la faire marcher ?

Re,

Et même un peu plus simple:

Code: 
    Range("C1").Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        [COLOR=navy]ActiveCell.CurrentRegion[/COLOR]).CreatePivotTable TableDestination:="", TableName:= _

et tu peux supprimer aussi la première ligne "Columns("A:C").Select" qui ne sert à rien.

@+

Gael
 
Vote positif 0 Vote négatif
D

dungan

XLDnaute Nouveau
Re : Ma macro enregistrée pour faire un TCD ne marche pas, comment la faire marcher ?

Vu le temps que j'ai passé là-dessus, je n'aurais qu'une réponse : merci, merci beaucoup.

C'est tellement idiot, désolé de ne pas avoir vu l'erreur.

Bref, merci encore, ça m'enlève une sacré épine du pied :) :) :)

Figure de style à part,
 
Vote positif 0 Vote négatif
D

dungan

XLDnaute Nouveau
Re : Ma macro enregistrée pour faire un TCD ne marche pas, comment la faire marcher ?

Vu le temps que j'ai passé là-dessus, je n'aurais qu'une réponse : merci, merci beaucoup.

C'est tellement idiot, désolé de ne pas avoir vu l'erreur.

Bref, merci encore, ça m'enlève une sacré épine du pied :) :) :)
 
Dernière édition:
Vote positif 0 Vote négatif
CB60

CB60

XLDnaute Barbatruc
Re : Ma macro enregistrée pour faire un TCD ne marche pas, comment la faire marcher ?

Bonsoir
Voici ton exemple
 

Pièces jointes

  • TCD_Macro_2.zip
    26.7 KB · Affichages: 85
  • TCD_Macro_2.zip
    26.7 KB · Affichages: 89
  • TCD_Macro_2.zip
    26.7 KB · Affichages: 83
Vote positif 0 Vote négatif

Discussions similaires

A
  • Résolu(e)
XL 2016 Regroupement dates sur TCD
Réponses
3
Affichages
343
Aldonanou
A
O
  • Question
XL 2021 VBA / Macro et tableau croisé dynamique
Réponses
3
Affichages
245
oguruma
oguruma
D
  • Question
XL 2010 Création et mise à jour d'un TCD tableau croisé dynamique avec macro VBA
Réponses
1
Affichages
2 K
chris
chris
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
1 K
ERIC S
ERIC S
kira97493
  • Question
XL 2019 Impossible de lire la propriété pivotitems de la classe pivotfield
Réponses
0
Affichages
1 K
kira97493
kira97493
E
  • Question
XL 2013 VBA : filtre multicritères d'un TCD selon une liste définie dans un array
Réponses
6
Affichages
913
erictran
E
D
  • Résolu(e)
XL 2019 TCD ajout automatique des nouveaux champs (VBA)
Réponses
1
Affichages
698
DelphineDF
D
D
  • Question
XL 2010 Filtrer un champ d'un TCD en macro VBA
Réponses
0
Affichages
1 K
Demha_2022
D
R
  • Question
XL 2010 Création d'un tableau croisé dynamique à partir de cellule déjà sélectionnée
Réponses
1
Affichages
978
MP59
MP59
mouchtre
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
564
mouchtre
mouchtre

Membres actuellement en ligne

5 membres et 57 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 379
Messages
2 087 765
Membres
103 661
dernier inscrit
fcleves