Contrôles de formulaire/ActiveX : les boutons

Résolu/Fermé
ButteDuLac Messages postés 495 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 24 octobre 2020 - 24 janv. 2017 à 15:31
ButteDuLac Messages postés 495 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 24 octobre 2020 - 24 janv. 2017 à 18:25
Bonjour,

J'aimerais utiliser les boutons de commande des contrôles ActiveX pour effectuer une macro d'enregistrement.

Lorsque j'essaie cette macro qui se trouve dans un module avec un bouton de commande contrôle de formulaire, elle fonctionne très bien, mais je ne peux pas travailler mon bouton (rectangle gris avec "bouton 4" écrit dedans).

Alors quelqu'un pourrait me dire soit :

- comment faire pour modifier le bouton du contrôle de formulaire?
- comment affecter une macro qui se trouve dans un module sur un bouton de commande contrôle ActiveX
- comment exécuter une macro d'enregistrement en la plaçant en VBA dans la feuille où se trouve le bouton plutôt que dans un module???


Je cherche en vain une solution, merci de m'aider!!!

A voir également:

2 réponses

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
24 janv. 2017 à 15:48
0
ButteDuLac Messages postés 495 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 24 octobre 2020 40
24 janv. 2017 à 16:46
Oui, merci!
La solution proposée est d'affecter la macro (qui est dans le module) à mon boutton « CommandButton_click() », j'ai essayé, mais ça ne fonctionne pas.

Je peux affecter cette macro à une forme. Ça fonctionne. Mais j'aime moins l'idée, car la forme n'est pas un bouton, elle ne s'enfonce pas sur clic.
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié par cs_Le Pivert le 24/01/2017 à 17:04
Tu insères ton bouton à la position souhaitée sur ta feuille.
Tu doubles clic sur ce bouton, cela t'ouvre le module de ta feuille avec ce code:

Option Explicit
Private Sub CommandButton1_Click()

End Sub


Il suffit ensuite d'appeler ta sub comme ceci:

Option Explicit
Private Sub CommandButton1_Click()
mamacro
End Sub

'sub dans module

Sub mamacro()
MsgBox "Hello"
End Sub


Voilà, il n'y aucune raison que ça ne fonctionne pas!
@+ Le Pivert
0
ButteDuLac Messages postés 495 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 24 octobre 2020 40
24 janv. 2017 à 18:25
Bon, effectivement, cette fois, ça fonctionne. J'ai renommé la macro et j'ai ajouté "Option Explicit", il y avait probablement un bogue avec le nom...

Merci!!! merci!!! merci!!!
0