Command button initialize ?

[Startus]

Bonsoir à tous

Dans un Userform j'ai 46 CommandButton.

Actuellement j'ai écrit 46 fois ceci :

Private Sub CommandButton1_Click()
Selection.BackColor = CommandButton1.BackColor
End Sub

Comment raccourcir ce code ???

Merci

 

[Mytå]

Salut Startus et le Forum,

Regarde du côté de chez John Walkenbach avec les
modules de classe.

http://www.j-walk.com/ss/excel/tips/tip44.htm

Mytå

 

[Startus]

Salut

Je te remercie pour le lien Mytå, mais l'Anglais et moi pas terrible...

Si d'autres propositions...

Merci

 

[Mytå]

Re le Forum

Startus as-tu téléchargé la démo ?



Mytå

Message édité par: Mytå, à: 28/06/2006 21:45