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 :

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
et sur une feuille:
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
Tous fonctionne très bien, le zoom s'adapte correctement!

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?