Discussion :

[Tetaye]

Bonjour à tous,

Voilà ma problématique.
Je dispose au sein d'un userform de plusieurs Private sub qui, dans leur nom, ne varient que par le préfixe (ex : AB_coupable_Change / CD_coupable_Change / EF_coupable_Change)
Je voudrai appeler ces Private sub lors de l'initialisation de l'UserForm.

L'une des solutions serait simplement de C/C le nom des 30 procédures, mais dans la mesure où je dispose déjà à l'initiation d'une boucle faisant intervenir AB, CD et EF au sein d'une variable, je me dis que je pourrai en profiter pour y glisser le nom des procédure.

Dans les faits, voilà ce que j'ai :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize
Dim art(2) As String, i As Integer
art(0) = "AB"
art(1) = "CD"
art(2) = "EF"
For i = 0 To 2
   ...
   ...
   Liste de plusieurs actions avec art(i) en variable pour désigner des controles du type : Controls("Controle1_" & art(i))
   ...
Next i
End Sub

Je voudrai donc glisser dans le For, des lignes dans le style :

Code :

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

1
2
3
4
5
art(i)_procedure1_change
art(i)_procedure2_change
art(i)_procedure3_change
art(i)_procedure4_change
art(i)_procedure5_change

Problème : je ne trouve pas la syntaxe exacte à utiliser pour désigner les différents Private Sub à appeler, en intégrant la variable art(i).

Merci d'avance pour votre aide, en espérant avoir été compréhensible dans ma demande.

[Philippe Tulliez]

Bonjour,
Pour faire ce que tu souhaites, il faut passer par les modules de classes.
Voir la FAQ sur le sujet pour les liens sur les tutoriels à lire