Discussion :

[sorata14]

Bonjour à tous et à toutes,

Voilà mon petit problème :

J'ai plusieurs image dans un userform (126) et j'aimerais savoir si il est possible de récupérer le nom de l'image sur laquellle j'ai clické.
En gros lorsque que je click n'importe où sur mon userform j'aimerais savoir quel est le control qui a été clické.

Je sais bien qu'il existe un évènement click pour chaque image, mais j'aimerais optimiser mon code.

J'espère avoir été assez claire dans la description de mon problème.

D'avance merci pour votre aide.

[mapeh]

Bonjour,

Le plus simple, avec tant d'images, est d'utiliser un module de classe....

Dans ton fichier, dans le VBE (Alt + F11), tu fais Insertion/Module de Classe
Par défaut, il va s'appeler "Classe1"

Dans ce module de classe, mets ce code :

Code :

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

1
2
3
4
Public WithEvents GrImages As MSForms.Image
Private Sub GrImages_Click()
  MsgBox GrImages.Name
End Sub

Dans un module standard, tu mets cette déclaration, en haut du module :

Code :

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

Public Img(1 To 126) As New Classe1

Dans l'initialize de l'Userform, tu mets ces lignes :

Code :

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

1
2
3
4
5
Private Sub UserForm_Initialize()
Dim I As Byte
For I = 1 To 126: Set Img(I).GrImages = Me("Image" & I): Next I
'reste du code d'initialisation
End Sub

En supposant que tes images se nomment toutes Image1 à Image126, sinon tu peux mettre ce code :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
Dim Ctl As Control
For Each Ctl In Me.Controls
    If TypeOf Ctl Is MSForms.Image Then
        I = I + 1: Set Img(I).GrImages = Ctl
    End If
Next Ctl
'reste du code d'initialisation
End Sub

Bon courage

[sorata14]

Que dire à part que vous êtes trop fort je galère depuis quelques jours déjà.

Je connaissais pas le principe des modules de classes, merci beaucoup vraiment!