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

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion dungan
  • 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
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

Dernière édition:
Trier par date Trier par votes
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
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
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
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
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
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

A
  • Résolu(e)
XL 2016 Regroupement dates sur TCD
Réponses
3
Affichages
495
Aldonanou
A
O
  • Question Question
XL 2021 VBA / Macro et tableau croisé dynamique
Réponses
3
Affichages
508
oguruma
oguruma
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
chris
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
ERIC S
E
  • Question Question
XL 2013 VBA : filtre multicritères d'un TCD selon une liste définie dans un array
Réponses
6
Affichages
1 K
erictran
E
D
  • Résolu(e)
XL 2019 TCD ajout automatique des nouveaux champs (VBA)
Réponses
1
Affichages
870
DelphineDF
D
D
  • Question Question
XL 2010 Filtrer un champ d'un TCD en macro VBA
Réponses
0
Affichages
2 K
Demha_2022
D
kira97493
  • Question Question
XL 2019 Impossible de lire la propriété pivotitems de la classe pivotfield
Réponses
0
Affichages
1 K
kira97493
kira97493
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
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
1 K
mouchtre
mouchtre
D
  • Question Question
XL 2010 Actualiser un TCD en utilisant la macro VBA
Réponses
0
Affichages
2 K
Demha_2022
D
S
  • Résolu(e)
Autres excel 2021 VBA : Comment modifier un choix dans un segment d'un TCD (annuler & sélectionner) ?
Réponses
1
Affichages
4 K
Scoub
S
M
  • Question Question
Créer un TCD en vba dont le fichier source de données est variable
Réponses
1
Affichages
3 K
chris
chris
C
  • Question Question
XL 2013 Remplacer une valeur grâce à un code VBA
Réponses
7
Affichages
994
Hasco
Hasco
L
  • Question Question
XL 2016 mise à jour d'un tableau croisé dynamique via une macro
Réponses
1
Affichages
2 K
LN80
L
L
  • Question Question
XL 2016 décocher la dernière ligne d'un tcd
Réponses
4
Affichages
930
loiseau jonathan
L
K
  • Question Question
Microsoft 365 VBA - Bouton ne marche pas uniquement la première fois
Réponses
12
Affichages
2 K
mapomme
mapomme
P
  • Question Question
Microsoft 365 Filtrer un TCD à partir de cases à cocher
Réponses
0
Affichages
2 K
pepeboy
P
L
  • Question Question
XL 2010 vba pour masquer des colonnes lors d'un export
Réponses
1
Affichages
1 K
Staple1600
Staple1600
F
  • Question Question
selection automatique dans un TCD
Réponses
1
Affichages
1 K
merinos-BernardEtang
merinos-BernardEtang
Retour