Macros appel procédure

Bonsoir à toutes et tous,

Je rencontre un problème très sérieux concernant un appel de procédure dont j'ai réellement besoin pour mon travail.

Je suis responsable d'un parc très nombreux de machines et j'ai réalisé un userform avec 250 boutons représentant ces machines.

Mon besoin est simple de prime abord mais je bloque sur le codage

Voici : lorsque j'appuie sur n'importe quel bouton, celui-ci appelle une procédure nommée "Couleur".

Dans cette procédure, je veux que le bouton ayant appelé la procédure colore ce bouton en vert

Voilà, cela paraît simple et je sais le réaliser sous différents angles mais pas en appelant une procédure et je suis coincé

Merci de votre aide

Bonsoir,

A+

Je n ai pas de fichier mis à part un userform et quelques boutons

Bonjour,

Normalement pour simplifier il faudrait faire ça avec un module de classe mais je ne sais pas faire.

Alors en supposant que tes boutons s'appellent de btn1 à btn240 :

Private Sub btn1_Click()
    couleur 1 'n° du bouton
End Sub

Sub couleur(btn As Long)
    Me.Controls("btn" & btn).BackColor = vbGreen
End Sub

240 foix Private Sub btnX_Click() donc..

eric

Merci Éric je regarde cela demain car je suis ko

Bonne nuit

Bonsoir,

un UserForm avec 250 boutons !

Je serais curieux de voir...