Discussion :

[coyote90]

Bonjour,

je souhaite déplacer un bouton à la souris.
pour cela j'utilise les fonctions _MouseDown et _MouseUP.
je souhaite donner un aperçu de la future position de l'objet, ou déplacer l'objet en même temps que le curseur, j'utilise donc _MouseMove.
et là je me trouve devant un problème, l'objet ne suit pas exactement le curseur et il semble clignoter.

où est l'erreur, comment corriger ce problème ?

voici mon code vba pour Excel 2000

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Option Explicit
Dim XVal As Single
Dim YVal As Single
Dim TopVal As Single
Dim LeftVal As Single
Dim MoveObj As Boolean
 
Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    XVal = X
    YVal = Y
    TopVal = CommandButton1.Top
    LeftVal = CommandButton1.Left
    MoveObj = True
End Sub
 
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If MoveObj Then
        CommandButton1.Left = LeftVal + (X - XVal)
        CommandButton1.Top = TopVal + (Y - YVal)
    End If
End Sub
 
Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    CommandButton1.Left = LeftVal + (X - XVal)
    CommandButton1.Top = TopVal + (Y - YVal)
    MoveObj = False
End Sub

[ucfoutu]

Bonjour,

Pas Excel sous la main pour (portable squatté) ...

Mais ceci devrait marcher :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
Dim ancy, ancx As Integer
 
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Button = 1 Then
    ancy = Y: ancx = X
  End If
End Sub
 
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Button = 1 Then
    CommandButton1.Move CommandButton1.Left + X - ancx, _
    CommandButton1.Top + Y - ancy
  End If
End Sub

Déplacement avec le bouton gauche enfoncé.
Si tu préfères le bouton droit, Change If Button = 1 par If Button = 2

[coyote90]

J'ai le message suivant au clic sur l'objet
"
Erreur d'exécution '438':
Propriété ou méthode non gérée par cet objet
"

nota : l'élément que je veux déplacer est un bouton créer avec la "boite à outils contrôles" et il semblerait que ce ne soit pas un Control au sens pure VB

[ucfoutu]

Ton bouton est-il sur une UserForm ?

Car chez moi (je viens enfin de le tester) ===>> aucun problème !

[coyote90]

NON, le bouton n'est pas dans une userform mais directement sur la feuille excel.

[ucfoutu]

NON, le bouton n'est pas dans une userform mais directement sur la feuille excel.

Voilà très exactement ce qu'il aurait fallu savoir dire depuis le tout début.
Voilà également la démonstration de ce que seules les questions précises conduisent à des réponses précises ...