VBA Excel : série de label_x_click()

VBA Excel : série de label_x_click() - VB/VBA/VBS - Programmation

Marsh Posté le 16-04-2014 à 13:06:52    

Bonjour,  
 
j'ai actuellement 26 fois ce code. Il est lancé depuis le Userform15 (clic sur un label FestivalX, X allant de 1 à 26)
 
Private Sub FestivalX_Click()
        UserForm17.titrefestival = Userform15.FestivalX.Caption
End Sub
 
 
Comment faire pour n'avoir qu'une seule fois ce code avec en paramètre le numero du label sur lequel j'ai cliqué ?
Sous-entendu, il extrait le numéro du label sur lequel j'ai cliqué pour l'intégrer dans mon code ?
 
Merci du coup de main !
Je précise ne pas trop maitriser les "For Each" mais je veux bien essayer de comprendre !


Message édité par westa le 17-04-2014 à 13:03:01
Reply

Marsh Posté le 16-04-2014 à 13:06:52   

Reply

Marsh Posté le 22-04-2014 à 12:58:40    

En cherchant sur différents forums, j'ai trouvé quelques pistes mais je n'arrive pas à savoir si je suis sur la bonne piste, ni à l'adapter comme je voudrais...

 

L'idée si je comprends bien est de référencer, à l'initialisation du Userform, tous les labels FestivalX dans un dossier qui s'appellerait ListeItem.
Ensuite, un clic sur un membre de ListeItem appellerait la fonction générique (ListeItem_click).
Mais évidemment, ca ne marche pas dans mon cas... Il ne se passe rien lorsque je clique sur un des labels Festival.

 

J'ai donc créé un module de classe (que j'ai nommé CLblEvents, sans que je sache ce que ca veut dire) avec le code suivant :

 
Code :
  1. Public WithEvents ListeItem As MSForms.Label
  3. Private Sub ListeItem_Click()
  4.     UserForm17.titrefestival = ListeItem.Caption
  5. End Sub
 

Puis dans un module classique :

 
Code :
  1. Dim mcolEvents As New Collection
  4. Private Sub Userform15_initialize()
  6. Dim ListeItem As CLblEvents
  7. Dim Ctl As Control
  8. Dim clsLblEvents As CLblEvents
  10.     Set mcolEvents = New Collection
  11.    
  12.     For Each Ctl In UserForm15.Controls
  13.         If Ctl.Type = msoOLEControlObject Then
  14.             If TypeOf Ctl.OLEFormat.Object.Object Is MSForms.Label Then
  15.                 If Ctl.Name Like "Festival" Then
  16.                     Set clsLblEvents = New CLblEvents
  17.                     Set clsLblEvents.ListeItem = Ctl.OLEFormat.Object.Object
  18.                     mcolEvents.Add clsLblEvents
  19.                 End If
  20.             End If
  21.         End If
  22.     Next
  24. End Sub
 

Est-ce que j'ai un moyen de savoir si ListeItem est correctent rempli ? pour situer le problème...

 

Merci pour votre aide...


Message édité par westa le 23-04-2014 à 11:11:48
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed