Changer Usf Name : comment faire?

[zombe]

Salut le forum

Je cherche un moyen pour changer le nom de mon usf.
Dans mon usf1, j'ai 3 commandes qui font appel au même usf (userform2).
Je souhaite le nom de l'usf porte le nom du bouton qui l'appel.
Ex: si je clic sur Compte citoyen, le nom de l'usf devrait être Compte citoyen et userform2.
Comment réaliser cela?

 

[Mytå]

Re : Changer Usf Name : comment faire?

Salut le forum

Comme ceci

Private Sub Ccitoyen_Click()
Load UserForm2
UserForm2.Caption = "Compte Citoyen"
UserForm2.Show
End Sub

Mytå

 

[job75]

Re : Changer Usf Name : comment faire?

Bonjour,

Une solution "condensée" dans le code de UserForm1 :

Private Sub Ccitoyen_Click(): USF Ccitoyen.Caption: End Sub

Private Sub Cleader_Click(): USF Cleader.Caption: End Sub

Private Sub Cprestige_Click(): USF Cprestige.Caption: End Sub

Sub USF(txt$): UserForm2.Caption = txt: UserForm2.Show: End Sub

A+

 

[zombe]

Re : (RESOLU) Changer Usf Name : comment faire?

Salut Myta, Job75 et le forum

Merci pour vos réponses.
Les 2 fonctionnent à merveille.
Je vous remercie infiniment et que DIEU vous bénisse.