Bonjour le forum !
Voila mon problème: à l'affichage de chaque feuille je parametre le zoom selon les écrans (Fichier pour plusieurs utilisateurs!), de la façon suivante:
ds un module :
et sur une feuille:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Option Explicit Public LarGeur As String Sub MisePage() '** ici on active le zoom selon l'écran Application.ScreenUpdating = False Range(LarGeur).Select 'à préciser ActiveWindow.Zoom = True Range("a5").Select End Sub
Tous fonctionne très bien, le zoom s'adapte correctement!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Private Sub Worksheet_Activate() ActiveSheet.Unprotect Password:="741" 'ôté la protection de la feuille LarGeur = "a:L" MisePage end sub
Mais mon problème se trouve sur des listbox, bouton, spidbutton, combobox, car ça ne garde pas forcément la même proportion sur l'écran et selon les écrans!? L'affichage de la feuille est correcte mais pour les contrôles de formulaires ce n'est pas très bon !!!
Auriez vous une solution?
Partager