bouger une msgbox avec de la souris

Version imprimable

05/07/2011, 15h27
dodo69

bouger une msgbox avec de la souris

Bonjour,

J'aimerai acroître mes compétences en VBA en faisant un petite blague:)

Cependant, ba je ne peux pas continuer étant donné qu'il me manque des bases.

Je voudrais afficher un Msgbox avec vbyesno

Puis lorsque l'utilisateur veut cliquer sur la touche "non" la msgbox change de place , est-ce possible?

Si c'est plus facile au moyen d'un userform je prend aussi :)

Merci d'avance

Cdlt
DoDo
05/07/2011, 16h46
delphine35

Tu peux gerer ca dans un userform

avec la fonction : UserForm_MouseMove

et l'emplacement de ton UserForm :
Avec StartUpPosition = 0 et les positions Left et Top que tu fait varier suivant le contenu des variables paramètre contenu dans MouseMove

ou un bouton dans un UserForm ..
05/07/2011, 17h17
dodo69

oula, j'ai très vaguement entendu parler de la fonction mousemove,
mais je t'avouerai que tu vien de parler une autre langue pour moi :s

peut-etre pourrais-tu m'aiguiller de manière plus précise stp :)

Ca serai très gentil

Merci
05/07/2011, 17h18
delphine35

Je regarde et te repond dès que possible :D
05/07/2011, 17h27
dodo69

Merci beaucoup :)

Mais ne t'inquiète pas C'est pas urgent urgent :p

ca peut très bien attendre demain 8-)

Merci en tout cas

J'ai creer un UserForm appelé U1, voici le code dans le UserForm

Code:

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
29
30
31
32
33
 
Private Sub UserForm_Activate()
    U1.Width = 125.25
    U1.Height = 43.5
    U1.Top = 200
    U1.Left = 300
    U1.Caption = "Attrape moi !! "
End Sub
 
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'ByVal X As Single, ByVal Y As Single)
 
 
Dim L As Single
Dim T As Single
 
 
 L = U1.Top
 T = U1.Left
 
 If L > 650 Then
    L = 0
 End If
 
 If T > 800 Then
    T = 0
  End If
 
 U1.Top = L + 20
 U1.Left = T + 100
 
 
End Sub

:ccool:

Autre version aleatoire :

Code:

1
2
3
4
5
6
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
 U1.Top = Rnd(1) * 700
 U1.Left = Rnd(1) * 850
 
End Sub

06/07/2011, 09h07
dodo69

Merci ca marche super bien,

est ce que c'est possible de faire la même chose avec un bouton spécial d'un userform,
je m'explique

Je pose une question et j'ai 2 boutons: "oui" et "non" et j'aimerai que lorsque sa souris s'approche du non, l'userform change de place

Merci d'avance

Tu veux que le Userform change de place ou le bouton dans l'UserForm ?

Avec le bouton qui bouge dans un Userform :

Userform : U1
Bouton 1 : OUI
Bouton 2 : NON

Code:

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
29
Private Sub NON_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
 ' U1.NON.Top = 450 + Rnd(1) * 200
' U1.NON.Left = 500 + Rnd(1) * 350
 
  U1.NON.Top = Rnd(1) * 650
  U1.NON.Left = Rnd(1) * 850
 
End Sub
 
 
Private Sub UserForm_Activate()
 
    U1.OUI.Caption = "OUI"
    U1.NON.Caption = "NON"
    U1.Width = 960
    U1.Height = 745
    U1.Left = 0
    U1.Top = 0
    U1.OUI.Top = 600
    U1.OUI.Left = 403
    U1.NON.Top = 600
    U1.NON.Left = 557
    U1.OUI.Width = 72
    U1.OUI.Height = 24
    U1.NON.Width = 72
    U1.NON.Height = 24
 
End Sub

Génial Delphine,

je me suis permis de légèrement le réadapté ^^
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub NON_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) U1.Top = Rnd(1) * 650 U1.Left = Rnd(1) * 850 End Sub Private Sub UserForm_Activate() U1.OUI.Caption = "OUI" U1.NON.Caption = "NON" U1.Width = 298.5 U1.Height = 150.75 U1.Left = 200 U1.Top = 300 End Sub
Par contre, une dernière question, est ce que c'est possible lorsque l'utilisateur ferme l'userform en cliquant sur la croix rouge, il se réaffiche immédiatement après ?
ou plus simplement de bloquer la fermeture de l'userform avec la croix ...

Merci encore :)

Dans une Module, tu crée une macro :
Code:

1 2 3 4 5 6 7 Public Sub Lance_Moi() Dim i As Single For i = 1 To 5 U1.Show Next i End Sub
Et c'est cette macro que tu executes. Ici il boucle 5 fois.

06/07/2011, 10h55
dodo69

:) Merci beaucoup Delphine , c'est gentil de prendre du temps pour m'apprendre pleins de chose :)

Allé, dernière question pendant que j'ai des pro sous la main :ccool:

Comment puis-je afficher un compte-à-rebours dans un label de cette Userform
Explication: je souhaite afficher un compte-à-rebours sur ce même userform (environ 20-30 secondes) ou l'utilisateur doit appuyer sur oui, si il ne l'a pas fait, une macro d'éxécute ,

Comment puis-je faire cela?

Merci d'avance