VBA : Récupérer le nom d'un controle "cliclké"

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.

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:

---

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:

---

Public Img(1 To 126) As New Classe1

---

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

Code:

---

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:

---

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

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!:ccool: