Limiter l'affichage dans une feuille

[apt]

Bonsoir à tous,

Pour limiter l'affichage dans une feuille à 6 colonnes (A-F) et 10 lignes, j'utilise le fichier en PJ.

Mais voila je ne peux parvenir à ce que j'espérais.

Merci d'avance.

 

[Softmama]

Re : Limiter l'affichage dans une feuille

bonjour apt,

je ne suis pas bien certain de ce que tu souhaites faire. Vois si le fichier joint exauce ta demande .. ?

 

[apt]

Re : Limiter l'affichage dans une feuille

Bonsoir Softmama,

Reste le souci des barres de défilement qui devront-être figées pour ne pas permettre le défilement de la zone d'affichage.

Et puis le réglage automatique de la résolution d'écran est nécessaire pour s'adapter aux différents types d'affichage.

 

[Softmama]

Re : Limiter l'affichage dans une feuille

Bonsoir Softmama,

Reste le souci des barres de défilement qui devront-être figées pour ne pas permettre le défilement de la zone d'affichage.

Et puis le réglage automatique de la résolution d'écran est nécessaire pour s'adapter aux différents types d'affichage.

Ha bon ?? Vraiment ?

 

[Softmama]

Re : Limiter l'affichage dans une feuille

alors ainsi ?

 

[apt]

Re : Limiter l'affichage dans une feuille

Bonjour Softmama,

Je vois que tu fais tout cela manuellement ....

Mais reste que la molette de la souris défile encore la zone verticalement ....

 

[Softmama]

Re : Limiter l'affichage dans une feuille

bonjour,

vois si cela est mieux.

 

[apt]

Re : Limiter l'affichage dans une feuille

Bonsoir Softmama,

C'est bien.

Mais comment as-tu fais pour réaliser cela ?

Et est-ce que tu peux enregistrer les étapes sous un code VBA ?

Merci.

 

[Softmama]

Re : Limiter l'affichage dans une feuille

bonjour apt,

le code est dans le module Thisworkbook, il se lance automatiquement à l'ouverture du classeur.

    'Masquer les colonnes et les lignes superflues.
    Range(Columns("G"), Columns("G").End(xlToRight)).EntireColumn.Hidden = True
    Range(Rows("11"), Rows("11").End(xlDown)).EntireRow.Hidden = True

   'Virer les attirbuts inutiles.
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False

    Application.ScreenUpdating = False
      Feuil1.Activate
     
      'Zoom sur la zone A1:F10, de sorte qu'elle prenne toute la taille dispo
      Feuil1.Range("A1:F10").Select
      ActiveWindow.Zoom = True

      'Empêcher le scroll vertical en dehors de cette zone
      Feuil1.ScrollArea = "A1:F1"

      Range("A1").Select
    Application.ScreenUpdating = False

 

[apt]

Re : Limiter l'affichage dans une feuille

Bonsoir Softmama,

Aïe, aïe que je n'ai pas pensé de voir dans ThisWorkbook

Je vais revoir le code et essayer de l'adapter.

Cordialement.

 

[apt]

Re : Limiter l'affichage dans une feuille

Bonjour softmama,

J'ai essayé d'adapter ton code mais j'ai toujours un problème de zoom.

La zone de travail ne veut plus se réajuster à la fenêtre active et j'ai toujours un vide visuel a droite.

Encore un souci, c'est que les barres de défilement sont désactivées dans toutes les feuilles du classeur, au lieu de la feuille1 seulement.

J'ai essayé de figer la feuil1 avec ce code, mais je cherche à afficher les barres de défilement dans les autres feuilles :

Private Sub Workbook_Open()
    With Sheets("Feuil1")
        ActiveWindow.DisplayHeadings = False
        ActiveWindow.DisplayHorizontalScrollBar = False
        ActiveWindow.DisplayVerticalScrollBar = False
        Application.ScreenUpdating = False
        .ScrollArea = "A1:I1"
        .Range("A20").Select
        Application.ScreenUpdating = True
    End With
End Sub

🙁

 

[Pierrot93]

Re : Limiter l'affichage dans une feuille

Bonjour,

Encore un souci, c'est que les barres de défilement sont désactivées dans toutes les feuilles du classeur, au lieu de la feuille1 seulement.

J'ai essayé de figer la feuil1 avec ce code, mais je cherche à afficher les barres de défilement dans les autres feuilles :

réactive les dans l'événement "activate" des feuilles en question ou bien dans l'événement "Workbook_SheetActivate" du module "thisworkbook"...

bonne journée
@+

 

[apt]

Re : Limiter l'affichage dans une feuille

Bonsoir Pierrot,

Merci pour ta réponse.

Voila le code que j'ai utilisé pour activer les barres de défilement dans les autres feuilles outre que "Feuil1"

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    y = Sh.Name <> "Feuil1"
    ActiveWindow.DisplayHeadings = y
    ActiveWindow.DisplayHorizontalScrollBar = y
    ActiveWindow.DisplayVerticalScrollBar = y
End Sub