Discussion :

[toto13100]

Bonjour à tous,

je vous écris pour vous demander une petite astuce.

J'ai créé un programme VBA qui s'ouvre automatiquement à l'ouverture du fichier excel. j'aimerais savoir si certains d'entre vous ont un code pour adapter les USF à la taille de l'écran du pc qui ouvre le fichier excel.
je m'explique je l'ai crée sur mon pc mais le programme va être utiliser par toute personne de l'entreprise et nous n'avons pas tous les mêmes écrans. certains ont un poste unique et d'autres une stations HP avec pc portable et second écran. Il faudrait que mon programme s'adapte à toutes les résolutions afin d'éviter que chez certains l'USF soit coupé et qu'on ne puisse pas voir tous les command button.
Après que l'USF soit en plein écran ou centré ce n'est pas important. J'aimerais juste que tout reste proportionnel dans le USF s'il y a agrandissement ou non

merci à tous

[toto13100]

En fait j'ai trouvé un code (ci-dessous) qui permet de redimensionner l'USF à la taille de l'écran.

Le problème c'est que les images, command button, listbox... restent au même endroit (il n'y a pas de proportionnalité) j'aurais aimé que le tout s'agrandisse ou diminue avec l'agrandissement ou la diminution du USF

merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub UserForm_Initialize()
Me.Height = Application.ActiveWindow.Height
Me.Width = Application.ActiveWindow.Width
End Sub