Bonjour,

J'ai crée une macro pour imprimer des données d'un tableau croisé dynamique en fonction d'un critère (ici, c'est "public"). Le problème que je voudrais résoudre est que si le critère est inexistant, il m'imprime le tableau sans aucune valeur.

Voici ma macro :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub IMPRESSIONPUBLIC()
'
' IMPRESSIONPUBLIC Macro
' Macro enregistrée le 25/04/2015 par XXXXXXX
actualisation
      ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Gestionnaire paie").CurrentPage = "(Tous)"
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Statut"). _
        CurrentPage = "Public"
                lignefin = [A:E].Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
        ActiveSheet.PageSetup.PrintArea = Range("a1", Cells(lignefin, 5)).Address
            ActiveWindow.SelectedSheets.PrintPreview
Merci par avance pour votre aide

Cdlt