Bonjour à tous !

J'ai crée près d'une cinquantaine de ToggleButton dans ma feuille Excel, chaque bouton pour une ligne.

Voici le code pour chaque togglebutton :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Private Sub ToggleButton1_Click()
 
If ToggleButton1 = True Then
    ToggleButton1.Caption = "Enregistré"
    ToggleButton1.Enabled = False
End If
 
End sub
J'aimerai pouvoir créer qu'une seule procedure et pouvoir faire quelque chose comme :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Call ToggleButton & i & _Click
 
if toggleButton & i = True then
...
End if
Est-ce possible ?