Discussion :

[letal]

Bonjour,

Est-ce que c'est possible récupérer la valeur du printArea?
J'ai un bout de code qui construit mon tableau avec des données, ensuite il m'ajoute des sauts de pages (suivants certaines conditions) et pour terminer il active la zone d'impression avec cette ligne:

Code :

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

ActiveSheet.PageSetup.PrintArea = "A1:AB" & k - 1

J'aimerais pouvoir récupérer cette valeur. Par exemple dans mon cas, il m'a activé 28 pages!
Je ne sais pas faire cela... Si quelqu'un a une idée?

Merci à vous.

[Al__22]

Code :

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

ActiveWindow.SelectedSheets.HPageBreaks.Count + 1

Te donne le nombre de pages créées sur la hauteur

Code :

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

ActiveWindow.SelectedSheets.VPageBreaks.Count + 1

Te donne le nombre de pages créées sur la largeur

Après tu as plus qu'à faire une multiplication
Ca donne :

Code :

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

1
2
3
x = ActiveWindow.SelectedSheets.HPageBreaks.Count + 1
y = ActiveWindow.SelectedSheets.VPageBreaks.Count + 1
nbpage = x * y

[MacKay77]

Bonjour,

J'ai l'impression que l'erreur vient de la valeur que tu donnes au printarea.

Code :

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

ActiveSheet.PageSetup.PrintArea = "A$1:AB$" & k - 1

Essayes comme ça.
Bonne journée.

[letal]

hello,

Merci pour vos réponses

J'ai l'impression que l'erreur vient de la valeur que tu donnes au printarea.

Pour info, il n'y a pas de soucis ou bug, il fonctionne exactement comme je veux, mais j'avais besoin de récupérer la valeur de la var pour l'utiliser plus loin pour autre chose!

...et c'est bien cela dont j'avais besoin, d'un "count"

compteurPage = ActiveWindow.SelectedSheets.HPageBreaks.Count + 1

Grand merci à vous et à une prochaine