Taille écran à l'ouverture du fichier

[marcelio]

Bonjour à tous,

Je travaille avec un fichier qui à au moins 40 feuilles et je suis amener à travailler sur 2 ordinateurs avec une taille d'écran différent

Est il possible d'avoir la taille automatique en fonction de l'écran à l'ouverture du fichier.

Merci d'avance

Marcelio

 

[JCGL]

Re : Taille écran à l'ouverture du fichier

Bonjour à tous,

Un code de Ti 🙂 qui zoom sur la zone d'impression.

Je ne sais pas si cela répondra à ton problème...

Option Explicit

Private Sub Worksheet_Activate()
'Ti
'http://www.veriti.net
'Zoom automatique sur une zone d'impression
    Dim Area$, Cel As Range
    On Error Resume Next
    With ActiveSheet
        Set Cel = Selection
        If Cel Is Nothing Then Set Cel = .Range("A1")
        Area = .PageSetup.PrintArea
        If Area <> "" Then
            .Range(Area).Select
            ActiveWindow.Zoom = True
        End If
    End With
    Cel.Select
End Sub

A placer dans le module de la feuille (lancement de la macro sur l'activation de la feuille)
A+

 

[marcelio]

Re : Taille écran à l'ouverture du fichier

Merci JCGL c'est superbe

Aurait tu en réserve la solution pour la taille des USF.

Encore merci

A++

 

[JCGL]

Re : Taille écran à l'ouverture du fichier

Re,

Fais un recherche sur "Taille USF" et "Michel XLD".

Il me semble que tu trouveras ton bonheur.

A+

Edition : Il était dans le bas de la page (questions similaires) 😛

 Private Sub UserForm_Activate() 'MichelXLD sur XLD
With UserForm1
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
End Sub

 

[marcelio]

Re : Taille écran à l'ouverture du fichier

je te remercie je fais faire les recherches

Merci encore et bonne soirée à toi et au Forum

Marcelio