Remplacer 6 formulaires par un seul

[cathodique]

Mes meilleurs vœux pour cette fin d'année.

Il s'agit de formulaires demandant un mot de passe pour autoriser ou non des actions.
J'en ai 6 à vouloir remplacer par un seul. Les 6 sont appelés à partir d'un formulaire de navigation.
Je voudrais utiliser le nom du bouton actif pour gérer un seul formulaire.
Vous trouverez un complément d'explications dans le fichier joint.

Merci beaucoup.

edit: j''ai oublié de communiquer le mot de passe=123

 

[youky(BJ)]

Bonjour Cathodique,
Le plus simple déplacer la macro Autorisation en module de L'userform1
En dessous de Option Explicite tu ajoutes ceci

Sub Autorisation()
UserForm1.Caption = ActiveControl.Caption
UserForm1.Show
End Sub

Ensuite dans la macro du bouton OK de userform1
If me.caption="Cb_MàJ" then . . .
If me.caption="Cb_RAZ" then . . .
et les autres
et
Private Sub Cb_M?J_Click()
Autorisation
End Sub
et sur les autres aussi
Bruno

 

[cathodique]

Bonjour Cathodique,
Le plus simple déplacer la macro Autorisation en module de L'userform1
En dessous de Option Explicite tu ajoutes ceci

Sub Autorisation()
UserForm1.Caption = ActiveControl.Caption
UserForm1.Show
End Sub

Ensuite dans la macro du bouton OK de userform1
If me.caption="Cb_MàJ" then . . .
If me.caption="Cb_RAZ" then . . .
et les autres
et
Private Sub Cb_M?J_Click()
Autorisation
End Sub
et sur les autres aussi
Bruno

Merci beaucoup de m'avoir suggéré une solution.
Je vais me mettre sur mon fichier et essayer d'aboutir à quelque chose de concret.

Bonne soirée.