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

Problème avec les pivotTable (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
S

siocnarf

XLDnaute Occasionnel
Bonjour,

Je veux créer un tableau croisé Dynamique en VBA et j'ai toute sorte de petit problème. Je veux m'arracher les cheveux.

Préambule:
Ma macro est dans le chiffrier 1
Les données à traiter sont sur Feuil2 du chiffrier 2
Le tableau croisé dynamique devrait être sur Feuil3 du chiffrier 2.

À la ligne "Set Prange", j'obtiens une "Erreur 13: Incompatibilité de type"


Code: 
Windows("Tableau de saisie des serveurs_20091211_130105.xls").Activate
Sheets("Feuil3").Select

Set WSD = Worksheets("Feuil3")

' Delete any prior pivot tables
For Each PT In WSD.PivotTables
    PT.TableRange2.Clear
Next PT

Sheets("Feuil3").Range("K1").Select

'Ici je vais rechercher les informations de la dernières ligne et de la dernière colonne

FinalRow = Sheets("Feuil2").Cells(Application.Rows.Count, 1).End(xlUp).Row
FinalCol = Sheets("Feuil2").Cells(1, Application.Columns.Count).End(xlToLeft).Column

Set PRange = Sheets("Feuil2").Cells(1, 1).Resize(FinalRow, FinalCol)
Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=PRange)
    
Set PT = PTCache.CreatePivotTable(TableDestination:=WSD.Cells(2, FinalCol + 2), _
    TableName:="Tableau1", DefaultVersion:=xlPivotTableVersion10)
      
      ActiveWorkbook.ShowPivotTableFieldList = True
     
     With ActiveSheet.PivotTables("Tableau1").PivotFields("Système")
        '.Orientation = xlRowField
        '.position = 1
    End With
    
    With ActiveSheet.PivotTables("Tableau1").PivotFields("Type")
        .Orientation = xlColumnField
        .position = 1
    End With
    
    ActiveSheet.PivotTables("Tableau1").AddDataField ActiveSheet. _
        PivotTables("Tableau1").PivotFields( _
        "Liste des codes d'erreurs unifiée"), _
        "Nombre de Liste des codes d'erreurs unifiée", xlCount

Merci,
 
Trier par date Trier par votes
Re : Problème avec les pivotTable (Tableau croisé dynamique)

Bonjour,

J'ai retesté:

Code: 
VDataCol1 = Array("Serveurs", 1, "A")
VDataCol3 = Array("Type", 3, "C")
VDataCol10 = Array("Liste des codes d'erreurs unifiée", 10, "J")
VDataCol11 = Array("Système", 11, "K")
VDataCol12 = Array("Message de l'événement", 12, "L")
VFeuilExtractData = Array("Feuil2", 2, "Données extraites")
VFeuilStatData = Array("Feuil3", 3, "Statistiques")
StrTableaudebord = "Tableau de saisie des serveurs_20091211_130105.xls"
IntFinalColStat = 0
IntCoordColPremtableau = 0

Windows(StrTableaudebord).Activate
Sheets(VFeuilStatData(0)).Select

' Define input area and set up a Pivot Cache
FinalRow = Sheets("Feuil2").Cells(Application.Rows.Count, 1).End(xlUp).Row
FinalCol = Sheets("Feuil2").Cells(1, Application.Columns.Count).End(xlToLeft).Column
IntFinalColStat = Sheets("Feuil3").Cells(1, Application.Columns.Count).End(xlToLeft).Column

'Coordonnée de sortie du premier tableau--> Nombre de message pertinents par système
IntCoordPremtableau = "R1C" & IntFinalColStat + 2
StrTitrePremierTableau = "Événements par système"

Avec ce code cela fonctionne:

Code: 
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
       VFeuilExtractData(0) & "!R1C1:R" & FinalRow & "C" & FinalCol).CreatePivotTable TableDestination:= _
       "'[" & StrTableaudebord & "]" & VFeuilStatData(0) & "'!" & IntCoordPremtableau, _
       TableName:="Tableau1", DefaultVersion:= _
       xlPivotTableVersion10
   ActiveWorkbook.ShowPivotTableFieldList = True

   With ActiveSheet.PivotTables("Tableau1").PivotFields(VDataCol11(0) _
        )
        .Orientation = xlRowField
        .position = 1
    End With
    With ActiveSheet.PivotTables("Tableau1").PivotFields(VDataCol3(0))
        .Orientation = xlColumnField
        .position = 1
    End With
    ActiveSheet.PivotTables("Tableau1").AddDataField ActiveSheet. _
        PivotTables("Tableau1").PivotFields( _
        VDataCol10(0)), _
        StrTitrePremierTableau, xlCount

Et maintenant avec ce code cela semble fonctionner:

Code: 
Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=VFeuilExtractData(0) & "!R1C1:R" & FinalRow & "C" & FinalCol)
Set PT = PTCache.CreatePivotTable(TableDestination:= _
       "'[" & StrTableaudebord & "]" & VFeuilStatData(0) & "'!" & IntCoordPremtableau, TableName:="Tableau1", DefaultVersion:=xlPivotTableVersion10)

Je ne suis pas certain de comprendre pourquoi cela fonctionnerait plus ici...

Merci,
 
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

T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
C
  • Résolu(e)
XL 2016 VBA : inversion de Date sur Range.Resize ... = Tableau après Transpose du Tableau
Réponses
2
Affichages
345
crocrocro
C
M
  • Question Question
XL 2021 Créer une liste d'informations en colonne dans des cellules différentes
Réponses
3
Affichages
706
djidji59430
D
  • Question Question
Microsoft 365 Problème avec la fonction publishobjects
2 3
Réponses
37
Affichages
2 K
jurassic pork
O
  • Question Question
XL 2021 VBA / Macro et tableau croisé dynamique
Réponses
3
Affichages
615
oguruma
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
920
306255
3
M
  • Résolu(e)
XL 2016 comment créer une Barre de défilement ou faire simplement défiler son texte ?
2
Réponses
25
Affichages
2 K
melltel
M
C
  • Résolu(e)
XL 2021 Remplir données devis en vba avec descriptions/quantités/PUs alignés
2
Réponses
18
Affichages
2 K
Phil69970
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
D
  • Résolu(e)
Microsoft 365 Tableau dynamique croisé avec règles de gestion
Réponses
3
Affichages
630
DR85
D
O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
1 K
ChTi160
EXCEL :: Axes des abscisses dynamiques d'un graphique construit à partir d'un tableau croisé dynamique - Variante
Réponses
0
Affichages
592
oguruma
  • Résolu(e)
XL 2010 Problème màj feuilles depuis fichiers CSV
2
Réponses
23
Affichages
3 K
cathodique
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
E
  • Question Question
XL 2013 Déployer les "petites croix d'un TCD"
Réponses
9
Affichages
763
erics83
E
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
1 K
Messan
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
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
D
  • Question Question
Vba macro pour créer un tableau croisé dynamique avec lignes variables
Réponses
1
Affichages
2 K
soan
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…