[XL-2007] afficher N° d'un CommandButton [Résolu]

[eliot.raymond]

Bonjour a toutes et tous, forum

J'ai un UserForm dans lequel il y a 255 boutons "CommandButton"

PS: ils sont affichés dans l'ordre, donc de 1 à 255

je souhaiterai svp afficher dans un Label ou autre Textbox peu importe,

le numéro du CommandButton que je viens de clicker idem pour les autres

Merci a vous et de votre temps

Bon Dimanche

Ray

[jfontaine]

bonjour,

Tu peux faire cela, utilisant un module de classe.

http://excel.developpez.com/faq/inde...ntroductionPOO

[eliot.raymond]

Bonsoir Jfontaine

Merci pour ta réponse et pour le lien

j'ai regarder et fait quelques essais d'après les codes vus, mais je n'ai pas trop

compris, je pensais que cela ne serait pas compliqué

je retourne voir si je trouve un exemple simple

Merci a plus tard

Raymond

[gFZT82]

Bonjour,

Pourtant l'exemple indiqué par Jérôme semble correspondre à tes attentes.

Regarde l'application en fichier joint.

Cordialement.

[eliot.raymond]

Salut

merci de la réponse et du fichier démo, j'ai presque réussi

Question si tu veux bien svp

faut-il que tous les commandBouttons ai leur N° a l'intérieur comme sur ton exemple

Les miens sont vides Caption = pas de chiffres ni de lettres

Merci et bonne soirée

Cordialement Raymond

[gFZT82]

faut'il que tous les commandBouttons ai leur N° a l'intérieur comme sur ton exemple
Les miens sont vides Caption = pas de chiffres ni de lettres

Non, tu peux mettre la légende qui te convient (caption), cela n'a pas d'incidence.

Cordialement.

[eliot.raymond]

Merci ça marche mais seulement quand il y a du texte ou chiffre dans la

bouton vient de faire l'essai plusieurs fois

si Caption égal rien alors pas d'affichage

peut on palier a ça svp

Raymond

[gFZT82]

Merci ça marche mais seulement quand il y a du texte ou chiffre dans la
bouton vient de faire l'essai plusieurs fois
si Caption égal rien alors pas d'affichage

J'ai oublié de te préciser que tu dois adapter le code du module de classe

Code :

1
2
3
4
Public WithEvents groupebouton As Msforms.CommandButton
Private Sub groupebouton_Click()
    UserForm1.TextBox1.Text = groupebouton.Name
End Sub

Le TextBox affichera alors le nom du CommandButton et non plus la légende.


Cordialement.

[eliot.raymond]

Je te remercie beaucoup pour ton aide ça fonctionne bien, ton fichier exemple m'a bien aider

j'ai le numéro qui s'affiche la ou je voulais

Bonne soirée et encore un grand merci

bonne semaine

cordialement Raymond

PS:

Code :

  UserForm1.Label7.Caption = Right(Bouton.Name, Len(Bouton.Name) - 13)

le -13 permet de ne pas afficher le nom commandbutton, juste le chiffre apparait