Discussion :

[manudad]

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 :

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

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.

[manudad]

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

Code :

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

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

[parmi]

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 :

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

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

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

Code :

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

.OnAction = "'liaison 25'"

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

Code :

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

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 & "'"
    '.....