Blague, case qui bouge seul.

[claudeestla]

Bonjour,

J'ai fais un tableau de bord général avec plein de boutons liées à des raccourcis et je voudrais ajouter dans le lot un bouton "augmentation" qui s'échappe en haut à droite ( par exemple)lorsque l'on veut cliquer dessus et lors de la deuxieme tentative, le bouton retourne a sa place.

Merci d'avance de m'accorder un peu de temps même si le sujet n'est pas sérieux.

J'espère avoir poster mon sujet au bon endroit, sinon désolé

 

[hoerwind]

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

 

[pierrejean]

Re : Blague, case qui bouge seul.

bonjour Claude

et bienvenue sur XLD
Salut hoerwind 🙂

un essai

 

[Fanfan68]

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

 

[pierrejean]

Re : Blague, case qui bouge seul.

Re

alt est une variable booleenne et est utilisée ici

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

 

[claudeestla]

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

 

[claudeestla]

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