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