Déplacer deux UserForms ensemble

Version imprimable

13/03/2012, 14h22
eliot.raymond

Déplacer deux UserForms ensemble

Bonjour a toutes et tous, forum

Voila j'ai sur l'écran une userform1 lorsque que celle-ci est ouverte, je clic sur un bouton qui vient m'afficher une seconde userform2

lorsque je déplace avec la souris les userforms 1 ou 2 je souhaiterai svp quelles restent accrochées ensemble et donc les déplacer ensembles

Avec l'userform1 en fond et l'userform2 qui se superpose dessus la (1) et quelle ne s'éfface pas

Merci de votre temps, bonne après midi

Cdtl
13/03/2012, 15h57
fring
Bonjour,

Je procéderais comme ceci :
- mettre la propriété ShowModal du UserForm1 sur 0
- mettre la propriété ShowModal du UserForm2 sur 1
- et dans l'évènement UserForm_Layout du UserForm2 mettre ce code
  Code:
  
  1 2 3 4 Private Sub UserForm_Layout() UserForm1.Left = Me.Left UserForm1.Top = Me.Top End Sub
13/03/2012, 16h52
eliot.raymond

Salut fring,

Merci pour ta réponse et pour le code, c'est gentil

J'ai suivi tes conseils et voila:

UF1 s'affiche bien, je clic sur mon bouton UF2 s'ouvre bien et se place en haut a gauche sur UF1

Ensuite dès que je clic sur UF1, avec la souris pour déplacer les deux ensemble UF2 disparait en dessous de UF1

et ça ne se déplace pas a part UF1

j'ai essayer de modifier pas en vain

A plus tard et merci pour l'aide

Ray
14/03/2012, 10h15
fring

Tu dois mettre la propriété ShowModal du USF2 sur 1, de cette manière lorsqu'il sera affiché, le USF1 sera toujours visible sous le USF2 mais ne sera plus accessible
14/03/2012, 11h13
eliot.raymond

Bonjour fring,

Merci pour ta réponse, j'ai suivi les conseils, ça fait ce que tu dit

Sauf que je souhaiterai en fait quand je clic sur UF1 avec la souris pour la

déplacer c'est d'emmener également L'UF2

Merci a toi bonne journée

A plus tard Cdlt Ray
14/03/2012, 18h24
patricktoulon

heu
bonsoir a tous les deux

en fait tout depend ou ce trouve l'usf1 et l'usf2 au depart

dans tout les cas c'est dans le layout que ca se passe

l'exemple de fring si je ne me trompe pas te met l'autre usf parfaitement dessus ca n'est peut etre pas ce que tu cherche

peut etre que memoriser la position initial dans les activate respectifs des userforms

ensuite apliquer le meme mouvement au deuxieme dans le layout du premier

exemple:

le 1 er s'affiche a 100 de left et 100 de top
le 2 eme s'affiche a 300 de left et 500 de top
tu fait l'operation (soustraction) des deux
Code:

1 2 usf2.left-usf1.left=difference du left usf2.top-usf1.top=difference du top
maintenant que tu a la difference
dans le layout du usf1 tu met

Code:

usf2.left=usf1.left+difference du left

et pareil pour le top
ainsi tes usef se deplaceront syncro

ou meme mieux

simplement faire la différence de la position actuelle a celle precedente
au plaisir
14/03/2012, 19h29
eliot.raymond

Bonsoir a tous, forum

Bonsoir Patrick

j'ai bien compris tes explications, j'ai essayer plusieurs fois mais en vain

Si tu voulais bien me faire un fichier parce que la il me reste plus beaucoup

de cheveux LOL

déja fait pleins d'essai mais la j'obtiens plus rien

Merci a toi pour ta réponse et tes explications

PS: j'ai mis les valeurs que tu mis en ex: sur les 2 ufs

A plus tard au plaisir également de te relire

Cdlt Ray
14/03/2012, 20h11
patricktoulon

re

daccord
si tu veux que je t'aide il me faut le top et le left initial de chaque userforms

de facon a pouvoir coder l'operation

et de quel facon tu veux que le usf 2 suive le usf1

au plaisir
15/03/2012, 07h59
eliot.raymond

Bonjour a toutes et tous, forum

Bonjour Patrick

Merci pour ton aide, c'est très sympa a toi.

Pour les coordonnées c'est simple les 2 USFs sont a Left = 0 et Top=0

L'Usf2 est de moitié plus petite que l'Usf1 , peu importe c'est pour essai.

Donc quand le fichier est ouvert l'Usf1 est afficher au point Left=0 Top=0 et

par un bouton situé sur l'Usf1, je clic sur celui-ci qui m'affiche l'Usf2 au mème

point que l'Usf1 en haut a gauche, ce qui fait que l'Usf2 superpose l'Usf1 et

est visible.

Une fois les 2 Usfs affichés, je clic sur l'une des deux Usfs et en restant

cliquer les déplacés ensemble classiquement.

Pour le déplacement que l'Usf2 reste accrochée a l'Usf1 en haut a gauche

Je précise SANS que l'Usf2 s'efface ou se glisse dessous L'Usf1

Dit moi également et svp ou placer les codes correctement de facons a faire

ça bien LOL.

Je refait un fichier essai avec uniquement deux Ufs pour repartir a zéro.

Je te remercie encore pour ton aide, je te souhaite une excellente journée

Cdlt Ray
15/03/2012, 08h14
fring

Citation:

Envoyé par eliot.raymond

Sauf que je souhaiterai en fait quand je clic sur UF1 avec la souris pour la déplacer c'est d'emmener également L'UF2

Puisque tu veux absolument que l'USF2 reste actif au premier plan, pourquoi essayer de se compliquer la tâche ? Si tu laisses le 1 accessible, celui-ci viendra automatiquement se mettre au premier plan lorsque tu cliqueras dessus pour le déplacer et ça on ne peut pas l'éviter. En rendant le 1 inaccessible, le 2 restera toujours au premier plan et tu pourras déplacer les deux USF simultanément via le 2.
15/03/2012, 19h32
patricktoulon

re

re
bonjour a tout les deux

d'accord j'ai compris ce que tu veux

donc on patoge dans la choucroute pour rien depuis le début

donc je récapitule

2 usf:usf1 et usf2
un bouton dans usf1 pour affiché usf2
l'usf a le même left et top que le usf1 donc superposé

dans ce cas la il y a plus simple l'usf2 doit devenir l'enfant du 1 er

et pour cela c'est tout simple on va utiliser les apis
1 findwindow pour le handle
2 setparent pour le rendre papa et fils

donc voila une 1 ere ébauche comme ca vite fait:
prend ce fichier

apres pour le déplacement en cliquant sur l'un ou sur l'autre il y a l'api"sendmessage" mais je n'ai pas pris le temps d'approfondir de ce coté la
en tout cas essai de déplacer le usf1 tu verra le usf2 reste au même endroit dans le usf1
bien que si c'est vraiment çà que tu veux tout pouvait tout simplement utiliser une frame enfin c'est toi qui vois

dis moi si c'est ca que tu veux

au plaisir
15/03/2012, 19h56
eliot.raymond

Salut Patrick

Merci pour ta réponse tu as très bien résumer

je prends bonne note au passage de ta façon de faire.

Bon voila c'est comme ça que je souhaitai, ok

par contre je ne peux pas effacer l'Usf2 (bleu)

et tu peux accoler en haut et a gauche l'Usf2 a l'Usf1

je te remercie pour le fichier et ton savoir les apis hum déja vu

pas facile

Bonne soirée, je touche pas au fichier si tu modifie, je regarderai ton code

de très près ensuite, je regarde déja ça

Encore merci au plaisir de te relire

Cdlt Raymond
16/03/2012, 14h59
patricktoulon

rer

je comprend pas bien

normalement si je me souviensbien tu a un bouton sur le usf2(bleu) pour le fermer

et je pense qu'il s'affiche bien en haut a gauchue du 1er

je vais le reprendre dans l'apres midi pour y ajouter le deplacement par le maintient de la souris sur l'un ou l'autre
a tout de suite

au plaisir
16/03/2012, 15h16
eliot.raymond

Bonjour Patrick

Merci pour la réponse

Je ne peux pas effacer l'usf bleue en cliquant sur le bouton créer et

bien superposer les deux Usf en haut a gauche "comme un jeu de cartes"

pour le reste je ne sait pas si tu doit apporter des modifs eu améliorations

Juste une question svp et si tu veux bien: peut'on effacer uniquement des commandBouttons dans une Frame ou un UserForm par VBA

Merci pour la suite suis pas presser, il fait beau ici a Rouen LOL

Cdlt Ray

rebonjour voila
pas préssé mais je suis trop rapide hihihiihih!!!!

voila une version a la quelle j'ai ajouter la posibilité de deplacer les userforms en meme temps en l'attrappant n'importe ou sur le usf1 ou usf2

youpi tralala !!!

j'ai aussi ajouter beaucoup de commentaire pour que tu puisse en comprendre le fonctionnement

j'espere que ca te conviendra
recupere a nouveau le fichier

a j'oubliais j'ai aussi ajouter la posibilité se suprimer la caption du usf2(bleu)
ca donne l'effet que c'est un frame
cette option est gérée par la variable booleenne
exemple:
usf2 sans caption
Code:

1 2 3 4 5 6 7 Private Sub CommandButton1_Click() UserForm2.Show 0 placement_du_fils (False) 'on place le userform2 en haut a gauche du userfom1 +la hauteur de la caption 'false si tu veux supprimer la caption du userfom2 ,true si tu veux la garder atachement 'le usf2 va devenir le fils du usf1 et donc il sera comme le bébé kangourou dans la poche ventrale de la kangouroute End Sub
usf2 avec caption
Code:

1 2 3 4 5 6 7 Private Sub CommandButton1_Click() UserForm2.Show 0 placement_du_fils (true) 'on place le userform2 en haut a gauche du userfom1 +la hauteur de la caption 'false si tu veux supprimer la caption du userfom2 ,true si tu veux la garder atachement 'le usf2 va devenir le fils du usf1 et donc il sera comme le bébé kangourou dans la poche ventrale de la kangouroute End Sub
donne moi le retour si ca te conviens ou pas
au plaisir

16/03/2012, 16h22
eliot.raymond

Salut Patrick

Alors tu vois quand tu veux, hihhihii, je blague,

Bon tu as bien bosser que dire, alors ça marche du feu de Zeus, pas de bavure, je vais étudier ton code tranquille ce W-end.

et pil poil comme je souhaitai.

Je te remercie sincèrement pour cet excellent travail, je n'aurai pas su faire, si mais vers Noêl 3012.

Tu peux répondre svp, a la question suivante si tu sait bien sur

>>> Juste une question svp et si tu veux bien: peut'on effacer uniquement des commandBouttons dans une Frame ou un UserForm par VBA

Merci j'attends ta réponse svp et je clos le sujet

A plus tard
Ray
16/03/2012, 16h32
patricktoulon

re

oui on peut

exemple tu a dans un userform un bouton nommé "toto"

Code:

me.controls.remove ("toto")

si je ne me trompe pas ca doit etre ca
maintenant si le bouton se trouve dans un frame il faut le présiser je crois

Code:

me.frame1.controls.remove ("toto")

d'ailleur le sujet a été traité hiers ou avant hiersdonc dans les 50 derniers messages j'y ai participé

si mon model t'a combler un petit pouce vert

au plaisir
16/03/2012, 16h55
eliot.raymond

Re Patrick

Merci pour l'info sur les boutton,s je regarde sur les posts précédents.

J'ai mis des pouces vert partout, c'est largement mériter, en plus je

remercie encore une fois, ça m'a vraiment aider.

Je te souhaite un excellent W-end Patrick

Au plaisir pour sans doute une prochaine fois

Bye bye Cdlt Raymond :ccool:
16/03/2012, 16h58
eliot.raymond

Citation:

Envoyé par fring

Puisque tu veux absolument que l'USF2 reste actif au premier plan, pourquoi essayer de se compliquer la tâche ? Si tu laisses le 1 accessible, celui-ci viendra automatiquement se mettre au premier plan lorsque tu cliqueras dessus pour le déplacer et ça on ne peut pas l'éviter. En rendant le 1 inaccessible, le 2 restera toujours au premier plan et tu pourras déplacer les deux USF simultanément via le 2.

Salut fring,

Voila j'ai clos le sujet, tes réponses m'ont bien aider aussi, et j'ai noter tes conseils également.

Encore merci pour l'aide apporter et je te souhaite un excellent W-end

Bye Bye Cdlt Raymond