Simplification

[tesmiro]

Bonsoir à tous,
Je me retrouve avec ce code :

Private Sub Label2_Click()
recherche2 = Label2.Caption
recherche1 = Label1.Caption
UserForm5.Show
End Sub
Private Sub Label3_Click()
recherche2 = Label3.Caption
recherche1 = Label1.Caption
UserForm5.Show
End Sub

etc ...

Peut on simplifier la procédure ? Histoire de ne pas taper 40 fois le même bout de code.
Merci

 

[Catrice]

Re : Simplification

Bonsoir,

Je propose ceci, on doit pouvoir optimiser...

Private Sub Label2_Click()
Test Label2.Caption
End Sub
Private Sub Label3_Click()
Test Label3.Caption
End Sub

et

Sub Test(Arg1)
recherche2 = Arg1
recherche1 = UserForm5.Label1.Caption
UserForm5.Show
End Sub

 

[tesmiro]

Re : Simplification

salut à tous,
Je te remercie, je vais essayer ça !