Bouclage sur CommandButton

[JORDAN]

Bonjour tout le monde, le Forum,

Je suis à la recherche d'une méthode pour faire un bouclage sur plusieurs
CommandButton qui doivent afficher le même UserForm.
C'est à dire de remplacer le numéro du CommandButton par une variable
J'ai bien essayé de faire ceci mais sans succès

Merci pour votre aide

'Dans Module1
Public Num As CommandButton


Private Sub UserForm_Activate()
    Num=1
End Sub

Private Sub CommandButton(Num)_Click()
    UserForm1.Show
End Sub

 

[job75]

Re : Bouclage sur CommandButton

Bonjour Jordan,

Avec des boutons Boîte à outils Contrôles (ActiveX) il faut écrire une macro pour chaque bouton.

Avec des boutons Formulaires une seule macro suffit.

A+

 

[JORDAN]

Re : Bouclage sur CommandButton

Bonjour Job75,

Des boutons Formulaires, se sont des boutons créés par macro ??

Merci

 

[job75]

Re : Bouclage sur CommandButton

Re,

Comme tous les objets, ces 2 types de boutons peuvent être créés manuellement ou par macro (utiliser l'enregistreur de macro pour obtenir le code).

Bien entendu, je suppose qu'il s'agit de boutons créés dans des feuilles, pas dans des USF...

A+

 

[JORDAN]

Re : Bouclage sur CommandButton

Re,
Non, les boutons sont créés dans un USF et je ne vois pas comment
faire pour obtenir ceci :
Private Sub CommandButton(Num)_Click()
UserForm1.Show
End Sub

Merci pour ton aide

 

[JORDAN]

Re : Bouclage sur CommandButton

Re,

Avec un fichier c nettement mieux
Mais d'après ce que j'ai compris, ce n'est pas possible

 

[job75]

Re : Bouclage sur CommandButton

Re,

On peut par macro (appelons-la toto) créer des boutons ActiveX dans un USF.

On peut aussi affecter à chacun une macro, mais il faut que toto crée à chaque fois le code.

Pas évident mais possible, voir ce fil récent :

https://www.excel-downloads.com/threads/generer-code-via-textbox.117639/

A+

 

[JORDAN]

Re : Bouclage sur CommandButton

Re,
Merci Job75 pour ton aide
Je vais essayer de faire quelque chose avec ce fichier
Bonne journée