Bonjour,
Suite à la discussion :
http://www.developpez.net/forums/d13...vot-table-vba/
j'ai enregistré une macro pour filtrer dans une table pivot les évènements du jour. lorsqu'il n'y a pas encore eut d'évènement je reçoit ce code d'erreur.
j'aimerais, plutôt que d'avoir cette erreur, avoir un msgbox m'avisant qu'il n'y a pas encore eut d'évènement et retourner à la feuille1. mais je ne sais pas comment faire. pouvez-vous m'aider svp?
voici mes codes:
Merci pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub Autorisation_sur_bureau() ' ' Autorisation_sur_bureau Macro ' ' Sheets("Feuil2").Select ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Date"). _ ClearAllFilters ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Date"). _ CurrentPage = Date End Sub
Madion
Partager