Discussion :

[matfeb]

Bonjour, je ne trouve pas la méthode qui pourrait me permettre lors du survol de ma souris sur un LABEL que la police de ce label change de couleur. En gros j'aimerais faire comme avec un lien hypertexte.
J'ai cherché dans certains topic où Starec à répondu mais ca ne convient pas à ma demande.
Cordialement.

[Gabout]

Bonjour,

Sauf erreur de ma part, le label n'acceptent pas le traitement d'évènement. Tu dois pouvoir contourner la difficulté en utilisant des champs TEXTE que tu utilises comme LABEL.

Je n'ai pas testé.

Gabout

[micniv]

Une méthode sommaire mais qui marche bien :
dans 1 form j'ai 5 labels lbl1, lbl2 ....
autour de [lbl1], je place un cadre [cdr1]( un rectangle) que je place en arrière plan
puis le VBA associé :

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
36
37
 
   Private Sub lbl1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call ClickCadre("cdr1")
End Sub
 
Private Sub lbl1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call FlipCadre("cdr1")
End Sub
 
 
'... on réptète pour les autres lbln ....
 
Private Function FlipCadre(ctlActif As String)
    On Error Resume Next
 
    Me.cdr1.Visible = False
    Me.cdr2.Visible = False
    Me.cdr3.Visible = False
    Me.cdr4.Visible = False
    Me.cdr5.Visible = False
    If Not IsNothing(ctlActif) Then
        Me(ctlActif).Visible = True
    End If
 
End Function
 
Public Function ClickCadre(ctlActif As String)
 
    Me!cdr1.BackColor = 15651521
    Me!cdr2.BackColor = 15651521
    Me!cdr3.BackColor = 15651521
    Me!cdr4.BackColor = 15651521
    Me!cdr5.BackColor = 15651521
 
    Me(ctlActif).BackColor = 14857624
 
End Function

Bonne continuation,

[matfeb]

Merci pour vos réponses.
@ bientôt .