Discussion :

[ericjha]

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 :

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

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 :

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

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

[Minick]

Salut,

Essaie quelque chose dans ce style:

Code :

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

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

[ericjha]

Je viens d'essayer, ça marche.

Merci beaucoup

Salut,

Essaie quelque chose dans ce style:

Code :

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

.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

[tototiti2008]

Bonjour Minick, Bonjour Philippe,
Re,

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

[tototiti2008]

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

[Invité]

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

[Minick]

Re,

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

Code :

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

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