Macro TCD

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

mimiaqu

Guest
Bonjour à tous,

Je sollicite vos connaissances pour m’éclairer sur un problème qui m’empêche d'avancer,
Grâce a l'enregistreur de Macro j'ai créé un TCD sauf que celle ci ne marche pas et je comprend pas pourquoi (débutante en VBA).

Pourriez vous m'aidez à résoudre ce problème SVP
Toute autre amélioration de ce code serait également la bienvenue.

Bonne journée à vous tous
 

Pièces jointes

Trier par date Trier par votes
Re : Macro TCD

Bonjour,

tu as déjà un tcd nommé "tableau croisé dynamique1".... supprime le au préalable, préférable d'utiliser une variable objet, exemple ci-dessous pour la création :

Code: 
Dim TCD As PivotTable
With Sheets("tcd")
    If .PivotTables.Count > 0 Then .PivotTables(1).TableRange2.Delete
    Set TCD = .PivotTableWizard(xlDatabase, Sheets("stat").Range("A1").CurrentRegion, .Range("A1"))
End With

te reste plus qu'à utiliser la variable TCD pour la mise en place des champs ....

bonne journée
@+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro TCD

j'ai essayé avec votre solution mais ça bloque toujours, ça me met erreur 1004
Code: 
Sub TCD()
'
' tcd Macro
'
  
  Dim TCD As PivotTable
With Sheets("tcd")
    If .PivotTables.Count > 1 Then .PivotTables(1).TableRange2.Delete
    Set TCD = .PivotTableWizard(xlDatabase, Sheets("stat").Range("A1").CurrentRegion, .Range("A1"))
End With
   
    With ActiveSheet.PivotTables("TCD").PivotFields("tg_nat")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("TCD").AddDataField ActiveSheet. _
        PivotTables("TCD").PivotFields("tg_nat"), _
        "Nombre de tg_nat", xlCount
    ActiveSheet.PivotTables("TCD").PivotFields( _
        "Nombre de tg_nat").Caption = "Occurences"
    ActiveSheet.PivotTables("TCD").AddDataField ActiveSheet. _
        PivotTables("TCD").PivotFields("tg_nat"), _
        "Nombre de tg_nat", xlCount
    With ActiveSheet.PivotTables("TCD").PivotFields( _
        "Nombre de tg_nat")
        .Caption = "Cumul"
        .Calculation = xlPercentRunningTotal
        .BaseField = "tg_nat"
        .NumberFormat = "0,00%"
    End With
    With ActiveSheet.PivotTables("TCD").PivotFields("Cumul")
        .NumberFormat = "0%"
    End With
    ActiveSheet.PivotTables("TCD").AddDataField ActiveSheet. _
        PivotTables("TCD").PivotFields("Q_compenser"), _
        "Nombre de Q_compenser", xlCount
    With ActiveSheet.PivotTables("TCD").PivotFields( _
        "Nombre de Q_compenser")
        .Caption = "Min de Q_compenser"
        .Function = xlMin
    End With
    Range("B6").Select
    ActiveSheet.PivotTables("TCD").PivotFields("tg_nat"). _
        AutoSort xlDescending, "Occurences", ActiveSheet.PivotTables( _
        "TCD").PivotColumnAxis.PivotLines(1), 1
End Sub
 
Vote positif 0 Vote négatif
Re : Macro TCD

Re,

aarf autant pour moi, le test indiqué est erroné, tester si > 0 en fait...
Code: 
Dim TCD As PivotTable
With Sheets("tcd")
    If .PivotTables.Count > 0 Then .PivotTables(1).TableRange2.Delete
    Set TCD = .PivotTableWizard(xlDatabase, Sheets("stat").Range("A1").CurrentRegion, .Range("A1"))
End With

attention le nom de variable doit être différent du nom de la procédure....

ensuite remplacer partout dans le code :
Code: 
ActiveSheet.PivotTables("TCD")
par :
Code: 
TCD
 
Vote positif 0 Vote négatif
Re : Macro TCD

Re,

cela pourrait donner ceci, à tester :
Code: 
Sub test()
Dim TCD As PivotTable
With Sheets("tcd")
    If .PivotTables.Count > 0 Then .PivotTables(1).TableRange2.Delete
    Set TCD = .PivotTableWizard(xlDatabase, Sheets("stat").Range("A1").CurrentRegion, .Range("A1"))
End With
With TCD
    With .PivotFields("tg_nat")
        .Orientation = xlRowField
        .Position = 1
    End With
    .AddDataField .PivotFields("tg_nat"), "Nombre de tg_nat", xlCount
    .PivotFields("Nombre de tg_nat").Caption = "Occurences"
    .AddDataField .PivotFields("tg_nat"), "Nombre de tg_nat", xlCount
    With .PivotFields("Nombre de tg_nat")
        .Caption = "Cumul"
        .Calculation = xlPercentRunningTotal
        .BaseField = "tg_nat"
        .NumberFormat = "0,00%"
    End With
    With .PivotFields("Cumul")
        .NumberFormat = "0%"
    End With
    .AddDataField .PivotFields("Q_compenser"), "Nombre de Q_compenser", xlCount
    With .PivotFields("Nombre de Q_compenser")
        .Caption = "Min de Q_compenser"
        .Function = xlMin
    End With
    .PivotFields("tg_nat").AutoSort xlDescending, "Occurences", .PivotColumnAxis.PivotLines(1), 1
End With
End Sub
 
Vote positif 0 Vote négatif
Re : Macro TCD

Re,

avec ceci, j'obtiens le même résultat que dans ton fichier, sauf la présentation :

Code: 
Sub test()
Dim TCD As PivotTable
With Sheets("tcd")
    If .PivotTables.Count > 0 Then .PivotTables(1).TableRange2.Delete
    Set TCD = .PivotTableWizard(xlDatabase, Sheets("stat").Range("A1").CurrentRegion, .Range("A1"))
End With
With TCD
    .AddDataField .PivotFields("tg_nat"), "Nombre de tg_nat", xlCount
    .PivotFields("Nombre de tg_nat").Caption = "Occurences"
    .AddDataField .PivotFields("tg_nat"), "Nombre de tg_nat", xlCount
    With .PivotFields("tg_nat")
        .Orientation = xlRowField
        .Position = 1
    End With
    With .PivotFields("Nombre de tg_nat")
        .Caption = "Cumul"
        .Calculation = xlPercentRunningTotal
        .BaseField = "tg_nat"
        .NumberFormat = "0,00%"
    End With
    With .PivotFields("Cumul")
        .NumberFormat = "0%"
    End With
    .AddDataField .PivotFields("Q_compenser"), "Nombre de Q_compenser", xlCount
    With .PivotFields("Nombre de Q_compenser")
        .Caption = "Min de Q_compenser"
        .Function = xlMin
    End With
        With .DataPivotField
        .Orientation = xlColumnField
        .Position = 1
    End With
    .PivotFields("tg_nat").AutoSort xlDescending, "Occurences", .PivotColumnAxis.PivotLines(1), 1
End With
End Sub

bon après midi
@+
 
Vote positif 0 Vote négatif
Re : Macro TCD

Re,

en optimisant un peu :
Code: 
Option Explicit
Sub test()
Dim TCD As PivotTable
With Sheets("tcd")
    If .PivotTables.Count > 0 Then .PivotTables(1).TableRange2.Delete
    Set TCD = .PivotTableWizard(xlDatabase, Sheets("stat").Range("A1").CurrentRegion, .Range("A1"))
End With
With TCD
    .AddDataField .PivotFields("tg_nat"), "Occurences", xlCount
    .AddDataField .PivotFields("tg_nat"), "Nombre de tg_nat", xlCount
    .AddDataField .PivotFields("Q_compenser"), "Min de Q_compenser", xlMin
    With .PivotFields("tg_nat")
        .Orientation = xlRowField
        .Position = 1
    End With
    With .PivotFields("Nombre de tg_nat")
        .Caption = "Cumul"
        .Calculation = xlPercentRunningTotal
        .BaseField = "tg_nat"
        .NumberFormat = "0%"
    End With
    With .DataPivotField
        .Orientation = xlColumnField
        .Position = 1
    End With
    .PivotFields("tg_nat").AutoSort xlDescending, "Occurences", .PivotColumnAxis.PivotLines(1), 1
End With
End Sub
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

D
  • Question Question
Microsoft 365 faire un tableau de suivi d'activité sur la base d'un TCD avec filtre
Réponses
0
Affichages
378
Daniel200666
D
F
  • Question Question
Microsoft 365 macro TCD
Réponses
4
Affichages
366
AtTheOne
AtTheOne
Titof06
  • Résolu(e)
XL 2019 Erreur de Type à la ligne 5581
Réponses
5
Affichages
398
Titof06
Titof06
D
  • Question Question
Microsoft 365 Envoi par mail d'un tcd
2
Réponses
16
Affichages
2 K
Rabeto
R
PORCHER
  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
358
AtTheOne
AtTheOne
Saalut
  • Question Question
XL 2019 J’ai tenté de filtrer les anomalies dans le tableau en utilisant un code VBA. Malheureusement, le code initial ne semble pas fonctionner correctement.
Réponses
2
Affichages
414
Saalut
Saalut
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
649
JJ69
J
p'tit vieux
  • Question Question
XL 2021 FINDXTREME: Je compte sur vos avis sur ce projet … Par avance MERCI
Réponses
10
Affichages
370
p'tit vieux
p'tit vieux
D
  • Question Question
Microsoft 365 Macro mais je ne comprends pas mon erreur
Réponses
9
Affichages
613
TooFatBoy
TooFatBoy
F
  • Question Question
Microsoft 365 Excel Calendrier dynamique sur plusieurs années
Réponses
11
Affichages
1 K
Fanny754
F
A
  • Question Question
Microsoft 365 Erreur TCD
Réponses
5
Affichages
679
merinos-BernardEtang
merinos-BernardEtang
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
586
ManuEven
M
P
  • Question Question
Microsoft 365 Problème affichage des données d'un graphique
Réponses
2
Affichages
883
Piment
P
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
job75
O
  • Résolu(e)
Microsoft 365 Amélioration/réparation d'une Macro et création d'un bouton pour calcul consommation
2
Réponses
27
Affichages
2 K
Olihoes
O
B
  • Résolu(e)
XL 2016 suivi de projet
Réponses
2
Affichages
749
BRUNO GILL
B
jeff1494
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
jeff1494
L
  • Question Question
XL 2021 Filtres et tris qui ne fonctionnent pas après exécution d'une macro
Réponses
9
Affichages
746
Compte Supprimé 979
C
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
852
AtTheOne
AtTheOne
O
  • Question Question
XL 2019 erreur de valeur sur formule
2
Réponses
18
Affichages
1 K
olivier1984
O
Retour