Discussion :

[patricktoulon]

bonjour a tous
j'arrive petit a petit a comprendre le V B A

mais je n'arrive pas a trouver l'expression que je pourrais attacher a un bouton
qui pourrait me reduire un UserForm de 700pxl de haut a 50 pxl de haut
j'ai essayer ca mais ca ne fonctionne pas:

Code :

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

1
2
3
4
private sub reduction()
UserForm4.height=50
 
end sub

voila si quelqu'un a la solution je l'en remercie d'avance

[ucfoutu]

Bonjour,

VBA/Excel utilise une échelle en points, pas en pixels.

[patricktoulon]

bonjour ucfoutu

merci pour cette précision
mais ca ne m'aide pas plus pour autant
sur la formule que j'ai ecrit dans mon message il n'est pas question d'unité de mesure donc (height)veut dire (hauteur )du moins je crois
comment modifier ca quand l'userform est en marche
une sorte de minimiseur sauf que l'userform doit rester a l'ecran

en fet mon probleme c'est que je travail sur deux ordinateurs différents
les deux n'ont pas la meme resolution
l'un est en 1440X900(wide16/9) et l'autre 1280X1024(22pouce)
et tu imagine le probleme car jai concu mes userforms avec le deuxieme ordi

humblement je demande une solution

[Krovax]

Si ton problème est du a la taille des écran tu peux regarder ici
Comment adapter les dimensions d'un UserForm à la taille de l'écran ?

Tu peux sans problème mettre

Code :

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

1
2
.Width = Application.Width/2
.Height = Application.Height/2

pour qu'il ne fasse que le quart de ton écran

Par contre ca n'influ pas sur la position et la taille des objet contenu dans l'userform

[ucfoutu]

J'ai participé plusieurs fois à deux types de discussions :
-1 ) transposition des unités d'échelles
- 2) réduction et aggrandissement d'un userform

Il va falloir que tu fasses une petite recherche sur ce forum pour les retrouver (je l'ai déjà fait au moins deux fois et commence à me lasser de le faire à chaque fois moi-même)

En ce qui concerne maintenant la position à donner éventuellement à la fenêtre, elle passe elle également par une transposition d'échelle... (car si les dimensions, sous Excel/VBA, sont exprimées en points, tel n'est pas le cas en ce qui concerne les coordonnées du coin supérieur gauche de l'userform...)

[patricktoulon]

merci a tout les deux je vais essayer ca (tres bonne FAQ)
je vous remercie
sympa de votre part pour la patience accordée au ignorants comme moi