Discussion :

[Rakham]

Bonjour,

Je cherche à attribuer dynamiquement une macro à un bouton, mais je veux passer un paramètre à cette macro:

Code :

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

1
2
3
4
5
6
7
8
ActiveSheet.Shapes.AddShape(msoShapeStripedRightArrow, x, y, 50#, 15#).Select
   With Selection
   .Name = NomShape
   .ShapeRange.Fill.Solid
   .ShapeRange.Fill.ForeColor.SchemeColor = 57
   .ShapeRange.Line.ForeColor.SchemeColor = 64
   .OnAction = "OuvrirMRP(" & Trim(Str(Ligne)) & ")"
   End With

Mais voilà, j'ai une erreur

1004: Impossible de définir la propriété OnAction de la classe Rectangle"

Quelqu'un a une idée?
Merci!

[ouskel'n'or]

Tu dois définir le nom du fichier :

Code :

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

                        .OnAction = "'NomFichier.xls'!NomProcédure"

Si tu peux t'en inspirer...

A+

[Rakham]

Je le pensais aussi, mais ça ne marche pas non plus... Par contre, le code suivant fonctionne:

Code :

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

1
2
3
4
5
6
7
8
ActiveSheet.Shapes.AddShape(msoShapeStripedRightArrow, x, y, 50#, 15#).Select
   With Selection
   .Name = NomShape
   .ShapeRange.Fill.Solid
   .ShapeRange.Fill.ForeColor.SchemeColor = 57
   .ShapeRange.Line.ForeColor.SchemeColor = 64
   .OnAction = "OuvrirMRP"
   End With

Autrement dit, dès que j'enlève le paramètre ça marche.

[DarkVader]

OnAction n'est pas censé retourné de résultat il ne faut donc pas utiliser de parenthèses
par contre le(s) paramètre(s) doit se trouver entre guillements.

Code :

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

.OnAction = "'OuvrirMRP """  & Trim(Str(Ligne)) """'"

qui fournira la chaine suivante

Code :

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

'OuvrirMRP "0"'

(ici ligne=0)


Idem pour OnTime

NB : Suivant les version d'Excel, il peut être utile d'ajouter un en début de syntaxe

Code :

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

'!OuvrirMRP "0"'

[Rakham]

Parfait! En ajustant les " on y arrive! Merci!
Pour info, comme légèrement tendance à m'emmêler les guillemets, j'ai utilisé le code suivant:

Code :

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

1
2
StrLigne = Trim(Str(Ligne))
StrTemp = "'" + "OuvrirMRP " + """" + StrLigne + """" + "'"

Puis plus loin:

Code :

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

.OnAction = StrTemp

Merci!