Vba excel actualiser TCD

Résolu/Fermé

adelam - 20 déc. 2007 à 14:40
Twiggy - 20 févr. 2015 à 17:05

Bonjour,

Voila j'ai un fichier excel qui conteient une feuille de données et d'autres feuilles avec des TCD qui proviennent de ces données....
Je voudrais créer un bouton qui permettent d'actualiser tous les TCD en meme temps..

Je n'arrive pas à créer cette macro...
Si vous pouviez m'aider

Voila j'avais pensé a un truc comme ca mais les données dans les TCD ne sont pas mises a jour

Sub Tcd()

Dim Tcd As PivotTable
Dim sht As Worksheet

For Each sht In ActiveWorkbook.Worksheets
Next

For Each Tcd In PivotTables
Tcd.RefreshTable
Next

End Sub

Merci

A voir également:

Vba actualiser tcd
Tcd excel - Guide
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Actualiser tcd google sheet - Forum Bureautique
Incompatibilité de type vba ✓ - Forum Programmation
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA

4 réponses

Réponse 1 / 4

CCo
20 déc. 2007 à 14:51

voici l'instruction pour un TCD

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh

Sinon tu peux essayer cela:

ActiveWorkbook.RefreshAll

Bon courage

Réponse 2 / 4

alammerv
21 déc. 2007 à 09:00

en fait ca marche jusqu'a ce que je mette le fichier en partage...
Et la ca ne marche plus j'ai un message d'erreur qui apparait:

C'et une fenetre contenant la croix d'arret avec comme explication '400'
Comment puis je modifier le partage ou la macro pour que ce message d'erreur n'apparaisse plus?

Merci d'avance...

groussel Messages postés 1 Date d'inscription mercredi 29 février 2012 Statut Membre Dernière intervention 29 février 2012
29 févr. 2012 à 11:52

Bonjour,
La mise à jour d'un tableau croisé dynamique (TCD) n'est pas possible lorsque le "Partage" a été activé. D'ailleurs, vous vous en rendrez compte en tentant de le faire manuellement et non par code VBA. la ligne "Actualiser" est désactivée dans le menu contextuel.
Il est vrai que le message d'erreur n'est pas des plus clairs...

La solution que j'envisagerais est la suivante :
Avoir un autre fichier qui ne serait pas partagé contenant le TCD dont la mise à jour serait assurée par une macro exécutée depuis le fichier partagé.
Pour récupérer le résultat du TCD, il suffit ensuite d'utiliser des formules de liaison.

En espérant ne pas arriver trop tard... mais ça sert toujours :)

Excellement,

Gérald ROUSSEL.

Réponse 4 / 4

Twiggy
20 févr. 2015 à 17:05

Bonjour,

j'ai à peu près le même problème mais les solutions rpécédentes ne marchent pas.
En fait je cherche à faire une macro dans laquelle j'ai besoin d'actualiser à chaque tour de boucle (je change la valeur d'un menu déroulant et je veux actualiser les données correspondantes à cette nouvelle valeur choisie).

Voici mon code :

Dim i As Integer
For i = 3 To 200
Sheets("centre").Select
Cells(i, 1).Select
Selection.Copy
Sheets("vérif nature").Select
Cells(1, 10).Select
ActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = False

ActiveWorkbook.RefreshAll
Cells(67, 4).Select
Selection.Copy
Sheets("centre").Select
Cells(i, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("vérif nature").Select
Cells(68, 4).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("centre").Select
Cells(i, 3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("vérif nature").Select
Cells(69, 3).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("centre").Select
Cells(i, 4).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End Sub

Mais le refreshall ne marche pas, ça me copie la première valeur partout...

merci de votre aide si qn a une idée! :)
Léa

Discussions similaires

Méthode find dans VBA - Recherche de données sous Excel

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll

Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

Macro pour actualiser tous les TCD d'un classeur

Bonjour à tous,
J'ai un classeur Excel 2007 qui a 4 TCD sur 4 feuilles différentes. Je voudrais que les TCD se mettent à jour automatiquement dès que j'affiche la feuille.
J'ai bien trouvé une macro sur le net qui fonctionne, mais il faut la mettre dans chaque feuille :
Private Sub Worksheet_Activate()
ThisWorkbook.RefreshAll
End Sub
Est ce que vous pouvez corriger cette macro pour n'en avoir qu'une dans le classeur.
Merci

XCel:Moyenne pondérée et tableau croisé dynam

Bonjour à tous,

Je suis un petit nouveau.

Quelqu'un peut-il me dire comment faire pour insérer un calcul de Moyenne Pondérée dans un tableau croisé dynamique Excel?

Exemple: Supposons que j'ai 3 colonnes A, B et C. A est une colonne qui contient des codes de familles F1, F2, F3. Je souhaite calculer la moyenne de la colonne C pondérée par la colonne B pour chacune des familles F1, F2, F3.

Je pensais que le tableau croisé dynamique Excel pouvait faire ça mais je n'y suis pas parvenu. J'ai essayé avec les Champs calculés (formule) et avec les Options d'affichage du champ pivotTable (% de ceci, % ...) mais sans succès.

Merci d'avance pour ...

Ne pas afficher de 0 dans un tableau croisé

Bonjour,

Comment ne pas afficher de "0,00%" dans un tableau croisé dynamique sous Excel 2003, résultant d'une synthèse par nombre avec "% du total" ?
J'ai bien vu que dans les options générales des tableaux croisés on pouvait demander de ne pas afficher les 0 mais cela ne fonctionne pas pour cette colonne.

Je vous remercie par avance pour votre aide.
Cordialement,
Joëlle

ajouter colonne a remplir à un tableau croisé

Bonjour,
Voila mon problème : j'ai fait un tableau dynamique qui me permet de selectionner des informations sur des commandes suivant le client qui l'utilise.
Lorsque le client choisi son nom, des info apparaissent et il doit m'indiquer le pourcentage de livraison du produit.
Le problème est comment ajouter cette colonne remplissable à coté du tableau croisé?
Si je rajoute une colonne a coté, les lignes ne sont pas liées entre elles et lorsque je remet tous les clients les % ne sont plus en face des bonnes colonnes.

J'espere avoir été claire, c'est dur a expliquer.

Merci pour votre aide...

EXCEL fonction RECHERCHEV et CROISE DYNAMIQUE

Bonjour

Je me trouve face à un problème avec la valeur RECHERCHEV.

J’ai un tableau croisé en source comme suit :
Région PROD GROUP Somme de Consi Somme de Overstock
A PRODUIT A 57 4
PRODUIT B 24 1
PRODUIT C 45 1
PRODUIT D 21 1
Total A 263 7
B PRODUIT A 57 4
PRODUIT B 2 1
PRODUIT C 52 1
PRODUIT D 21 1
Total B xxx 7