[VBA-E] OnAction/OnTime avec paramètre(s)

Bonjour,

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

Code:

---

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

Citation:

---

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

---

Quelqu'un a une idée?
Merci!

Tu dois définir le nom du fichier :

Code:

---

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

---

Si tu peux t'en inspirer...

A+

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

Code:

---

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.

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:

---

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

---

qui fournira la chaine suivante

Code:

---

'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:

---

'!OuvrirMRP "0"'

---

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:

---

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

---

Puis plus loin:

Code:

---

.OnAction = StrTemp

---

Merci!