Discussion :

[esse2016]

Bonjour au forum,

Actuellement je gère l'événement label_click d'après mon code hyper lourd et intenable.
Comment faire pour éviter de se taper n lignes de code "répétitifs" faisant la même chose mais ouvrant un fichier différent en fonction du caption sur le label cliqué ?

Je m'explique, mon mini projet est de faire ceci:
1/ détecte le caption du label sur lequel j'ai cliqué (il ne doit pas être vide pour faire 2/ et il le label.name commence à 101 et se finit à 407 et ne tiens pas compte des autres labels existant)
2/ lit le contenu du fichier relatif au caption mémorisé/cliqué
3/ fait de l'affichage dans une listbox


Dans mon userform, je fais bestialement ceci :

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
26
27
28
29
30
31
32
33
 
Private Sub label100_click()
If Label100.Caption <> "" Then
Call LectureFichier(Label100.Caption)
End If
End Sub
 
Private Sub label101_click()
If Label101.Caption <> "" Then
Call LectureFichier(Label101.Caption)
End If
End Sub
 
Private Sub label102_click()
If Label102.Caption <> "" Then
Call LectureFichier(Label102.Caption)
End If
End Sub
 
Private Sub label103_click()
If Label103.Caption <> "" Then
Call LectureFichier(Label103.Caption)
End If
End Sub
 
Private Sub label104_click()
If Label104.Caption <> "" Then
Call LectureFichier(Label104.Caption)
End If
End Sub
.
.
.

merci pour votre aide car c'est redondant comme méthode

[Philippe Tulliez]

Bonjour,
La solution est de passer par un module de classe.
Si le but est cliquer sur un bouton pour obtenir le nom d'un fichier à ouvrir, il y a d'autres solutions plus simple comme par exemple avoir une liste déroulante (ComboBox) ou liste simple (ListBox) avec le nom des fichiers à ouvrir.