VB : assigner à un bouton une macro paramétré

maxorthez, le jeudi 26 juin 2008 à 11:28:41

Bonjour,
Je fais actuellement de la programmation en Visual Basic pour une application tournant sous Excel
Executer une macro via un bouton est assez simple, et beaucoup de tutoriel l'explique :

    ActiveSheet.Buttons.Add(960, 30, 90, 20).Select
    Selection.Name = "nom_evenement"
    ActiveChart.Shapes("nom_evenement").Select
    Selection.Characters.Text = "evenement"
    Selection.AutoScaleFont = True
    Selection.OnAction = "procedure_sans_parametre"

Cependant, j'aimerai pouvoir assiger à un bouton l'exécution d'une macro paramétré.
J'ai par exemple une macro 'procédure_avec_parametre' :
Sub procedure_avec_parametre ( entier As Integer )
...
End Sub
Puis dans une fonction je dois appeler cette procédure avec un paramètre de 1 :
Le problème est que le code suivant ne marche pas. Comment faire ?

    ActiveSheet.Buttons.Add(960, 30, 90, 20).Select
    Selection.Name = "nom_autre_evenement"
    ActiveChart.Shapes("nom_autre_evenement").Select
    Selection.Characters.Text = "autre_evenement"
    Selection.AutoScaleFont = True
    Selection.OnAction = "procedure_avec_parametre(1)"

Merci de votre aide.

Configuration: Windows XP
Internet Explorer 6.0

Répondre à maxorthez Signaler ce message aux modérateurs Aller au dernier message

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

CapitainCo, le jeudi 26 juin 2008 à 11:36:01

call procedure_avec_parametre ( variable )

Répondre à CapitainCo

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

maxorthez, le jeudi 26 juin 2008 à 11:42:39

Non, le problème ne vient pas de la...

Le code suivant ne vient pas de là,

    ActiveSheet.Buttons.Add(960, 30, 90, 20).Select
    Selection.Name = "nom_autre_evenement"
    ActiveChart.Shapes("nom_autre_evenement").Select
    Selection.Characters.Text = "autre_evenement"
    Selection.AutoScaleFont = True
    Selection.OnAction = "call procedure_avec_parametre(1)"

Ca ne marche toujours pas. Il me met le même message d'erreur :
Unable to set tne OnAction property of the Buttob class

Répondre à maxorthez

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

CapitainCo, le vendredi 27 juin 2008 à 11:10:54

seulement
call procedure_avec_parametre ( variable )
et ta procedure "Sub procedure_avec_parametre ( entier As Integer )
...
End Sub "
doit etre dans un module

Répondre à CapitainCo

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

maxorthez, le vendredi 27 juin 2008 à 15:05:16

!!!! Mais ce n'est pas ça ma question !!!!

Je sais bien que cette ligne appelle une procédure : call procedure_avec_parametre ( variable )
Ma question est :
Comment assigner une macro paramétré à un BOUTON.

Je ne trouve pas ce qu'il faut mettre à l'intérieur du 'Selection.OnAction'
pour pouvoir passer mon paramètre.

En d'autre terme, que doit remplacer le texte souligner dans le code suivant :

    ActiveSheet.Buttons.Add(960, 30, 90, 20).Select
    Selection.Name = "nom_autre_evenement"
    ActiveChart.Shapes("nom_autre_evenement").Select
    Selection.Characters.Text = "autre_evenement"
    Selection.OnAction = "procedure_avec_parametre(1)"

Répondre à maxorthez

Ce message vous semble utile, votez !
Signaler ce message aux modérateurs

CapitainCo, le vendredi 27 juin 2008 à 15:34:29

Répondre à CapitainCo

Posez votre question Répondre

[VB Excel] - créer un filename avec dat (Résolu)Bonjour, Je souhaiterais créer un petit programme en VB (dans une macro Excel) qui permettrait de nommer un fichier (par "enregistrer sous...") dont le nom serait suffixé par la date du jour. Par exemple : fic1_07032007 Ceci dans le seul but de créer... www.commentcamarche.net/forum/affich-2740946-vb-excel-creer-un-filename-avec-dat

[VB excel] déclenchement macro heure donnée (Résolu)Bonjour à tous, j'aimerais savoir s'il existe un moyen de lancer une macro VB excel à une heure précise, quotidiennement, automatiquement sans avoir à appuyer sur quelque bouton que ce soit. par exemple, j'aimerais qu'une macro se... www.commentcamarche.net/forum/affich-2415963-vb-excel-declenchement-macro-heure-donnee

VBA Executer une macro a l'ouverture de excel (Résolu)Salut, J'essaye de mettre en place des outils d'aide à la décision dans mon entreprise en utilisant des formulaires VBA. Je n'arrive pas à trouver la fonction suivante : Code ou instruction qui affiche un formulaire dès l'ouverture... www.commentcamarche.net/forum/affich-1903604-vba-executer-une-macro-a-l-ouverture-de-excel

Proteger vos documents Word contre les macrovirusQu'est ce qu'un Virus Macros (ou Macrovirus) ? Un macrovirus est une macro, c'est-à-dire un script intégré dans un document visant à automatiser certaines tâches. Les scripts sont généralement développés en VBA. Les macros ont pour but... www.commentcamarche.net/faq/sujet-12755-proteger-vos-documents-word-contre-les-macrovirus

[VBA] Executer une macro dans une macro. (Résolu)Bonjour, Dans VBA excel, je cherche à executer une macro dans une macro, après quelques recherche dans le forum et sur excel je suis toujours en quète ! :) merci de votre aide !... www.commentcamarche.net/forum/affich-3072880-vba-executer-une-macro-dans-une-macro

[EXCEL/VBA] Maintenance de macros (Résolu)Bonjour à tous, J'ai écrit une macro en VBA qui utilise un Module et une boite de dialogue. Cette macro est utilisée actuellement dans plusieurs fichiers Excel, ce qui m'oblige à tous les mettre à jour lorsque je veux modifier la macro.... www.commentcamarche.net/forum/affich-2990002-excel-vba-maintenance-de-macros

VBA excel problème macro seriescolection.name (Résolu)Bonjour à vous, Mon problème est le suivant : J'ai créé une macro en vba produissant un graphique contennant plusieurs séries. Le graphique est produit sans problème mais dès que j'esseye d'attribuer un nom à ces séries, un message... www.commentcamarche.net/forum/affich-8199130-vba-excel-probleme-macro-seriescolection-name

Toutes les réponses pour « VB : assigner à un bouton une macro paramétré »