V
Vincent
Guest
VBA & Tableau croisé dynamique
Bonsoir à tous,
HELP! J'ai besoin de votre aide. Un nouveau casse-tête à résoudre...
Voici le début d'une macro permettant de créer automatiquement un tableau croisé dynamique basé sur deux feuilles 'Feuil1' & 'Feuil2', et sur les données des colonnes D6 à H26 :
Sub synthese2()
Application.ScreenUpdating = Flase
ActiveWorkbook.PivotCaches.Add(SourceType:=xlConsolidation, SourceData:= _
Array(Array("'Feuil1'!R6C4:R26C8", "Élément1"), Array("'Feuil2'!R6C4:R26C8", _
"Élément2"))).CreatePivotTable TableDestination:=Range("A17"), TableName:= _
"Tableaucroisé"
End With
Problème : Le nom des feuilles ne sera pas figé !
- Comment faire pour que la macro suive si je renomme les feuilles (feuilA, feuilB, etc.) ?
- D'autre part, au lieu d'avoir "Elément1" et "Elément2" dans les libellés du tableau croisé, je souhaiterais qu'il s'agisse du nom des feuilles.
Merci d'avance pour votre aide et vos précieux conseils.
Bonne soirée.
Vincent
Bonsoir à tous,
HELP! J'ai besoin de votre aide. Un nouveau casse-tête à résoudre...
Voici le début d'une macro permettant de créer automatiquement un tableau croisé dynamique basé sur deux feuilles 'Feuil1' & 'Feuil2', et sur les données des colonnes D6 à H26 :
Sub synthese2()
Application.ScreenUpdating = Flase
ActiveWorkbook.PivotCaches.Add(SourceType:=xlConsolidation, SourceData:= _
Array(Array("'Feuil1'!R6C4:R26C8", "Élément1"), Array("'Feuil2'!R6C4:R26C8", _
"Élément2"))).CreatePivotTable TableDestination:=Range("A17"), TableName:= _
"Tableaucroisé"
End With
Problème : Le nom des feuilles ne sera pas figé !
- Comment faire pour que la macro suive si je renomme les feuilles (feuilA, feuilB, etc.) ?
- D'autre part, au lieu d'avoir "Elément1" et "Elément2" dans les libellés du tableau croisé, je souhaiterais qu'il s'agisse du nom des feuilles.
Merci d'avance pour votre aide et vos précieux conseils.
Bonne soirée.
Vincent