Auto dimensionnement des user forms

[zefirstfan]

Bonjour a tous,
Je viens de terminer un fichier excel utilisant des userforms.
Ce fichier va etre multi-utilisateurs car il sera accessible en reseau.
Lors des essais fait ces derniers jours, j'ai constate que certains utilisateurs n'ont pas acces a tous les objets des user forms étant donné que j'ai dessiné l'user form sur un ecran 19" 4/3 et que certains sont equipes de 17" d'autres ont des laptops 15.6 voir 14".
Existe-t-il une option a cocher dans l'user form ou une ligne de code permettant un auto fit de l'user form en fonction des parametres d'affichage du poste de travail.
Merci pour votre aide.
Amities.

 

[Misange]

Re : Auto dimensionnement des user forms

Bonjour

non il n'y a rien d'automatique dans ce tgenre mais tu peux regarder ces liens et t'en inspirer
Ce lien n'existe plus
Ce lien n'existe plus
Ce lien n'existe plus

 

[laetitia90]

Re : Auto dimensionnement des user forms

bonjour zefirstfan🙂 , Misange🙂

on pourrait partir sur des users plein ecran il devrait s'adaper a chaque ecran

je pense que tu utilise plusieurs users le code est dans un module standard & non dans user pour simplifier le code

 

[zefirstfan]

Re : Auto dimensionnement des user forms

Bonsoir,
Je viens de tester ce code sur mon fichier final.
Ca buggait a la ligne:
c.FontSize = c.FontSize * h
erreur d'execution 438 - Propriété ou méthode non gérée par cet objet.
J'ai effacé cette ligne du module et ca fonctionne très bien ( testé sur un 21" 4/3 et sur un 15.6" 16/9eme.
Merci beaucoup.
Bonne soirée a tous.
Zefirstfan

 

[zefirstfan]

Re : Auto dimensionnement des user forms

Bonjour,
Petit bug pas tres important: La partie droite des users form sort de l'ecran.
Pas genant dans mon cas mais peut etre genant si certains objets snt dans cette partie.
Amities.

 

[laetitia90]

Re : Auto dimensionnement des user forms

re tous🙂🙂
un autre code a tester si pb...identique

j' ai laisse Font.Size a voir
avantage 3 boutons reduire normal agrandir

par defaut ShowWindow hWnd, 3 => agrandir

ShowWindow hWnd, 1 => normal

ShowWindow hWnd, 2 => reduire