Discussion :

[CALOU3117]

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

[78chris]

Bonjour

Tu peux tester les divers ranges des TCD par exemple DataBodyRange : il est facile de savoir que le TCD ne renvoie rien en fonction du nombre de lignes de ce range (qui dépend de la structure du TCD mais tu vérifiés une fois et tu adaptes)

En espérant que cette propriété existait déjà sur 2000...

[CALOU3117]

Bonjour,

Merci pour votre réponse mais j'ai du mal à comprendre. Je suis novice en vba. Je me sers des forums pour arriver à en créer. Peux tu me fournir un peu plus de détails ?

Merci par avance,

Cdlt

[78chris]

Bonjour

Si tu es novice, use et abuse de l'aide en ligne d'une part et du mode debug d'autre part.

Si tu exécutes ton code en pas à pas avec une expression espionne de type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.PivotTables("Tableau croisé dynamique3").DataBodyRange.rows.count

tu verras, qu'en fonction de ton filtre, cette expression renvoie une valeur différente et que si ton filtre ne renvoie aucune ligne dans le TCD, la valeur renvoyée par l'expression sera très faible mais comme déjà dit, en fonction de la structure de ton TCD, je ne peux te dire si c'est 1 ligne ou 3...

[CALOU3117]

Bonjour,

Enfin de compte, j'ai réussi à contourner le problème en créant dans mon tableau d'origine une ligne vide que j'ai masqué avec seulement le statut de renseigné (public). Lorque je lance l'impression comme il trouve une valeur public, l'aperçu avant impression s'ouvre. Il ne bug plus. C'est pas le top mais bon cela solutionne momentanément le problème car je n'ai pas bien compris ce que tu voulais que je fasse

Merci

Cdlt