Je travaille actuellement sur un dossier VBA, je doit créer un TCD afin de synthétiser les résultats d'une base de donnée qui possède un nombre de ligne variable.
Ma base de donnée est dans l'onglet "Base de donnée", et je souhaite insérer mon TCD mais le code pour le créer ressort toujours en erreur.
J'ai essayé plusieurs méthodes (enregistrement macro qui n'aboutit pas non plus, etc...), Pouvez m'aider?
Voici le code utilisé:
Sub TCD()
'Création des Tableaux croisées dynamiques
Dim maplage As Range
' Etape 1: effacer les tableaux déjà créés
Sheets("Tableaux").Cells.Clear
' Etape 2: Selection de la base de donnée
Sheets("Base de donnée").Activate
Sheets("Base de donnée").Range(Range("A5"), Range("K" & Rows.Count).End(xlUp)).Select 'nous sélectionnons le BDD précédent
Set maplage = selection 'choix de ma plage
'Ce sont toutes les informations que doit contenir le TCD
With tableau.PivotTables("Mon TCD Moyenne par note")
.PivotFields("Date ").Orientation = xlPageField
.PivotFields("N°de contrat").Orientation = xlPageField
.PivotFields("Société").Orientation = xlPageField
.PivotFields("Type de contrat ").Orientation = xlPageField
.AddFields RowFields:="Question"
.AddFields RowFields:="Réponse"
.PivotFields("Note").Orientation = xlDataField
.PivotFields("Note pondéré sur 10").Orientation = xlDataField
End With