Discussion :

[dodo69]

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

[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 ..

[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

[delphine35]

Je regarde et te repond dès que possible

[dodo69]

Merci beaucoup

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

ca peut très bien attendre demain

Merci en tout cas

[delphine35]

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

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

Autre version aleatoire :

Code :

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

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

[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