Blague, case qui bouge seul.

H

hoerwind

XLDnaute Barbatruc

• 19 Octobre 2009

• #2

Re : Blague, case qui bouge seul.

Bonjour et bienvenu sur le forum,

Je me souviens avoir vu quelque chose du genre, il y a des années.
C'était une mouche qui se déplaçait aléatoirement sur l'écran lorsqu'on cliquait dessus.

Fais une recherche sur le site VeriTi, il se pourrait bien que cette macro soit de Ti (Thierry Pourtier).

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 19 Octobre 2009

• #3

Re : Blague, case qui bouge seul.

bonjour Claude

et bienvenue sur XLD
Salut hoerwind 🙂

un essai

 

Pièces jointes

• bouton_baladeur.zip

  8.3 KB · Affichages: 126

Vote positif 0 Vote négatif

F

Fanfan68

Guest

• 20 Octobre 2009

• #4

Re : Blague, case qui bouge seul.

Bonjour Le forum, bonjour tout le monde,

Une question PierreJean, que veut dire ou qu'est-ce le "alt" ? j'ai vu que tu l'as déclaré mais je ne vois rien qui porte ce nom.

Merci pour l'explication que tu pourras me donner

A bientôt

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 20 Octobre 2009

• #5

Re : Blague, case qui bouge seul.

Re

alt est une variable booleenne et est utilisée ici

Code:

Public [COLOR=blue]alt[/COLOR] As Boolean
Private Sub CommandButton1_Click()
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If [COLOR=blue]alt[/COLOR] Then
 [COLOR=blue]alt[/COLOR] = False
  CommandButton1.Top = 100
  CommandButton1.Left = 250
Else
 [COLOR=blue]alt[/COLOR] = True
  CommandButton1.Top = 50
  CommandButton1.Left = 350
End If
End Sub

 

Vote positif 0 Vote négatif

C

claudeestla

Guest

• 20 Octobre 2009

• #6

Re : Blague, case qui bouge seul.

Merci pour vos réponse et pour votre acceuil !

Ca fait déja longtemps que je viens sur ce site chercher les réponses à mes questions mais c'est la premiere fois que laisse un message.

Je n'ai pas encore regardé le fichier, mais je suis déja sûr que c'est ce qu'il me faut !!

Merci encore

 

Vote positif 0 Vote négatif

C

claudeestla

Guest

• 20 Octobre 2009

• #7

Re : Blague, case qui bouge seul.

Merci PierreJean c'est pile poil ce qu'il me faut !!!

Que c'est dure quand la facilité des autres est une mission impossible pour vous !!

 

Vote positif 0 Vote négatif