Même code pour plusieurs boutons

[Xavllo]

Bonjour à tous,

Sur un multipage comprenant 5 pages, j'ai plusieurs boutons nommés Boutons_xy ou x représente la page du multipage (de 0 à 4) et y le numéro du bouton ( de 1 à 6).

Lorsque l'on clique sur un des boutons, l'action réalisée est quasiment la même sauf qu'il est important de connaître les valeurs de x et y.

En gros, est-ce que je dois pour chaque bouton créer un code Private Sub Bouton_01_click() et ainsi de suite pour tous les boutons (soit une trentaine...) ou existe-t-il une formule magique du genre Private Sub Bouton_xy_click(...)?

J'espère que j'aurai été assez clair.

En attendant de vous lire, je vous souhaite une bonne fin de journée ensoleillée.

Xavllo

 

[Guest]

Re : Même code pour plusieurs boutons

Bonjour Xavlo,

Non, essaie d'employé la propriété Userform.ActiveControl.Name en tête de macro. Où Userform est le nom de l'objet From utilisé.

Exemple:

Nombouton=UserForm1.ActiveControl.Name

Select case NomBouton
Case "Bouton_01"
Case "Bouton_02"
.....
End Select

A bientôt

 

[Xavllo]

Re : Même code pour plusieurs boutons

Merci pour ta réponse si rapide.

Par contre, est-ce que je peux savoir quel bouton a été cliqué?

Xavllo

 

[Guest]

Re : Même code pour plusieurs boutons

Xavlo,

As-tu essayé la solution?

Userform.ActiveControl est une référence au contrôle actif d'un Userform.

Donc au moyen de cette propriété tu peux agir sur lui et en connaître le nom.

A+

 

[BOISGONTIER]

Re : Même code pour plusieurs boutons

Bonsoir,

Avec un module de classe:

Formulaires: les champs indicés

Formulaires: les champs indicés

temp = GrSaisie.Name donne le nom du bouton cliqué

JB
Formation Excel VBA JB

 

[Xavllo]

Re : Même code pour plusieurs boutons

Merci pour les pistes, je vais essayer de m'en sortir...

Bonne soirée

Xavllo