Discussion :

[bibiweb]

bonjour, je cherche depuis tres longtemps a rendre déplacable par l'utilisateur un bouton sur un userform.
donc dans excel par exemple, un user form, sur lequel j'ai mis un bouton qui exécute une macro. je souhaite pouvoir déplacer le fameux bouton dans le userform. éventuellement un deuxieme bouton qui servirait à passer en mode déplacement autorisé, merci a tous

[Invité]

Bonjour

Question peut-être idiote, mais pourquoi veux-tu déplacer un bouton ?

Starec

[patbou]

bonjour,
juste pour le fun

1 userform , 1 commandbutton
et le code

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
 
Option Explicit
Dim stope As Boolean
Private Sub CommandButton1_Click()
stope = True
End Sub
 
 
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If stope = False Then
CommandButton1.Move X, Y
DoEvents
End If
End Sub
 
Private Sub UserForm_Initialize()
stope = False
End Sub

[fred65200]

bonsoir le fil,

pathou, tu as oublié de mettre à l'initialisation

Code :

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

Me.Caption = "ça colle"

Cordialement
fred65200

[Maxence HUBICHE]

Hi hi hi hi hi !!!

Plus compliqué :

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 XVal As Single
Dim YVal As Single
Dim TopVal As Single
Dim LeftVal As Single
Private 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
End Sub
Private 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)
End Sub