XL 2016 Userform

[shippuden1985]

Bonjour
j'ai un module pour créer des images dans un userform avec les events click() de chacune. après exécution j'ai mon userform avec tous les images. MAIS l'event ne fonctionne pas. un exemple : si je clique sur image1 j'ouvre un fichier pdf. si je clique sur image2 j'ouvre un fichier word. ci-joint un fichier excel .
merci

 

[Dranreb]

Bonjour.
Il faut définir par un module de classe un type d'objet support pour y prendre en charge les évènements d'un contrôle à créer dynamiquement.

 

[shippuden1985]

Bonjour.
Il faut définir par un module de classe un type d'objet support pour y prendre en charge les évènements d'un contrôle à créer dynamiquement.

Merci pour la rapidité. vous pouvez me donner un exemple SVP.

 

[Dranreb]

Il faudrait savoir comment vous voulez que l'UserForm soit informé d'un clic sur une de ces images. Il faudrait peut être aussi définir un objet ensemble d'images générant un évèneent pour lui.
Moi je pense qu'il vaudrait mieux passer par des images en nombre suffisant préétablies à la conception de l'UserForm.

 

[Dranreb]

Exemple de modules de classe vite fait:
Un premier rebaptisé EnsembleImages :

Option Explicit
Event Click(ByVal Info)
Private Cln As New Collection
Public Sub Add(ByVal Frm As MSForms.Frame, ByVal FileName As String, ByVal Info)
   Dim SIe As SupportImage
   Set SIe = New SupportImage
   SIe.Init Me, Frm.Controls.Add("Forms.Image.1"), FileName, Info
   Cln.Add SIe
   End Sub
Public Sub MéthodeRéservéeÀSupportImage(ByVal Info)
   RaiseEvent Click(Info)
   End Sub

Un second rebaptisé SupportImage :

Option Explicit
Private WithEvents Image As MSForms.Image, Parent As EnsembleImages, Information
Public Sub Init(ByVal EIs As EnsembleImages, Img As MSForms.Image, ByVal FileName As String, ByVal Info)
   Set Image = Img
   Image.Picture = LoadPicture(FileName)
   If IsObject(Info) Then Set Information = Info Else Information = Info
   End Sub
Private Sub Image_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   Parent.MéthodeRéservéeÀSupportImage Information
   End Sub

En tête de l'UserForm :

Option Explicit
Private WithEvents EIs As EnsembleImages
Private Sub UserForm_Initialize()
   Set EIs = New EnsembleImages

Avec dedans des :

   EIs.Add Me.corp, MachinTrucJpg, ÀRendre

Et plus loin :

Private Sub EIs_Click(ByVal Info As Variant)

   End Sub

 

[shippuden1985]

Merci Dranreb. j'ai utilisé les 2 premiers commentaires pour trouver la solution.