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

hemerode

XLDnaute Junior
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

VB:
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

VB:
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.
 

Pièces jointes

  • MonFichier.xlsm
    18.5 KB · Affichages: 1
Dernière édition:

patricktoulon

XLDnaute Barbatruc
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 ;)
 

patricktoulon

XLDnaute Barbatruc
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

XLDnaute Junior
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.
1685534559726.png
 

Pièces jointes

  • MonFichier.xlsm
    27.5 KB · Affichages: 7

Discussions similaires

Réponses
29
Affichages
1 K

Statistiques des forums

Discussions
313 296
Messages
2 096 923
Membres
106 787
dernier inscrit
Rachid ALIOU