Passer un argument par .OnAction

Bonjour,

Je me trouve confronté à un problème que je ne sais pas résoudre.

Dans une macro, je crée une série de bouton par la méthode Add et j'affecte le nom de chaque bouton par une variable appelée message de type string.

Par OnAction, je souhaite lancer une procédure en faisant passer en argument le nom de ce bouton.

Code:

---

1 2 3 4 5

With feuille.Buttons.Add(rngPos.Left, rngPos.Top, rngPos.Resize(, 1).Width, rngPos.Height) .Caption = "v" .Name = message .OnAction = "Coche" End With

---

Dans l'exemple ci-dessus la procédure coche n'a pas d'argument, mais lorsque j'essaie d'en faire passer un, La macro me renvoie un message d'erreur.

exemple de ce que j'ai essayé (Ne rigolez pas trop, je débute)

Code:

---

1 2 3 4

.OnAction = "Coche(Me)" .OnAction = "Coche('&message&')" .OnAction = "Coche(.Name)" .OnAction....

---

.

Merci à vous tous si vous pouvez m'éclairer sur le sujet.

A bientôt

Jha

Salut,

Essaie quelque chose dans ce style:

Code:

---

.OnAction = "'Coche " & chr(34) & .Name & chr(34) & "'"

---

Bonjour ericjha,

à ma connaissance, on ne peut pas passer d'argument sur un OnAction, de même que l'on ne peut pas associer une macro à un bouton si celle-ci a des arguments en entrée

Bonjour

Je n'ai pas testé sous Excel, mais sous Access (qui utilise la même bibliothèque) c'est possible : http://starec.developpez.com/tuto/barrecommande/#LVI-A

philippe

Je viens d'essayer, ça marche.

Merci beaucoup ;)

Citation:

---

Envoyé par Minick

Salut,

Essaie quelque chose dans ce style:

Code:

---

.OnAction = "'Coche " & chr(34) & .Name & chr(34) & "'"

---

---

Merci aussi à Tototiti2008 et à Philippe pour s'être pencher sur la question. Je vais d'ailleurs aller voir le lien de Philippe pour plus d'info

Bonjour Minick, Bonjour Philippe,
Re,

Eh bien comme ça je me coucherais moins bête ;)

Re,

De rien, si tu veux passer plusieurs arguments, il suffit de les separer par des virgules.

Code:

---

.OnAction = "'Coche " & chr(34) & .Name & chr(34) & "," & chr(34) & .Name & chr(34) & "'"

---