Discussion :

[UDSP50]

boujou tout le monde

jai un formulaire avec 175 label

Label1 à Label175

est il possible par le code de changer la couleur du fond du Label au survol de la souris

Genre si je passe sur le label3 le fond blanc passe en rose et revien blanc quand la souris n'est plus dessus

Merci

[Jean-Philippe André]

Salut,

les evenements qui vont t'interesser sont
MouseMove voire GotFocus

[Theze]

Bonjour,

Avec 175 Labels, je pense que l'utilisation d'un module de classe est inévitable afin d'avoir un code assez court.
A mettre dans le module du formulaire (il doit s'appeler UserForm1, sinon, adapter) :

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 Lbl() As New ClsLbl 'tableau de Labels
Public LblActif As MSForms.Label 'stocke le label actif
 
Private Sub UserForm_Initialize()
 
    Dim Ctrl As Control
    Dim I As Integer
 
    'crée le groupe de Labels
    For Each Ctrl In Me.Controls
 
        If TypeName(Ctrl) = "Label" Then
 
            I = I + 1
            ReDim Preserve Lbl(1 To I)
            Set Lbl(I).GroupeLbl = Ctrl
 
        End If
 
    Next Ctrl
 
    Set Ctrl = Nothing
 
End Sub
 
 
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
    'permet de remettre la couleur blanche du dernier
    'Label survolé
    On Error Resume Next
    LblActif.BackColor = &HFFFFFF
 
End Sub

A mettre dans le module de classe et le nommer "ClsLbl" :

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
 
Public WithEvents GroupeLbl As MSForms.Label
 
Private Sub GroupeLbl_MouseMove(ByVal Button As Integer, _
                                ByVal Shift As Integer, _
                                ByVal X As Single, _
                                ByVal Y As Single)
 
    Dim Ctrl As Control
 
    'tous les Labels en couleur blanche
    For Each Ctrl In UserForm1.Controls
 
        If TypeName(Ctrl) = "Label" Then
 
            Ctrl.BackColor = &HFFFFFF
 
        End If
 
    Next Ctrl
 
    'Label survolé en rose
    GroupeLbl.BackColor = &HFF80FF
 
    'mémorise le dernier coloré en rose
    Set UserForm1.LblActif = GroupeLbl
 
    Set Ctrl = Nothing
 
End Sub

Au passage de la souris, le Label survolé se colore en rose alors que les autres reprennent leur couleur blanche.
L'évènement "UserForm_MouseMove" de la Form permet de remettre le dernier Label en blanc quand tu quittes la zone des Labels.

Hervé.

[UDSP50]

je comprend pas dans le module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Public WithEvents GroupeLbl As MSForms.Label

est ecrit en rouge

[UDSP50]

Autant pour moi c'est bon ca marche merci