Discussion :

[fikren]

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 :

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

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 :

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

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 ?,

[Theocourant]

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 :

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

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]

[fikren]

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.

[Theocourant]

Re,

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

Met les en Single :

Code :

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

1
2
3
4
Dim monDecalageX as Single
Dim monDecalageY as Single
Dim PosX as Single
Dim PosY as Single

Désolé

@+

Théo

[fikren]

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.

[Theocourant]

Corrigé