Discussion :

[eliot.raymond]

Bonjour a toutes et tous, Forum bonjour

Je reviens vers vous a propos de mon module de classe qui fonctionne mais je n'arrive pas a adapter le bout de code a traiter.

Je ne vois plus comment faire après pleins d'essais et vous sollicite svp pour une aide.

Je m'explique:
A l’ouverture de l’UserForm tous les labels 0/9 à Z sont Violet >> Label 100 à 126 et tous les labels en dessous en Rose >> Label 127 à 153.
Si la souris n’ai plus dans un de ces labels alors retour à couleur Violet et Rose

But :

Au survol de la souris des labels 100 à 126 passent en Rouge puis reprends la couleur Violet quand on le quitte
et les labels dessous suivent le mouvement, mais la couleur change en Turquoise, comme voir svp Photo.

Je joins une photo plus simple qu'un long discours.

Je vous remercie pour temps et votre aide et vous souhaitent une très bonne journée.

Cordialement Ray

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
38
39
40
41
42
43
44
45
Dans Module de Classe baptisé ClasseLabels 
 
Option Explicit
Public WithEvents GrLabels As Msforms.Label
Public Gest As Gestion_du_listing       'Nom de l'UserForm
 
Private Sub GrLabels_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
Dim i As Integer
Set Gest = Gestion_du_listing 
 
‘------------- Pour repartir de ce Code original ci-dessous 
Private Sub Label100_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
For i = 100 To 126
With Me
If .Controls("Label" & i).Name = "Label100" Then
  .Controls("Label" & i).BackColor = RGB(255, 0, 0)           'Rouge
  .Controls("Label" & i + 27).BackColor = &HFFFF80        'Turquoise
If .Controls("Label" & i + 27).Caption <> "" Then
.TextBox3.Value = .Controls("Label" & i).Caption & " : " & .Controls("Label" & i + 27).Caption
Else
.TextBox3.Value = ""
End If
Else
If .Controls("Label" & i).BackColor <> &H800080 And _
  .Controls("Label" & i + 27).BackColor <> &HC0C0FF Then
  .Controls("Label" & i).BackColor = &H800080                'Violet
  .Controls("Label" & i + 27).BackColor = &HC0C0FF      'Rose
End If
End If
End With
Next i
End Sub
 
 
Dans Module UserFrom Initialize:
Dim Btn(100 To 126) As New ClasseLabels
Dim i As Integer
 
'##### USERFORM INITIALIZE
Private Sub UserForm_Initialize()
For i = 100 To 126
Set Btn(i).GrLabels = Me("Label" & i)
Next i
End Sub