Ancrer un PopUp à un CommandButton

[Magic_Doctor]

Bonsoir,

Est-il possible de "solidariser" un PopUp à un CommandButton ?
Je m'explique :
le CommandButton lance un PopUp
Je voudrais que ce PopUp, quand il apparaît, soit collé au CommandButton.

Si le CommandButton change de position, le PopUp ne sera alors plus collé à celui-ci. Donc à chaque fois il faut modifier les coordonnées du PopUp.
Peut-on y remédier ?

Dans l'exemple ci-joint, les coordonnées du PopUp changent en fonction de la position du CommandButton.

 

[Compte Supprimé 979]

Re : Ancrer un PopUp à un CommandButton

Salut Magic Doctor 😉

Dans ton code "BoutonMesInicio_Click"

Il faut mettre

Private Sub BoutonMesInicio_Click()
Dim x%, y%
x% = Me.BoutonMesInicio.Left + Me.BoutonMesInicio.Width + 40
y% = 177 + Me.BoutonMesInicio.Top
Call Menu(x%, y%)
End Sub

Tu récupères les coordonnées X et Y de ton bouton
Au X tu ajoutes la largeur du bouton + écartement
Au Y tu ajoutes la hauteur du menu

Voili, voilà 😉

 

[Magic_Doctor]

Re : Ancrer un PopUp à un CommandButton

Bonsoir Bruno,

J'ai donc bien modifié la macro, mais quand j'appuie sur le bouton "Pantalla..." (à droite) puis que je veux voir apparaître le PopUp en appuyant sur le bouton "Mes", le PopUp refuse de s'y accoller...
J'ai parfaitement compris ton explication, et ai essayé la macro suivante pour connaître au moins les coordonnées du CommandBouton ("BoutonMesInicio") :

Sub CoordonnéesBouton()

Dim x%, y%

x% = Me.BoutonMesInicio.Left
y% = Me.BoutonMesInicio.Top

[I13].Value = x%
[I14].Value = y%

End Sub

Erreur ---> Réponse : L'utilisation du mot réservé (palabra clave en espagnol) n'est pas valide. J'ai tenté dans l'aide de mieux comprendre ce "Me", mais ça reste toujours obscur...

Merci quand même pour tes indications, ça me permet déjà d'avancer un peu.
Bonne fin de soirée.