Bonjour,

Je voudrais savoir si il était possible de faire une boucle plutôt que d’écrire plusieurs fois des sub quasi identiques.
Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 Public Sub TglOP60_Click()
Affichage TglOP60, "60" 'Fonction Affichage NomDuBouton 'NumDePro
End Sub
Public Sub TglOP150_Click()
Affichage TglOP150, "150"
End Sub
Public Sub TglOP520_Click()
Affichage TglOP520, "520"
End Sub
Je voulais savoir si il existait un code de ce style :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 Dim z As Variant
Dim pi As Integer
z = Array(60, 150, 520)
Dim taille As Integer
taille = UBound(z)
 
For pi = 0 To taille
….
Next pi
Définir un tableau contenant toutes mes variables et ensuite écrire quelque chose du style :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Public Sub TglOP & z(pi)_Click()
Affichage TglOP& z(pi)&, "& z(pi)"
End Sub

Merci d’avance,
Guillaume