Discussion :

[Alias_2003]

Bonjour à tous,
Avec l'aide précieuse de Patrick (http://www.developpez.net/forums/d93...rols-userform/, j'ai trouvé une solution à mon problème de redimensionnement des controles de mon usf (usf redim version 14.03.2016.xls). Encore mille merci à lui !!

J'ai testé le fichier de Patrick sur différents postes de mon entreprise. Pour les pc fixes, il n'y a aucun problème et tout est parfait ! Mon soucis est pour les pc portables... Ceux qui ont un portable, ont également une base et un écran déporté. Quand le fichier est ouvert et fermé sur le portable placé sur sa base ou pas, il n'y a pas de soucis ! Par contre, quand le fichier est laissé ouvert et que le pc est retiré ou placé sur sa base, l'userform sort de l'écran ou est minuscule...
Auriez-vous une astuce pour contourner ce problème ?

Ce que je ne n'explique pas, c'est qu'avec ce fichier (http://www.developpez.net/forums/att...1-02-2013.xls/), je ne rencontre pas ce soucis, l'userform est automatiquement adapté à la taille de l'écran... Lors du changement, le code passe par la sub userform_resize....
Merci beaucoup de votre aide,
Amicalement

[patricktoulon]

bonjour
ben toi alors !!!! t ' a penser a prendre deux grosse pinces becraux et avec étirer ton userform

vérifie tes librairie!!!! c'est encenser ton truc je viens de l'essayer sur mon HP dv7 17 pouces et ma dernieres version dans sa classe fonctionne très bien

[Alias_2003]

Bonjour Patrick !
Merci de ta réponse !
Effectivement je commence à en avoir ras le bol ! Je vais faire le tour des pc pour vérifier et je reviens vers toi !
MERCI beaucoup,
Bonne soirée !

[patricktoulon]

au fait vérifie aussi que les offices Excel que tu testes ne sont pas en 64 bits
au quel cas il faudra que je t'adapte les apis

[Alias_2003]

Re-,
Alors comme beaucoup sont partis, je n'ai pas pu regarder beaucoup de pc... Mais la pistes des librairies me semble être la bonne !!
j'ai aussi regardé le système d'exploitation et effectivement certains tournent sous 64 et d'autres sous 32...
Je ne m'en sortirai jamais !
Bonne soirée !

[patricktoulon]

mais si mais si avec un peu de volonté
alors ma question était pas le system 64 mais la version de l'application Excel (32/64) c'est ca qui est important !!!

[Alias_2003]

Alors je n'ai pu regarder que 3 pc (il est tôt et il n'y a pas grand monde...), 2 versions sont en 32 et un en 64...

[patricktoulon]

OK!!
test ce fichier sans rien toucher sur tout tes PCs et dis moi si il y a une erreur ou si ca marche pas

tu peux me dire que ca marche aussi bien entendu

sinon commence par manger ton clavier ca calme
voili voilou

[Alias_2003]

Bonjour Patrick,
Merci beaucoup de ton aide ! Je teste ton fichier !
J'aurais une question : quand tu crées un fichier qui sera utilisé sur différents pc, écran, quelle taille fixes-tu pour ton userform ?
Merci beaucoup à toi,
Amicalement

[patricktoulon]

cette question me montre que tu n'a pas compris le principe
alors

le userform au load déclenche la classe et lance lasub "init_usf" qui mémorise dans le tag du usf sa dimension initiale
et avec les api calcule la dimension de l'écran
et mémorise dans le tag de chaque contrôles leur propriété left,top, width,height etc......
et ses dimension sont appliqué a l'userform
des l'ors que l'on redimensionner l'événement resize du userform se déclenche forcément
et avec la sub resize on applique le multiple de l'initial par l'actuel pour tout les control


alors le redimensionnement est dit proportionnel (si le width du userform augmente de 10% alors le left et le width de chaque control augmentent de 10% aussi et pareil pour le height,top

alors si ton userform est plutôt carré a la base et que tu a un écran 16/9 effectivement il y a une déformation mais proportionnelle et donc justifié

d'ailleurs si par macro on demandait le left ou le top ou le width ou le height de chaque control en pourcentage il nous donnerait le même qu'a la base

tu comprends ?

maintenant si la déformation et trop importante et que ca te gène met ton userform a la base en 16/9 plutôt que carré carré
t'a compris ou c'est moi qui mange mon clavier

[Alias_2003]

Si, si j'ai parfaitement compris !!
C'est plus la déformation qui me questionne !
Néanmoins merci de tes explications !!!

[patricktoulon]

si tu veux aucune déformation il faut que le height de ton usf fasse son with/1.777777778 pour un 16/9

on peut aussi utiliser que le width ou que le height pour le redim mais tes control seront plus placé pareil cela dit ca reste cohérent

[Alias_2003]

C'est entendu !! Merci de tes explications !!

[patricktoulon]

allez tiens tu n'a q'une seule ligne a changer dans la classe

Code :

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

ctl.Move dims(0) * RW2, dims(1) * RH2, dims(2) * RH2, dims(3) * RH2

peut être que ca te conviendra mieux

[Alias_2003]

C'est ce qu'il me fallait ! MERCI !!
Dernière question (?) : j'aimerais utiliser ton code "overbouton" pour changer la couleur lors du survol d'un bouton. Par contre, je ne sais pas comment modifier le code pour ajouter la couleur dans les tag de la sub init_usf pour ensuite l'utiliser dans le code overbouton... Pourrais-tu stp m'aider à nouveau ?
Merci

[patricktoulon]

tiens voila un exemple je l'ai carrément intégré dans la classe allinOne
démo animée et pièce jointe

n'oublie de remettre ta ligne du ctl.move ....... je ne l'ai pas modifié pour moi

[Alias_2003]

MERCI
Vraiment !!
Je teste sur mon fichier et je reviens te re-remercier !
A+


Edit : tu vas me haïr... Certains de mes boutons sont dans des frames et ne reviennent à leur couleur initiale que lorsque je sors de la frame... Une idée ?

[patricktoulon]

Bon tiens voila
piece jointe
meme punition change la ligne "ctl.move......."

[Alias_2003]

Bonjour Patrick,
N.I.C.K.E.L. !!!
Merci beaucoup !
Je te laisse tranquille maintenant

[patricktoulon]

A la bonne heure !!!!!!!!!!!!
puré c'est vrai c'est les vacances c'est pas une blague?!!!!


bon entre nous j'espère quand même que tu va chercher a en comprendre le fonctionnement


n'hésite pas a poster un message de suggestion dans le post de contribution sur une éventuelle idée d'amélioration