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

Fermé

maxorthez - 26 juin 2008 à 11:28
CapitainCo Messages postés 126 Date d'inscription mardi 24 juin 2008 Statut Membre Dernière intervention 5 novembre 2009 - 27 juin 2008 à 15:34

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.

A voir également:

VB : assigner à un bouton une macro paramétré
Vb - Télécharger - Langages
Vb cable - Télécharger - Audio & Musique
Vb download - Télécharger - Langages
Vb runtime - Télécharger - Divers Utilitaires
Vb 2008 - Télécharger - Langages

3 réponses

Réponse 1 / 3

CapitainCo Messages postés 126 Date d'inscription mardi 24 juin 2008 Statut Membre Dernière intervention 5 novembre 2009 61
26 juin 2008 à 11:36

call procedure_avec_parametre ( variable )

maxorthez
26 juin 2008 à 11:42

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éponse 2 / 3

CapitainCo Messages postés 126 Date d'inscription mardi 24 juin 2008 Statut Membre Dernière intervention 5 novembre 2009 61
27 juin 2008 à 11:10

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

maxorthez
27 juin 2008 à 15:05

!!!! 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éponse 3 / 3

CapitainCo Messages postés 126 Date d'inscription mardi 24 juin 2008 Statut Membre Dernière intervention 5 novembre 2009 61
27 juin 2008 à 15:34

Discussions similaires

TP EN VB + COURS +EXERCICES CORRIGES

Bonjour,
je ss étudiant en licence . J'ai de problem en programmation vb et j'aimerais que vs m'aidiez

Sleep (Vb)

Bonjours. Je suis débutante, je souhaite me servire de la "fonction" Sleep en Vb mais lorsque je fait play un message d'erreur intervient "Sub or Fonction not defined, pourtant j'ai ajoutée un module dans lequel j'ai inscrit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long), quelqu'un peut il m'aider et me dire pourquoi ça ne marche pas ? merci d'avance...
a+++

Bonjour,

code vb.net

Bonjour à tous, Respect à tous les grands de la programmation, moi je ne suis qu'un débutant avec quelques préoccupations. je travail petit à petit sur un gestionnaire de stock et je rencontre une difficulté. quand j'ouvre le combobox (catégorie produit) et fait le choix , les produits de cette catégorie s'affichent dans le combobox(LibelleProduit) et quand je clique sur un produit, il me donne des information du Fournisseur . sachant que un produit peut avoir plusieurs fournisseurs, je souhaiterai quand je clique sur un fournisseur du combobox(3) les informations tels que le prix du produit ...et tout le reste apparaitra dans les textbox. jusque là je n'arrive pas à le faire. aidez moi svp ...

Impossibilité enregistrement macro Excel 2010

Bonjour à tous,

J'ai créé un fichier, sous Excel 2010, avec un bouton VBA qui met automatiquement en page un TCD. J'ai enregistré ma macro, dans un premier temps, dans mes macros perso. Après avoir vérifié que ma macro fonctionnait bien, j'ai décidé d'affecter ma macro au classeur Excel car plusieurs de mes collègues utiliseront ce fichier. Pas de problème pour créer un nouveau module dans le classeur, mais lors de l'enregistrement de mon fichier voici le message d'erreur qui apparait :
« Les fonctionnalités suivantes ne peuvent pas être enregistrées dans des classeurs sans macro : projet VB ».
J'ai essayé de créer d'autres macros sur d'autres classeurs mais ce ...