[VBA] Pivot Table
Résolu
Inufus
-
Inufus -
Inufus -
Bonjour,
J'ai utilisé l'enregistreur de macro pour créer un tableau dynamique croisé dans le but d'étudier la façon de faire un tableau dynamique croisé en VBA.
Le hic, c'est que une fois la macro enregistrée via l'enregistreur de macro,
elle ne fonctionne pas.
J'ai une erreur :
"Erreur d'éxécution '5' : Argument ou appel de procédure incorrect"
Voilà mon code :
Là où j'ai positionné le "--->" est l'enroit où l'erreur arrive.
Merci d'avance !
J'ai utilisé l'enregistreur de macro pour créer un tableau dynamique croisé dans le but d'étudier la façon de faire un tableau dynamique croisé en VBA.
Le hic, c'est que une fois la macro enregistrée via l'enregistreur de macro,
elle ne fonctionne pas.
J'ai une erreur :
"Erreur d'éxécution '5' : Argument ou appel de procédure incorrect"
Voilà mon code :
Sub TableauDynCroise()
range("A1:D178").Select
Rand("M5").Activate
---->ActiveWorkbook.PivotCaches.Caches(SourceType:=xlDatabase, SourceData:="Liste!R1C1:R178C4", Version:xlPivotTableVersion10).CreatePivotTable TableDestination:="Feuil6!R1C1", TableName:= "Tableau croisé dynamique5", DefaultVersion:=xlPivotTableVersion10
Là où j'ai positionné le "--->" est l'enroit où l'erreur arrive.
Merci d'avance !
A voir également:
- [VBA] Pivot Table
- Table ascii - Guide
- Table des matières word - Guide
- Table des caractères - Guide
- Incompatibilité de type vba ✓ - Forum Programmation
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
1 réponse
Je l'ai résolu.
La solution :
La solution :
Sub TableauDynCroise()
range(Sheets("Liste").Cells(1,1),Sheets("Liste").Cells(4,178).Select
Rand("M5").Activate
---->ActiveWorkbook.PivotCaches.Caches(SourceType:=xlDatabase, SourceData:=range(Sheets("Liste").Cells(1,1),Sheets("Liste").Cells(4,178), Version:xlPivotTableVersion10).CreatePivotTable TableDestination:=Sheets("Feuil6).cells(1,1)", TableName:= "Tableau croisé dynamique5", DefaultVersion:=xlPivotTableVersion10