Afficher une page précise dans excel

Question

Bonjour, j'ai besoin d'aide pour am&#233;liorer un programme de comptabilit&#233;.Dans mon classeur excel, dans certaines feuilles, chaque page correspond &#224; un mois de l'ann&#233;e en cours (page 1 janvier, page 2 f&#233;vrier ...).
Pour afficher un mois particulier je clique sur un bouton d&#233;signant le mois voulu.
j'utilise la fonction Cells(x, 1).Select  qui, pour afficher les pages, va s&#233;lectionner la premi&#232;re cellule de la ligne  x. Hors cette solution n'est pas satisfaisante car suivant la taille de l'&#233;cran utilis&#233;, la page est d&#233;cal&#233;e vers le haut ou le bas.
J'ai voulu essayer avec la commande Rows mais je n'y suis pas arriv&#233;.
En cliquant sur le bouton mars, je veux que la page 3 de la feuille de calcul s'affiche avec la premi&#232;re ligne de la page en haut de l'&#233;cran de visualisation.
Est ce qu'il existe une commande qui permet d'afficher une page  telle qu'elle est d&#233;finie par les sauts de page ?

Merci pour votre aide.

PHIPHI 974

jrivet · Answer

Salut,

Est ce que ce qui suit peut t'aider?

ActiveWorkbook.Sheet(NomDuMois).Range("A1").Select

Avec NomDuMois = "Mars" par exemple
@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_PHIPHI974 · Answer

Bonjour Julien,


le probl&#232;me c'est que la feuille ne porte pas le nom d'un mois mais par exemple "Bilan".


Il faut donc afficher une page de la feuille "Bilan"

Pour imprimer une feuille du mois d'avril (exemple), j'utilise la fonction suivante:
ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate:=True
Les commandes From et To  d&#233;finissent la page &#224; imprimer : 4 pour le mois d'avril.
Je cherche donc une fonction dans le m&#234;me style pour afficher la page 4 (pour Avril).

Merci pour le coup de main
Phiphi 974

CTAC · Answer

Bonjour,




Si la feuille comporte 4 pages dans ce sens

    1    3

    2    4


Application.Goto Cells(ActiveSheet.HPageBreaks(1).Location.Row, _
    ActiveSheet.VPageBreaks(1).Location.Column), True

ctac

cs_PHIPHI974 · Answer

Bonjour et merci pour les solutions propos&#233;es.

Je ne suis pas arriv&#233; &#224; utiliser la proposition de CTAC, mais en cherchant dans l'aide j'ai trouv&#233; la fonction suivante :
ActiveWindow.ScrollRow = X  , "X" &#233;tant la valeur de la ligne o&#249; se trouve le saut de page.

Exemple:
pour un saut de page &#224; la ligne 31 s&#233;parant  la page 1 et 2, la commande 
ActiveWindow.ScrollRow = 31 place la ligne 31 en haut de la fen&#234;tre de visualisation de la feuille.
Il faut donc juste rep&#233;rer tous les sauts de pages de la feuille et changer la valeur "X".

PHIPHI 974

Afficher une page précise dans excel

4 réponses

Discussions similaires