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
A voir également:
Actualisation de TCD après une effacement de données
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
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
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 ^^
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
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+
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
- Messages postés
-
12238
- Date d'inscription
- jeudi 15 mai 2008
- Statut
- Modérateur
- Dernière intervention
- 26 janvier 2021
2 559Sauf erreur de ma part que tu voudras bien relever, la déclaration associée au code , empêche de boucler sur les feuilles de type Graph. Non?
- Messages postés
-
31205
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
- Modérateur
- Dernière intervention
- 26 janvier 2021
3 215 > pijakudé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 SubMerci Pika ;-)
- Messages postés
-
12238
- Date d'inscription
- jeudi 15 mai 2008
- Statut
- Modérateur
- Dernière intervention
- 26 janvier 2021
2 559 > jordane45A+
Et...
Bon réveillon, bonne nouvelle année à toi!
- Messages postés
-
31205
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
- Modérateur
- Dernière intervention
- 26 janvier 2021
3 215 > pijaku( et moi j'en fou pas une... arghh.. mes chevilles enflent...:-) )
Bon réveillon à toi aussi et bonne année ^^