Tcd,pivotfield
mia1987
Messages postés
57
Statut
Membre
-
Keiser -
Keiser -
Bonjour,
svp est ce qu'il y'a klk pr m'aider,j'ai un blem ac les tableaux croisés dyn,on resoud un blem pr qu'u autre apparaisse :s:s:s !mn programme bloque à ce niveau ci:
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("avec")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("sans")
.Orientation = xlDataField
.Position = 1
End With
on me envoie l'erreur suivante :
impossible de lire la propriété pivotfields de la classe pivot table
merci pr votre aide
svp est ce qu'il y'a klk pr m'aider,j'ai un blem ac les tableaux croisés dyn,on resoud un blem pr qu'u autre apparaisse :s:s:s !mn programme bloque à ce niveau ci:
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("avec")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("sans")
.Orientation = xlDataField
.Position = 1
End With
on me envoie l'erreur suivante :
impossible de lire la propriété pivotfields de la classe pivot table
merci pr votre aide
A voir également:
- Tcd,pivotfield
- Tcd excel - Guide
- Tri tcd ne fonctionne pas ✓ - Forum Excel
- Actualiser tcd google sheet ✓ - Forum Excel
- Champs calculé tcd formule si - Forum Excel
- Tableau Google Sheets ✓ - Forum Google Docs
4 réponses
Mia,
l'index correspond au numéro de la feuille, si ton tcd est sur la seconde feuille tu écrit Sheets(2)
ou tu peux utiliser le nom de la feuille sheets("MaFeuille"), choisit la méthode qui te convient le mieux.
a+
l'index correspond au numéro de la feuille, si ton tcd est sur la seconde feuille tu écrit Sheets(2)
ou tu peux utiliser le nom de la feuille sheets("MaFeuille"), choisit la méthode qui te convient le mieux.
a+
Salut mia,
Remplace ActiveSheet par Sheets(index), où index est le numéro d'index ou le nom de la feuille contenant le TCD.
Remplace ActiveSheet par Sheets(index), où index est le numéro d'index ou le nom de la feuille contenant le TCD.
Merci Keiser :)
je sais pas pourquoi ça marche pas :s!
sinn, est ce que t'as uen idée sur cmt rendre la macro excecutable? parceque je veux la rendre plus générale,comme ça elle sera plus liée à mn fichier!
merci encore
je sais pas pourquoi ça marche pas :s!
sinn, est ce que t'as uen idée sur cmt rendre la macro excecutable? parceque je veux la rendre plus générale,comme ça elle sera plus liée à mn fichier!
merci encore
Hello mia,
Peut etre l'erreur vient du nom du Tcd, essaye ce code :
j'ai remplacé le nom du Tcd par un numéro d'index, c'est à dire je lui indique de prendre le 1er Tcd dans la feuille active.
With ActiveSheet.PivotTables(1).PivotFields("avec")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables(1).PivotFields("sans")
.Orientation = xlDataField
.Position = 1
End With
a+
Peut etre l'erreur vient du nom du Tcd, essaye ce code :
j'ai remplacé le nom du Tcd par un numéro d'index, c'est à dire je lui indique de prendre le 1er Tcd dans la feuille active.
With ActiveSheet.PivotTables(1).PivotFields("avec")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables(1).PivotFields("sans")
.Orientation = xlDataField
.Position = 1
End With
a+
