Discussion :

[patricktoulon]

bonjour a tous
apres avoir galéré a essayé de comprendre les exemples de userform a redimentionnement automatique

j'ai trouvé une solution qui ma fois me semble tellement simple avec si peu de code que je pense qu'elle a sa place dans les sources

j'ai utilisé la fonction redim preserve pour memoriséer les coordonnées et la taille des controls dans l'userform

j'utilise l' api user32 pour rendre l'elasticité q'ont toutes les fenetres windows et les deux bouton manquants cruellement au cadre des userforms(reduire,et minimiser) ce qui me permet de redimensionner l'userform avec la souris
et les trois boutons (reduire,minimiser,fermer)
pour ce qui ont windows seven le aero snake marche aussi
bon jusque la rien de nouveau

ensuite dans la fonction resize de l'userform je boucle sur tout les controls
de l'userform
et je leur applique une operation tres simples voici le code du resize
il faut savoir que largeur_usf et hauteur_usf sont des variables public qui sont memorisé a l'initialise de l'userform

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub UserForm_Resize()
On Error Resume Next
i = 0
For Each ctrl In Me.Controls
i = i + 1
'largeure du control=largeure usf actuelle divisée par entre parenthezes  largeur usf de depart divisée par largeur de depart du control
ctrl.Width = Me.Width / (largeure_usf / largeurbouton(i))
'hauteur du control = hauteur usf actuelle divisée par entre parenthezes  hauteur usf de depart divisée par hauteur de depart du control
ctrl.Height = Me.Height / (hauteure_usf / hauteurbouton(i))
'le left du control = largeur usf actuelle divisée par entre parenthezes  largeur usf de depart divisée par le left de depart du control
ctrl.Left = Me.Width / (largeure_usf / leftbouton(i))
'le top du control = hauteur usf actuelle divisée par entre parenthezes  hauteur usf de depart divisée par le top de depart du control
ctrl.Top = Me.Height / (hauteure_usf / topbouton(i))
'le top du control = hauteur usf actuelle divisée par entre parenthezes  hauteur usf de depart divisée par le top de depart du control
ctrl.FontSize = ((Me.Height + Me.Width) / 8) / (fontbouton * 2)
Next
largeur = Me.Width  '////////////////////////////////////////////
                    '///affiche les dimensions dans les textbox//
hauteur = Me.Height '////////////////////////////////////////////
 
Me.Repaint 'repeint le userform pour effacer les traces des anciens emplacement des control(du a la puissance de la carte graphique)
End Sub

si on eleve les lignes vertes qui me servent a expliquer les fonctions
vous verrez qu'il ne reste pas beaucoup de code hihihihi!!!

je vous laisse le soin de juger
je suis pas contre des ameliorations si le coeur vous en dis bien que le sujet a été traité tant de fois

je met le fichier exemple avec.....
au plaisir.....

[Invité]

Salut

Je viens de tester ton fichier, excellent travail

Philippe

[patricktoulon]

merci depuis que je me suis inscrit pour pouvoir creer mes propre application pour mon entreprise je me suis passionné pour le vba et j'ai laisser carément tomber le html et le vbs

en tout cas si j'ai progressé c'est grasse a dvp un site exelent pas facile avec les debutants mais en tout cas ca marche


il me manque une seule chose dans ce fichier

c'est de pouvoir (savoir surtout) declarer le nom de l'userform en variable de type string et toujour en public a fin de me servir des la meme macro(determine) pour nimporte quel userform
ainsi en faire un xla
et hop encore moins de code hihihihi!!! et tout mes userforms pourront avoir ces options en appelant simplement le la macro du xla aurait tu une idée sur la question j'ai bien essayé plein de truc mais je n'y suis pas arrivé

ce petit fichier pourrait etre un addins interressant a mon avis



merci....

au plaisir....

[babaothe]

salut

Quelque-chose doit m'échapper (probablement) .
je ne comprends pas la raison pour laquelle n'est pas tout simplement utilisée la propriété Zoom de l'userform. Elle est faite pour cela et permet non seulement d'ajuster la taille et la position des contrôles, mais également celle des polices de caractères.
Il suffit dès lors ;
- de relever les dimensions de l'écran de la machine de développement (et de les mémoriser en mode création)
- de relever les dimensions (au démarrage) de l'écran de la machine cliente
- d'en déduire un coefficient correcteur K à appliquer aux propriétés Top, Left, Width et height de l'UserForm
- d'écrire (exemple)

Code :

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

1
2
3
4
5
Private Sub UserForm_Initialize()
  k = 0.7
  Me.Zoom = k * 100
  Me.Move Me.Left * k, Me.Top * k, Me.Width * k, Me.Height * k
End Sub

une autre manière de calculer K est plus astucieuse (car corrige à la fois en fonction des dimensions de l'écran et de la résolution en vigueur) et consiste :
- à relever la position et la taille relatives (pourcentages) de l'userform sur la machine de développement, ainsi qu'une seule, à son choix, de ces données, en valeur absolue (et mémoriser en dur)
- à relever, au démarrage sur la machine cliente, les dimensions de l'écran et appliquer à l'userform la position et la taille relatives (pourcentages mémorisés)
- calculer le K correctif constaté
- l'appliquer comme montré plus haut.

Le principe à appliquer serait très sensiblement le même (même méthode mêmes calculs, mais "in vivo") dans le cas d'adaptation à une réduction des dimensions de l'userform, par code direct ou par "poignées" rajoutées par code.

[patricktoulon]

bonjour

je ne connais pas la fonction zoom
je vais essayé ton procédé si ca marche
purée de purée yen a un qui a trouver un code plus leger hihihihihi!!!!


au plaisir .....

et puis j'oubliais


0.7 n'est certainement pas bon puisque la resolution en vigeur c'est
taille= resolution*0.75
ou
taille= resolution/1.333333333333333

enfin cela dis je vais potassé ton idée



au plaisir

[patricktoulon]

ok je revien donc

ta solution peut etre interressante l'ors de l'initialyse de l'userform
pour avoir l'userform plein ecran directement a la resolution de l'ecran
apres ca aucun interret dans le sens ou le redimentionnement dans mon cas est aleatoire puisque je me sert de l api user 32 pour recuperer l'elasticité des fenetres windows avec la souris


voila au plaisir....

[patricktoulon]

a la demande de spookyz je poste un exemple sans le mouse in et out

cet exemple a les deux possibilités mode fenêtre au départ ou plein écran


au plaisir

[Brizard]

Bonjour serait-il possible d'avoir un fichier exemple, je galère un peu pour l'utiliser dans mon UserForm.

[patricktoulon]

bonjour brizard


tu peux te contenter de recopier le module standard et le module userform

il est parfaitement fonctionel

au plaisir



Edit::sinon tu a aussi ma nouvelle version ici tu n'a qu'a recopier le code encore une fois

parici:http://excel.developpez.com/contribu...newversion.zip


au plaisir

[Brizard]

Formidable.
Merci pour ton aide précieuse, je vais travailler là dessus.
Cordialement

[Dreamer84]

Bonjour Patrick,

J'ai voulu essayer ce code dans une de mes applications Excel 2003 mais j'obtiens une
erreur 11 division par zéro et ça se bloque sur cette partie du code

Code :

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

leftbouton(i) = maform.Width / ctrl.Left

J'ai testé la macro dans un nouveau classeur ou je n'ai mis qu'un UserForm
avec un bouton, la tout fonctionne parfaitement bien !

De quoi peut bien venir cette erreur ?
Serait-ce parque que j'utilise un UserForm dans lequel j'ai supprimé la petite
croix rouge de fermeture ?

Merci d'avance

[patricktoulon]

bonjour a tous
jacky
voila une version ultra simplifié
j'ai revisé le principe du redimentionnement du font size
en effet ils peuvent avoir un font size différent

au plaisir