[VBA]Userform mobile dans une feuille excel

Bonjour,

Alors voila, j ai realise une userform avec quelques boutons et je souhaite qu elle suive le curseur dans ses deplacements. C est a dire lorsqu on active une nouvelle cellule, elle apparait a une distance fixe de cette cellule.

Voici ma fonction :

Code:

---

1 2 3 4 5 6

Sub bouge() Dim Position As POINT GetCursorPos Position Menu_mobile.Left = Position.x + 1 Menu_mobile.Top = Position.y + 1 End Sub

---

Et l appel a celle ci :

Code:

---

1 2 3 4

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Menu_mobile.Show Module1.bouge end sub

---

Tout se passe bien pour la partie mouvement, la boite suit bien les selections mais plus je me rapproche de la droite ou du bas de l ecran et plus l ecart grandit. Pourquoi ne reste t il pas fixe ?,

Salut,

En fait, ça vient certainement du fait que tu n'as pas les mêmes unités d'échelle entre les 2 parties...

Tu aurais certainement intérêt à récupérer la cellule active et après tu récupère sa position et tu fais un déplacement fixe en fonction de cette position..

Code:

---

1 2 3 4 5 6

monDecalageX=150 ' en points monDecalageY=0 ' en points PosX = ActiveCell.Left+ActiveCell.Width+monDecalageX PosY = ActiveCell.Top+ActiveCell.Height+monDecalageY   Menu_mobile.Move PosX, PosY

---

Cela devrait faire l'affaire

[EDIT]
Modification du code pour la méthode Move désolé et merci de l'indication fikren
[/EDIT]

Salut Theocourant,

Merci pour ton aide ca m a l air pas mal mais est ce que tu pourrais me dire comment je dois declarer les variables monDecalageX/Y et PosX/Y s il te plait car je galere la dessus pour tester ta solution.

Merci.

Re,

Oups pardon j'ai oublié les déclarations...

Met les en Single :

Code:

---

1 2 3 4

Dim monDecalageX as Single Dim monDecalageY as Single Dim PosX as Single Dim PosY as Single

---

Désolé

@+

Théo

Merci beaucoup, ca fonctionne comme je le voulais =)

Juste une petite chose pour la methode move il faut retirer les parentheses ou ca ne compile pas.

Corrigé

:ccool: