Est ce possible de mettre un minutage dans un mousemove ??

[libellule85]

Bonsoir le forum,🙂
J'utilise dans un classeur plusieurs mousemove qui fonctionnent bien mais de temps en temps la forme (ou le texte) reste affichée malgré que je sois dans une autre partie de mon doc.
Je voulais donc savoir si il était possible de mettre un minutage (par exemple 5 s) pour que le forme (ou le texte) disparaisse 😕. Je vous met le code ci-dessous :

 Private Sub Label6_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   If X < 10 Or X > Label6.Width - 2 Or Y < 10 Or Y > Label6.Height - 2 Then
     ActiveSheet.Shapes("MonShape1").Visible = False
   Else
     ActiveSheet.Shapes("MonShape1").Visible = True
   End If
End Sub

D'avance merci pour vos réponses

 

[Compte Supprimé 979]

Re : Est ce possible de mettre un minutage dans un mousemove ??

Salut Libellule85,

Si tu utilises un timer, ton code sera bloqué pendant le temps du timer

L'astuce, peut-être, serait :
1) Définir un variable objet Public

Public Obj as Object

2) De mémoriser lors des MouseMove, l'objet en question

Set Obj = ActiveSheet.Shapes("MonShape1")

3) D'utiliser un MouseMove sur l'USF lui même et de masquer l'objet à se moment là

Obj.Visible = False

A+

 

[libellule85]

Re : Est ce possible de mettre un minutage dans un mousemove ??

Bonsoir Bruno M45,
Merci pour ta réponse.
Bonne soirée

 

[Dranreb]

Re : Est ce possible de mettre un minutage dans un mousemove ??

Bonsoir
Remarque: Les propriétés Visible sont des Boolean. Il n'est pas nécessaire d'utiliser un If pour les initialiser exactement selon l'expression logique du If, on peut directement leur affecter cette expression.
Cordialement.

 

[HachemCress]

Re : Est ce possible de mettre un minutage dans un mousemove ??

Bonsoir,
Je n'ai pas compris si le problème était résolu. Voici un minuteur simple de 5 secondes

Dim T As Double
T = Timer + 5
Do: Loop Until Timer > T