Bonjour à tous
 
Je sais faire en sorte que mon userform1 occupe tout l'écran, soit le code suivant:

Sub demarrage()
 
With UserForm1
    .Height = Application.Height
    .Width = Application.Width
End With
 
End sub
 
Ca fonctionne trés bien pour le userform1 qui s'adapte à la taille de l'écran et à la résolution.
 
Mon problème, c'est que les boutons qui sont sur userform1 conservent leurs tailles d'origine alors que je voudrais que celles -ci soient proportionnelles à userform1.
 
Quelqu'un a-t-il une idée?
 
Merci d'avance
 
Ron  

salut ron,
j'ai une petite idée..
Dabord, tu récupères les hauteur et largeur de ton userForm.
ensuite, il faut que tu redéfinisses pour chaque bouton leur largeur et hauteur.
 
Exemple pour une zone de liste:
Si X est la largeur de ton UserForm
Si Y est la hauteur de ton UserForm
 
TonUserForm.TaZonedeListe.Width = 10*100/X
     (si tu veux que ta liste fasse 10% de la largeur totale de ton userform)
 
pour la hauteur, c'est height.
 
Et voilà!
 
moi aussi, je bloque sur un truc, si tu peux m'aider, j'ai laisser un post. Merci
 

Merci Escartephil
 
Mais ma macro contient beaucoup trop d'objets pour que je puisse faire ça.
 
Par contre, j'ai trouvé une solution de racro:
 
'Détermination de la taille du userform:
With UserForm1  
    .Height = Application.Height  
    .Width = Application.Width  
End With
 
Détermination de la taille du contenu du userform
If Application.Height < 450 Then ' où 450 est la hauteur sur un écran en 800 par 600
UserForm1.Zoom = 77 'où 77 est le coef de zoom pour que les boutons soient à la bonne taille
End If
 
ça n'est pas très élégant mais ça marche (pour l'instant)
 
Ron