transmettre un paramètre via OnAction (Control.Add)

Bonjour,
connaissez vous le moyen de transmettre un paramètre dans une macro qui est appelée par la commande OnAction d'un bouton Application.CommandBars("toto").Controls.Add ?

J'arrive bien à lancer un macro, mais si je veux transmettre un paramètre (qui correspond au nom ou tag du bouton), alors je coince...

Voici le bout de code incriminé (la boucle créé une série de menus, qui doivent tous exécuter la macro laison, mais avec un paramètre différent à chaque fois) :

Code:

---

1 2 3 4 5 6 7 8

Do With NouvSsMenu.Controls.Add(Type:=msoControlButton, ID:=702) .OnAction = "liaison """ & ActiveCell.Value & """'" .Caption = ActiveCell.Value .Tag = ActiveCell.Value End With ActiveCell.Offset(1, 0).Activate Loop Until ActiveCell.Value = ""

---

Voir message d'erreur. Est-ce que ce n'est pas tout betement un pb d'apostrophe ou truc similaire ?

Merci pour votre aide.

Pièce jointe 149971

Après quelques recherches je suis tombé sur cette synthaxe qui devrait marcher :

Code:

---

1 2 3 4 5 6 7 8 9

Do VariableString=ActiveCell.Value With NouvSsMenu.Controls.Add(Type:=msoControlButton, ID:=702) .OnAction = "'liaison ""VariableString""'" .Caption = ActiveCell.Value .Tag = ActiveCell.Value End With ActiveCell.Offset(1, 0).Activate Loop Until ActiveCell.Value = ""

---

La déclaration des menus se passe bien, sauf que la valeur de VariableString qui est réellement renvoyé dans la macro liaison est ..... VariableString. Et non pas une valeur qui est activecellvalue dépendant de la cellule courante dans la boucle...

Help

Bonjour,

Si tu dois passer une variable string, ta méthode est correcte, mais tu dois y mettre la chaîne que tu as besoin.

Code:

---

.OnAction = "'liaison ""MaChaine""'"

---

Si c'est un paramètre numérique, il faut enlever les guillemets doubles

Code:

---

.OnAction = "'liaison 25'"

---

Avec des variables, il fait les séparer avec des &

Code:

---

1 2 3 4 5 6 7 8 9

Dim MonNombre As Long Dim MaChaine As String   MonNombre = 25 MaChaine = "Allo" '..... .OnAction = "'Fonction1 """ & MaChaine & """'" .OnAction = "'Fonction2 " & MonNombre & "'" '.....

---