Discussion :

[Louax]

Bonjour,

Pourriez-vous me dire comment trouver le nombre de ligne par page que je puisse donner une hauteur de ligne ?
Ma feuille contient une liste de produit en colonne A
Avec VBA je fais le tri par article et je fais des sauts de page lorsque le nom de l'article change.
Ainsi en page 1 il y a 30 articles, en page 2 il y en a 16, en page 3 il y en a 22 et ainsi de suite.

Je pourrais faire une boucle pour déterminer quand commence la page et quand elle finit comme je fais avec les saut de pages.

Mais existe-t-il une fonction pour avoir le nombre de ligne par page.
A savoir que la hauteur est tellement faible au début que je ne peux avoir un nombre d'article sur deux pages.

Avec cette fonction je ferai une boucle sur le nombre de pages, et donc il me faudrait également la fonction pour avoir ce nombre.

Merci pour votre aide

[unparia]

Bonjour
La collection des sauts de page est la collection HPageBreaks, dont les indexes sont dans le même ordre que celui des sauts de page
L'adresse de la cellule précédent le nième saut de page s'obtient ainsi :

Code :

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

ActiveSheet.HPageBreaks(n).Location.Offset(-1).Address

Je te laisse donc parcourir, de 1 à sa propriété Count, la collection des sauts de page, extraire les adresses comme ci-dessus et faire une simple soustraction, à chaque itération, entre la ligne de l'adresse du saut de page n et celle du saut de page n-1.

[Louax]

Merci c'est impécable