Actualisation de TCD après une effacement de données

Résolu

robbybasch Messages postés 101 Statut Membre -
jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention - 31 déc. 2014 à 15:02

Bonjour,

Je prépare mon nouveau plan comptable (pour une association), après l'aide de ce forum sur d'autres aspects, j'avance mais en ce moment je bloque sur le point suivant :
J'ai créé une macro effacement des données du journal de la comptabilité et je voudrais que lors du lancement de cette macro 1 j'efface mon journal (ce qui fonctionne), 2 actualiser tous mes TCD sur toutes les feuilles où ils sont écrits.
ma macro effacement :

Sub effacer()
             Worksheets("Journal").Range("A7:C3500").ClearContents
             Worksheets("Journal").Range("E7:H3500").ClearContents
End Sub

et je voudrais y ajouter du code vba pour actualiser les TCD.
J'ai trouvé pas mal de chose sur ce sujet, mais rien pour l'intégrer dans ma macro effacement.
Merci par avance de votre aide
CDL
Robby

Afficher la suite

2 réponses

Réponse 1 / 2
jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention 4 832
Bonjour,
```
Sub refreshAllTcd()
Dim oPivotTable As PivotTable
Dim Wkb As Workbook
Dim Sh As Worksheet
Set Wkb = ThisWorkbook
'on boucle sur toutes les feuilles du classeur
For Each Sh In Wkb.Worksheets
  'Si on est bien sur une feuille Excel (et non une feuille Graphique)
  If Sh.Type = XlSheetType.xlWorksheet Then
    'On actualise chaque TCD de la feuille
      For Each oPivotTable In Sh.PivotTables
        On Error Resume Next
        oPivotTable.RefreshTable
      Next oPivotTable
  End If
Next
End Sub
```
0
1. pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773
  
  Salut Jordane45,
  
  Sauf erreur de ma part que tu voudras bien relever, la déclaration
  Dim Sh As Worksheet
  associée au code
  For Each Sh In Wkb.Worksheets
  , empêche de boucler sur les feuilles de type Graph. Non?
  
  0
  1. jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention 4 832 > pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention
    
    Oui en effet..
    désolé.. à vouloir être "trop" prudent... on est redondant...
    
    Le bon code est donc :
    Sub refreshAllTcd() Dim oPivotTable As PivotTable Dim Wkb As Workbook Dim Sh As Worksheet Set Wkb = ThisWorkbook 'on boucle sur toutes les feuilles du classeur For Each Sh In Wkb.Worksheets 'On actualise chaque TCD de la feuille For Each oPivotTable In Sh.PivotTables On Error Resume Next oPivotTable.RefreshTable Next oPivotTable Next End Sub
    
    Merci Pika ;-)
    
    0
  2. pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773 > jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention
    
    Pas de quoi. C'est ma fainéantise chronique qui me pousse à écrire le moins possible...
    A+
    Et...
    
    Bon réveillon, bonne nouvelle année à toi!
    
    0
  3. jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention 4 832 > pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention
    
    C'est bien connu... pour être fainéant.. faut être intelligent :-)
    ( et moi j'en fou pas une... arghh.. mes chevilles enflent...:-) )
    Bon réveillon à toi aussi et bonne année ^^
    
    0
Réponse 2 / 2
robbybasch Messages postés 101 Statut Membre

Merci pour la rapidité de la réponse. Et la macro fonctionne parfaitement, je n'ai pas de graphiques donc la 1ère fonctionne nickel. Faut-il quand même mieux prendre la 2ème?
Une question que je ne comprends pas, si j'ai fait une erreur j'en suis navré, pourriez m'expliquer " avant de poser une question lire la charte du site" afin que je ne reproduise pas cette erreur.
CDL
Robby
0
1. pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773
  
  Salut,
  
  Prend le code que tu veux, les deux fonctionnent. C'est juste un point de détail.
  
  " avant de poser une question lire la charte du site"
  Est la signature (message qui fait automatiquement partie de toutes les réponses) de Jordane45. Donc pas nécessairement destiné à toi.
  Par contre, si tu n'as pas lu notre charte, je t'invite à le faire... ça peut toujours servir.
  A+
  
  0
2. jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention 4 832
  
  Bonjour,
  Les "deux" fonctions sont identiques.. sauf que la première faisait une vérification supplémentaire.. complètement inutile.
  Donc prend la seconde.
  
  Pour ce qui est de la "charte" .. c'est ma signature ... aucun rapport avec ce que tu as fais... (elle s'affiche sur tous mes messages) .
  :-)
  
  EDIT : Uniquement sur mes REPONSES .. pas dans les commentaires
  
  0

Actualisation de TCD après une effacement de données

2 réponses

Discussions similaires

Newsletters