Discussion :

[eliot.raymond]

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

[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 :

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

  1
  2
  3
  4
  Private Sub UserForm_Layout()
      UserForm1.Left = Me.Left
      UserForm1.Top = Me.Top
  End Sub

[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

[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

[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

[patricktoulon]

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 :

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

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 :

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

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

[fring]

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.