XL 2013 Evènement "MouseMove" dans une module de classe pour plusieurs userform

[hemerode]

Bonjour à tous,

J'ai l'evènement MouseMove que j'ai mis dans un module de classe fonctionne parfaitement sur mon Userform (UF_Valeur).
Moi je souhaite utiliser la classe1 sur plusieurs userform. Je pense que le userform doit etre dynamique.
UF_Valeur.Controls(Left(dImages.Name, 6)
Je ne sais pas grand chose sur les classes.
Classe1

Option Explicit
Public MonUserform As MSForms.UserForm
Public WithEvents dImages As MSForms.Image

Private Sub dImages_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
UF_Valeur.Controls(Left(dImages.Name, 6) & "_00").Visible = False
UF_Valeur.Controls(Left(dImages.Name, 6) & "_01").Visible = True

End Sub

Dans le Userform

Option Explicit
Dim dArray() As New Classe1

Sub List_Controls()
Dim dImage As Object, Ctrol As control, i As Integer

i = 1

For Each Ctrol In Me.Controls

If Ctrol.Tag = "zero" Then
    Set dImage = Me.Controls(Ctrol.Name)
   
    ReDim Preserve dArray(1 To i)
    Set dArray(i).dImages = dImage

    i = i + 1
End If

Next Ctrol

End Sub

Je galère depuis 3 jours.
Merci à tous pour vos contributions.

 

[patricktoulon]

bonjour
avec un fichier minimiser représentant le soucis ce serait mieux
je soupçonne que tu a un message de référence a l'object indéfini

pour info
dans une classe on peut jumeler plusieurs controls pour se simplifier la vie
j'attends ton fichier

 

[hemerode]

Voici le fichier présentant ma situation.
Cordialement

 

[hemerode]

bonjour
avec un fichier minimiser représentant le soucis ce serait mieux
je soupçonne que tu a un message de référence a l'object indéfini

pour info
dans une classe on peut jumeler plusieurs controls pour se simplifier la vie
j'attends ton fichier

Patrick, j'ai posté le fichier.

 

[patricktoulon]

re
oui ben je vois pas ta ou tes images dans le userform
de plus il y a une erreur dans le nommage de tes controls
ça doit être le nom de l'image +"_00" et l'autre nom de l'image + "_01"

hors les seuls deux controls que je vois dans ton userform s'appellent

1. Btn100_00
2. Btn101_00

il terminent tout les deux pareil
conclusion même si il y a vais une image on aurait un problème d'association
bref cela rend tellement obscure ce que tu souhaite que je ne sais plus vraiment ce que tu veux faire
car en l'etat ton fichier ne correspond en rien à la demande

 

[hemerode]

re
oui ben je vois pas ta ou tes images dans le userform
de plus il y a une erreur dans le nommage de tes controls
ça doit être le nom de l'image +"_00" et l'autre nom de l'image + "_01"

hors les seuls deux controls que je vois dans ton userform s'appellent

1. Btn100_00
2. Btn101_00

il terminent tout les deux pareil
conclusion même si il y a vais une image on aurait un problème d'association
bref cela rend tellement obscure ce que tu souhaite que je ne sais plus vraiment ce que tu veux faire
car en l'etat ton fichier ne correspond en rien à la demande

Patrick,
Sur mon userform, j'ai 4 controles. Je les ai decalés afin que tu les voies.
Voir la pièce jointe.
J'ai rajouté un 2nd userform pour mettre en lumière ma préoccupation.
Je souhaite utilisé la classe1 avec "USERFORM1", faire fonctionner l'évènement mouse over.

 

[patricktoulon]

RE
bon le uf_valeur semble fonctionner le passage sur le blanc le fait disparaitre pour laisser le vert visible
mais si c'est juste histoire de couleur tu n'a pas besoins de doubler les controls