Discussion :

[eno97]

Bonsoir tout le monde

voilà, j'ai un userform sur lequel un certain nombre d'images sont créée dynamiquement.

Ce que je voudrais c'est que, lorsque je clique sur l'une des images, un autre userform s'ouvre, mais je ne vois pas comment procéder

est-ce que quelqu'un pourrait m'aider?

merci d'avance

[Oliv-]

Bonsoir
Il faut utiliser un module de classe qui va gérer les événements sur tes images.

[eno97]

Bonjour


je viens de parcourir un tuto sur les modules de classes, et je t'avoue que je ne vois pas vraiment comment les utiliser pour réaliser ce que je veux faire

[Oliv-]

En fait tu pourrais créer les événements qui vont avec les noms de tes images

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Image1_Click()
MsgBox "fire 1"
End Sub
 
Private Sub Image2_Click()
MsgBox "fire 2"
End Sub
 
Private Sub Image3_Click()
MsgBox "fire 3"
End Sub
 
etc..

mais cela ne déclenche pas les événements click

tu dois donc utiliser un module de classe nommé ici Cls_ImageEvents

Code :

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

1
2
3
4
5
6
Public WithEvents Mesimages As MSForms.Image
 
 
Private Sub Mesimages_Click()
MsgBox Mesimages.Name
End Sub

et dans ton formulaire

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
Dim collec_Images, new_image

Private Sub UserForm_Initialize()
    Dim LastTop
    LastTop = 66
    
    Dim Cl_Image As Cls_ImageEvents
    Set collec_Images = New Collection
    
    Dim n
    For n = 1 To 5
        Set new_image = Me.Controls.Add("forms.Image.1", "Image_" & n, True)
        With new_image
            .Top = LastTop
            LastTop = LastTop + .Height
        End With

        Set Cl_Image = New Cls_ImageEvents
        Set Cl_Image.Mesimages = new_image
        collec_Images.Add Cl_Image
    Next n



End Sub

En gras la partie qui va gérer tes évenements