Option button - Optimisation code

Bonjour,

j'ai sur une page d'un Multipages plusieurs Options Buttons ( qui servent à vérifier la présence sur le pare brise des véhicules de l'entreprise les vignettes Crit Air ainsi que leur niveau).

Pièce jointe 597897


Le choix sur un niveau renvoie vers la page 0 du multiframe.

Question : y a t'il moyen ( plus simple) de traiter ces option button que ce bout de code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

'saisie Frame Vignette Crit Air Private Sub optionbuttonNiveau0_click()   MultiPage5.Pages(0).Visible = True MultiPage5.Pages(1).Visible = False   End Sub   'saisie Frame Vignette Crit Air Private Sub optionbuttonNiveau1_click()   MultiPage5.Pages(0).Visible = True MultiPage5.Pages(1).Visible = False   End Sub ....

---

merci

Salut.

On pourrait partir sur une classe personnalisée, mais je ne suis pas convaincu que ce serait (beaucoup) "plus simple". De plus, chacun a ses propres critères de ce qu'est la simplicité).

Tu pourrais déjà partir sur une procédure commune (règle de base: les proc évènementielles ne devraient rien faire d'autre que d'appeler des procédure, en gros)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

'saisie Frame Vignette Crit Air Private Sub optionbuttonNiveau0_click() GestionMultipage End Sub   'saisie Frame Vignette Crit Air Private Sub optionbuttonNiveau1_click() GestionMuliPage End Sub   Sub GestionMultipage() MultiPage5.Pages(0).Visible = True MultiPage5.Pages(1).Visible = False End Sub

---

merci