J'ai faillit mordre à l'hameçon! :p
Oui du coup tu auras tes 18 procédures événementielles!
Je pense que tu as deux solutions,:
- tu crée les feuilles dans la macro de mise en forme du bouton (mais je déconseille, ça peut être ramer un peu, et puis dans le cas ou tu te trompe il faudra gérer la suppression de la feuille)
- tu crée les feuille lors de la validation d'un bouton, en bouclant sur tous les boutons de ton formulaire via boucle for Each.
Et du coup ça te donne:
Private Sub CommandButton1_Click()
Dim ctrl As Variant
Dim Feuill As Worksheet
Application.ScreenUpdating = False
For Each ctrl In Me.Controls
If TypeName(ctrl) = "ToggleButton" And ctrl.Value = True Then
Set Feuill = Sheets.Add(After:=Sheets(Sheets.Count))
Feuill.Name = "Feuille créée par " & ctrl.Name
End If
Next ctrl
Application.ScreenUpdating = True
End Sub
=> Le code se déclenche quand tu clique sur "Continuer"