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