IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

[E-03] Comment faire pour qu'un objet s'enfuie quand la souris approche


Sujet :

Macros et VBA Excel

  1. #1
    Débutant
    Inscrit en
    Décembre 2007
    Messages
    1 235
    Détails du profil
    Informations forums :
    Inscription : Décembre 2007
    Messages : 1 235
    Points : 269
    Points
    269
    Par défaut [E-03] Comment faire pour qu'un objet s'enfuie quand la souris approche
    Bonjour, je voudrais par exemple mettre un label et que celui s'écarte dès que l'on essaye de cliquer dessus.

    Merci

  2. #2
    Membre expérimenté Avatar de laetitia
    Profil pro
    Inscrit en
    Décembre 2002
    Messages
    1 281
    Détails du profil
    Informations personnelles :
    Âge : 34
    Localisation : France

    Informations forums :
    Inscription : Décembre 2002
    Messages : 1 281
    Points : 1 512
    Points
    1 512
    Par défaut
    re, moilou2 le forum dans un useform + un bouton
    code bouton
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Private Sub CommandButton1_MouseMove(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
     
              CommandButton1.Top = Int((100 * Rnd))
              CommandButton1.Left = Int((100 * Rnd))
    End Sub

  3. #3
    Débutant
    Inscrit en
    Décembre 2007
    Messages
    1 235
    Détails du profil
    Informations forums :
    Inscription : Décembre 2007
    Messages : 1 235
    Points : 269
    Points
    269
    Par défaut
    Pas mal pas mal.

    Sachant que j'ai mis sa sous l'événement mouse_mouse de mon UserForm.

    Est ce que j'ai un moyen, je pense une boucle ou un compteur, de faire sa 10s et ensuite de fair apparaitre un bouton pour que la personne puisse tout de même sortir?

    Merci sinon c'est super

  4. #4
    Membre expérimenté Avatar de laetitia
    Profil pro
    Inscrit en
    Décembre 2002
    Messages
    1 281
    Détails du profil
    Informations personnelles :
    Âge : 34
    Localisation : France

    Informations forums :
    Inscription : Décembre 2002
    Messages : 1 281
    Points : 1 512
    Points
    1 512
    Par défaut
    re,moilou le forum plusieurs possibilitees une tempo,un timer ,un compteur pour moi le plus simple c est une tempo
    CommandButton2 par defaut proprietes a false
    Option Explicit
    Dim p, s As Variant
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub CommandButton1_MouseMove(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
    CommandButton1.Top = Int((100 * Rnd))
    CommandButton1.Left = Int((100 * Rnd))
    p = 5: s = Timer: Do While Timer < s + p: DoEvents: Loop
     CommandButton2.Visible = True
    End Sub
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub CommandButton2_Click()
    Unload Me
    End Sub
    par compteur
    Dim x As Byte
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Private Sub CommandButton1_MouseMove(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
    CommandButton1.Top = Int((100 * Rnd))
    CommandButton1.Left = Int((100 * Rnd))
    x = x + 1
    If x > 40 Then CommandButton2.Visible = True
    End Sub
    Private Sub CommandButton2_Click()
    Unload Me
    End Sub
    Private Sub UserForm_Initialize()
    x = 0
    End Sub
    par timer c est vite une usine a gaz!!
    il faut gerer tres fin surtout l arret du timer

  5. #5
    Débutant
    Inscrit en
    Décembre 2007
    Messages
    1 235
    Détails du profil
    Informations forums :
    Inscription : Décembre 2007
    Messages : 1 235
    Points : 269
    Points
    269
    Par défaut
    Super merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [PPT-2010] Comment faire pour qu'un bouton s'enfuie quand la souris approche
    Par monkeyjazz dans le forum Powerpoint
    Réponses: 0
    Dernier message: 30/12/2013, 12h19
  2. Réponses: 10
    Dernier message: 18/04/2011, 16h53
  3. Réponses: 1
    Dernier message: 04/11/2009, 01h39
  4. Réponses: 12
    Dernier message: 14/04/2009, 21h10
  5. Réponses: 11
    Dernier message: 29/09/2008, 11h57

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo