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

VBA - Travail sur Tableaux Croisés - Code optimisable ???

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion La braise
  • Date de début Date de début

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
L

La braise

XLDnaute Occasionnel
Bonjour à Tous,

J'utilise une macro qui ouvre un fichier modèle, actualise les différents tableaux croisés dynamique et modifie la valeur d'un champ de tous les croisés dynamique.
Mon code est laborieux et est surement optimisable... Je fais largement confiance à votre science... 😛

Mon code :

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
On Error Resume Next
ws.PivotTables("Tableau croisé dynamique1").PivotFields("Région"). _
CurrentPage = FieldTCD
ws.PivotTables("Tableau croisé dynamique2").PivotFields("Région"). _
CurrentPage = FieldTCD
ws.PivotTables("Tableau croisé dynamique3").PivotFields("Région"). _
CurrentPage = FieldTCD
ws.PivotTables("Tableau croisé dynamique4").PivotFields("Région"). _
CurrentPage = FieldTCD
ws.PivotTables("Tableau croisé dynamique5").PivotFields("Région"). _
CurrentPage = FieldTCD
Next ws​

J'aimerais en une ligne appliquer ma correction de valeur (le champ région dans l'exemple) sur tous les tableaux croisés sans être obligé de les nommer un par un.

D'avance merci pour votre aide et vos pistes de réflexion.

Bon week-end.
 
Trier par date Trier par votes
Re : VBA - Travail sur Tableaux Croisés - Code optimisable ???

bonjour la braise

En 1 ligne c'est peu !!

je te propose de tester
Code: 
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
On Error Resume Next
for n=1 to 5
ws.PivotTables("Tableau croisé dynamique" & n).PivotFields("Région"). _
CurrentPage = FieldTCD
next n
on error goto 0
Next ws
 
Vote positif 0 Vote négatif
Re : VBA - Travail sur Tableaux Croisés - Code optimisable ???

Bonjour pierrejean,

En une ligne au lieu d'une par tableau.. 🙂

Ta solution me plait beaucoup... 🙂
Je vais essayer ça au plus vite.

Juste une question :

à quoi sert la commande :
​
on error goto 0

Merci beaucoup.
 
Vote positif 0 Vote négatif
Re : VBA - Travail sur Tableaux Croisés - Code optimisable ???

Re

on error goto 0 remet la gestion d'erreur dans les conditions d'origine alors que
on error resume next fait passer a la ligne suivante
une gestion rigoureuse demande que l'on ait les 2lignes on error le + proche l'une de l'autre en encadrant la seule ligne pouvant generer une erreur (que l'on connait et que l'on accepte)
 
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

L
  • Question Question
XL 2019 actualisation de plusieurs tableaux croisés dynamiques vba
Réponses
9
Affichages
2 K
Hasco
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
M
  • Question Question
XL 2019 Code VBA
Réponses
12
Affichages
940
MarieLN
M
M
  • Question Question
Créer un TCD en vba dont le fichier source de données est variable
Réponses
1
Affichages
4 K
chris
C
  • Question Question
XL 2010 VBA : boucler sur les étiquettes visibles d'un TCD
Réponses
0
Affichages
1 K
CHKY
C
L
  • Question Question
XL 2016 mise à jour d'un tableau croisé dynamique via une macro
Réponses
1
Affichages
2 K
LN80
L
R
  • Question Question
Valeur de la cellule dans macro
Réponses
2
Affichages
945
Ricco
R
X
  • Question Question
XL 2013 Allègement d'une macro
Réponses
10
Affichages
2 K
Xorys
X
A
  • Question Question
XL 2010 Application plusieurs filtres sur un TCD en fonction d'une cellule [VBA]
Réponses
11
Affichages
8 K
merinos-BernardEtang
C
  • Question Question
XL 2010 Probleme de filtre tcd avec une macro
Réponses
4
Affichages
2 K
cerb_r
C
S
  • Question Question
XL 2013 TCD : comment intervenir sur un filtre en champ Page ?
Réponses
8
Affichages
2 K
Sebast
S
  • Question Question
Code macro
Réponses
2
Affichages
699
gourdin
C
  • Question Question
Tableau croisé dynamique
Réponses
1
Affichages
685
Paritec
G
  • Question Question
mise a jour TCD suivant combobox
Réponses
2
Affichages
1 K
gonz19
G
T
  • Question Question
problème avec code vba pour TCD
Réponses
2
Affichages
2 K
TOINE38
T
D
  • Question Question
Message d'erreur vba création de tableaux croisés dynamique
Réponses
2
Affichages
2 K
Daroum
D
M
  • Question Question
Simplification et amélioration code VBA
Réponses
6
Affichages
2 K
Merlin258413
M
H
  • Question Question
Taille Tableaux croisés dynamique
Réponses
9
Affichages
994
Hamza
H
K
  • Question Question
trier filtre de champs dans TCD sur base COMBOBOX
Réponses
1
Affichages
1 K
kikol
K
S
  • Question Question
Erreur code vba sur les tableaux
Réponses
2
Affichages
549
sevy1
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…