IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Fixer le réglage de l'affichage


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Janvier 2007
    Messages
    128
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2007
    Messages : 128
    Par défaut Fixer le réglage de l'affichage
    Bonjour,

    J’ai mis en forme sur Excel plusieurs graphiques. Ce document doit être utilisé depuis différents ordinateurs.

    J’ai un zoom réglé à 80% ce qui me permet d’avoir à l’affichage une sélection qui va de A1 : Y28

    Cependant lorsque j’ouvre mon fichier depuis d’autres ordinateurs même si mon zoom est réglé à 80%, je n’ai pas la même zone d’affichage.

    Y a-t-il une méthode pour spécifier que je souhaite avoir un affichage de A1 à Y28 ?

    D’avance, merci

  2. #2
    Membre éclairé
    Profil pro
    Inscrit en
    Mars 2010
    Messages
    53
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2010
    Messages : 53
    Par défaut
    Bonjour Emilie,

    Un essai, à copier dans le code-module de la feuille concernée.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Option Explicit
     
    Private Sub Worksheet_Activate()
        Application.ScreenUpdating = False
        Range("A1").CurrentRegion.Select
        ActiveWindow.ScrollColumn = 1
        ActiveWindow.ScrollRow = 1
        ActiveWindow.Zoom = True
        Application.ScreenUpdating = True
        Range("A1").Select
    End Sub
    Si ça ne marche pas, plus simple mais uniquement adapté à la zone A1:Y28
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub Worksheet_Activate()
        Range("A1:Y28").Select
        ActiveWindow.Zoom = True
        Range("A1").Select
    End Sub
    Cordialement

    R

Discussions similaires

  1. [Problème] - fixer la position d'affichage d'un panel dragable
    Par salawi45 dans le forum GWT et Vaadin
    Réponses: 0
    Dernier message: 27/03/2009, 12h26
  2. Fixer la précision numérique de l'affichage
    Par daussyb dans le forum MATLAB
    Réponses: 8
    Dernier message: 17/07/2008, 16h26
  3. Réponses: 1
    Dernier message: 23/08/2007, 22h01
  4. Réponses: 2
    Dernier message: 23/05/2007, 09h23
  5. Réponses: 9
    Dernier message: 17/03/2006, 15h01

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo