simple mais introuvable

Version imprimable

08/10/2007, 16h45
bibiweb

simple mais introuvable

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
08/10/2007, 19h02
Invité

Bonjour

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

Starec

bonjour,
juste pour le fun

1 userform , 1 commandbutton
et le code

Code:

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

08/10/2007, 21h19
fred65200

bonsoir le fil,

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

Code:

Me.Caption = "ça colle"

Cordialement
fred65200

Hi hi hi hi hi !!!

Plus compliqué :

Code:

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