Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Bouclage sur CommandButton

  • Initiateur de la discussion Initiateur de la discussion JORDAN
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

JORDAN

XLDnaute Impliqué
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

Code:
'Dans Module1
Public Num As CommandButton


Private Sub UserForm_Activate()
    Num=1
End Sub

Private Sub CommandButton(Num)_Click()
    UserForm1.Show
End Sub
 
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+
 
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+
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
926
Réponses
5
Affichages
931
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…