Discussion :

[miaousse]

Bonjour,

Je cherche à affecter une macro qui aurait un ou des arguments au une forme automatique ou un contrôle sur une page.
Dans la boite de dialogue "affecter une macro", dans le champs "nom de la macro" j'ai essayé sans succès
'eco-conception2 (version 31 08 2009) .xls'!HideAndReturn ("Eco-conception")
'eco-conception2 (version 31 08 2009) .xls'!HideAndReturn "Eco-conception"

Est-ce qu'il est possible de faire ce que je cherche à faire? y a-t-il uen syntaxe particulière?

[Fvandermeulen]

Salut,
Il est bien possible d'affecter une macro à un bouton, un code exemple, pour affecter la Macro Calcul_On_Off du fichier Personal.xls

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub AffecteMacro()
    ActiveSheet.Shapes("Button 1").OnAction = "PERSONAL.XLS!Calcul_On_Off"
End Sub

Par contre je suis surpris du nom de la macro que tu essaies d'associer:

...
'eco-conception2 (version 31 08 2009) .xls'!HideAndReturn ("Eco-conception")
'eco-conception2 (version 31 08 2009) .xls'!HideAndReturn "Eco-conception"
...

Es tu certain de ceci, un nom de macro n'aime pas les espaces...

A+

[miaousse]

bonjour

Ma question n'étais pas claire.
HideAndReturn est bien ma procédure
"Eco-conception" est un argument de cette procdédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Public Sub HideAndReturn(strWorkSheet As String)
    ActiveSheet.Visible = False
    Sheets(strWorkSheet).Select
End Sub

pour le moment je passe par des procédure intermédiaire ce qui ne me plais pas trop car je pense ce code est inutile

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Sub HideAndReturn1()
    HideAndReturn "Eco-conception" 
End Sub
Public Sub HideAndReturn2()
    HideAndReturn "Apprendre" 
End Sub

[Fvandermeulen]

Re,
Ca reste encore assez flou pour moi, je comprends pas vraiment le but final mais bon...
Pour l'instant comment définis tu si c'est "Eco-conception" ou "Apprendre" ?
Est-ce le nom de tes feuilles ? Il me semble que oui, et donc tu veux masquer la feuille active et en activer une autre, c'est bien ça ?
N'as tu que ces deux feuilles ?
En somme, réexplique moi ce que tu veux faire exactement et comment déclencher...
A+

[djib29]

pour le moment je passe par des procédure intermédiaire ce qui ne me plais pas trop car je pense ce code est inutile

Non, ce n'est pas inutile car c'est la seule solution si tu veux mettre la valeur du paramètre en dur tel que tu le fais actuellement. Et je ne vois pas non plus en quoi ce n'est pas "plaisant". Ce qui serait déplaisant, ce serait de dupliquer le code de HideAndReturn dans chaque macro. Et encore, cette macro n'a pas beaucoup de code.

[CodeFacile]

La procédure HideAndReturn admet bien un passage de paramètre. Il n'y ap as besoin de faire 2 procédures.



Public Sub HideAndReturn(strWorkSheet As String)
' ActiveSheet.Visible = False ' Ca ne set à rien car la ligne suivante rend le worksheet non visible
Sheets(strWorkSheet).Select
End Sub

[djib29]

... Il n'y ap as besoin de faire 2 procédures.

C'est vrai si on reste dans le VBA. Il reste certains points à éclaircir dans la question de miaousse:

...Dans la boite de dialogue "affecter une macro"...

Dans cette boîte de dialogue on ne peut mettre que des macros (Sub) sans paramètres.

Je cherche à affecter une macro qui aurait un ou des arguments au une forme automatique ou un contrôle sur une page

Sur un bouton de commande ("Forms.CommandButton") sur une feuille de calcul, il suffit de double-cliquer dessus pour accéder à la procédure événenementielle CommandButton1_Click() qui est l'équivalent VBA de l'affectation de macro. Dans ce cas, il ne reste plus qu'à y écrire l'appel à la fonction HideAndReturn

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
  HideAndReturn "Eco-conception"
End Sub

Par contre, dans les boutons de barre d'outils, il n'existe que la boîte de dialogue "affecter une macro", auquel cas on est obligé d'écrire 2 macros Sub si on veut faire 2 boutons dans une barre d'outils.