Discussion :

[horemheb]

Bonjour, j'utilise l'évènement MouseMove pour changer la couleur d'une Image lorsque le curseur de la souris passe dessus, pas de problème . Mais je voudrais réaffecter la couleur d'origine avec l'évènement MouseLeave qui est cité par Microsoft mais qui n'apparaît pas dans l'explorateur de projet. J'ai bien MouseUp, MouseDown, etc. mais pas de MouseLeave.
Pourriez-vous me renseigner sur ce point ?
Merci et belle journée.

[PMO2017]

Bonjour,

Demande de précision :
S'agit-il
1) d'un contrôle Image dans un UserForm
ou
2) d'un OLEObject Image dans une feuille Excel
*****
Si c'est le cas 1, j'aurais une astuce à vous proposer sans utiliser l'évènement MouseLeave.

[patricktoulon]

bonjour

tu peux utiliser le meme evenement mais de l'userform pour revenir a la couleur d'origine
le principe serait de memoriser la couleur dans le tag de l'image par exemple
et utiliser les deux evenement
exemple

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 Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image1.BackColor = vbRed 'l'image deviens rouge
End Sub
 
Private Sub UserForm_Activate()
Me.Image1.Tag = Me.Image1.BackColor 'memorise dans le tag la couleur du control
End Sub
 
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
j 'efectue le changement si la condition et bonne ca evite de faire 36 fois la meme chose a chaque fois que tu bouge sur l'userform
If Me.Image1.BackColor <> Me.Image1.Tag Then Me.Image1.BackColor = Me.Image1.Tag
End Sub

Et si tu a plusieur image voici un exemple avec 3 images

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
34
35
 
Dim oldcontrol As String, ctrl As Object
 
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If oldcontrol <> Image1.Name Then
        Image1.BackColor = vbRed    'l'image deviens rouge
        If oldcontrol <> "" Then Me.Controls(oldcontrol).BackColor = Me.Controls(oldcontrol).Tag
        oldcontrol = Image1.Name
    End If
End Sub
Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If oldcontrol <> Image2.Name Then
        Image2.BackColor = vbRed    'l'image deviens rouge
        If oldcontrol <> "" Then Me.Controls(oldcontrol).BackColor = Me.Controls(oldcontrol).Tag
        oldcontrol = Image2.Name
    End If
End Sub
 
Private Sub Image3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If oldcontrol <> Image3.Name Then
        Image3.BackColor = vbRed    'l'image deviens rouge
        If oldcontrol <> "" Then Me.Controls(oldcontrol).BackColor = Me.Controls(oldcontrol).Tag
        oldcontrol = Image3.Name
    End If
End Sub
Private Sub UserForm_Activate()
'on memorise la couleur de base de chaque controls dans leurs tag respectif
    For Each ctrl In Me.Controls
        ctrl.Tag = ctrl.BackColor
    Next
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If oldcontrol <> "" Then Me.Controls(oldcontrol).BackColor = Me.Controls(oldcontrol).Tag
    oldcontrol = ""
End Sub

Au plaisir

[horemheb]

Merci pour vos réponses. Je ne cherche pas à contourner le problème, je voulais juste savoir si cet évènement MouseLeave existe (il semble donc que non).

Quant à l'origine de mon image j'ai simplement utilisé le contrôle ActiveX que l'on trouve dans Développeur-Insérer.

Je n'ai pas encore exploré les UserForms, je progresse lentement dans ma découverte de VBA Excel. J'aurai certainement encore l'opportunité de vous solliciter.

Encore merci.