Problème macro paramétré en vb
Bonjour,
J'ai une question de visual basic pour de la programmation sous excel.
Je cherche désespérément à assigner à un bouton, une macro paramétré.
Que dois-je affecter à l'attribut Selection.OnAction pour pouvoir passer un paramètre à une macro.
J'ai par exemple une macro 'procédure_avec_parametre' :
Sub procedure_avec_parametre ( entier As Integer )
...
End Sub
J'ai essayé toutes les lignes suivantes :
Selection.OnAction = "procedure_avec_parametre(1)"
Selection.OnAction = "procedure_avec_parametre(entier:=1)"
Selection.OnAction = "procedure_avec_parametre entier:=1)"
Selection.OnAction = "call procedure_avec_parametre(1)"
Selection.OnAction = "call procedure_avec_parametre(entier:=1)"
Selection.OnAction = "call procedure_avec_parametre entier:=1)"
J'ai toujours la même erreur à l'éxécution :
Run-time error '1004":
Unable to set the OnAction property of the Button class
Merci d'avance pour votre aide
J'ai une question de visual basic pour de la programmation sous excel.
Je cherche désespérément à assigner à un bouton, une macro paramétré.
Que dois-je affecter à l'attribut Selection.OnAction pour pouvoir passer un paramètre à une macro.
J'ai par exemple une macro 'procédure_avec_parametre' :
Sub procedure_avec_parametre ( entier As Integer )
...
End Sub
J'ai essayé toutes les lignes suivantes :
Selection.OnAction = "procedure_avec_parametre(1)"
Selection.OnAction = "procedure_avec_parametre(entier:=1)"
Selection.OnAction = "procedure_avec_parametre entier:=1)"
Selection.OnAction = "call procedure_avec_parametre(1)"
Selection.OnAction = "call procedure_avec_parametre(entier:=1)"
Selection.OnAction = "call procedure_avec_parametre entier:=1)"
J'ai toujours la même erreur à l'éxécution :
Run-time error '1004":
Unable to set the OnAction property of the Button class
Merci d'avance pour votre aide
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
Merci beaucoup pour ton aide. Je vais faire comme ça.
-
ContributeurBonjour,
Avec un bouton il est impossible d'appeler une fonction tu doit mettre du code (macro) dans l'événement clic.Private Sub CommandButton1_Click() 'et ici tu peu appeler la fonction avec... Retour = TaFonction(1) 'ou Call TaFonction(1) End Sub
A+