Simplifier un code

Comment rendre ce code plus compact ?

Private Sub bouton_conges_Click()
Selection.Interior.Color = bouton_conges.BackColor
Selection.Value = "C"
Me.Hide
End Sub

Private Sub bouton_jf_Click()
Selection.Interior.Color = bouton_jf.BackColor
Selection.Value = "JF"
Me.Hide
End Sub

Private Sub bouton_pont_Click()
Selection.Interior.Color = bouton_pont.BackColor
Selection.Value = "P"
Me.Hide
End Sub

Private Sub bouton_recup_Click()
Selection.Interior.Color = bouton_recup.BackColor
Selection.Value = "R"
Me.Hide
End Sub

Private Sub bouton_RTT_Click()
Selection.Interior.Color = bouton_RTT.BackColor
Selection.Value = "RTT"
Me.Hide
End Sub

est-il possible d'identifier le bouton sur lequel on a cliqué ? cela me sauverait ...

Salut Steelson

Si je comprends bien ta question ... tu devrais essayer Application.Caller

MsgBox ActiveSheet.Buttons(Application.Caller).Caption

Merci James,

mes boutons sont dans un userform, cela ne fonctionne pas du coup

il faudrait donc que je les ramène dans la feuille principale

j'ai parcouru d'autres forums anglais et je ne suis pas le seul à me poser cette queston, la réponse est qu'il faille passer par un module

de classe

bon, je vais donc ramener les boutons dans la feuille, ce qui me fera en même temps la légende !

merciiiiiiiiii

Re,

Effectivement, dans un UserForm, la solution élégante est un module de classe ...

Cela dit, tu pourrais essayer de retrouver ton bouton avec ...

Userform1.ActiveControl.Name

Cela fonctionne bien avec une zone de texte :

MsgBox Application.Caller & " : " & Shapes(Application.Caller).TextFrame.Characters.Text & " : " & Shapes(Application.Caller).Fill.ForeColor.SchemeColor

je récupère donc le contenu et la couleur de fond !

super, merci de lm'avoir mis sur la route !


je viens de voir ta réponse ... je vais partir sur cette solution !

Userform1.ActiveControl.Name

voilà un sujet qui m'aura fait progresser grâce à tes conseils !

Re,

Je ne sais pas vraiment sur quel programme tu travailles ... mais je suis content que cela te donne un petit coup de pouce ...

Bon Courage pour la suite ...

cela me donne ceci

Re,

Merci pour ton fichier ...

Rechercher des sujets similaires à "simplifier code"