[VBA] Passer un paramêtre dans la fonction

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Passer un paramêtre dans la fonction

nerix

Bonjour,
je code un peu de VBA pour créer automatiquement un menu dans ma barre supérieure de Word !
Le code ressemble un peu près à ça :

Dim str as string
...
With .Controls.Add(msoControlButton)
.Caption = str
.OnAction = "launch_procedure"
End With
...
...
Sub launch_procedure()
...
End Sub

Le With se trouve dans une boucle (afin de créer plusieurs boutons à la volée tout en gardant un paramêtre différent), dans laquelle "str" change de valeur...
Je voudrais donc passer la valeur de "str" à la fonction "launch_procedure" dans le ".OnAction" !!! Et par la même occasion changer l'entête de ma fonction "launch_procdure" pour accueillir une "string".
Mais je n'arrive pas à trouver la syntaxe correcte...

Est-ce possible de faire cela ???

Publicité

tegu

Sub launch_procedure(parametre As String)

Sachant que le nom « parametre » est un exemple. Tu peux le changer

.OnAction = "launch_procedure """ & str & """"

.OnAction = "launch_procedure " & chr$(34) & str & chr$(34)

Si ton bouton a accès à la valeur de ta variable str, le mieux est

.OnAction = "launch_procedure str"

Je ne sais plus si .onaction demande les parenthèses pour appeler une procédure. Il faudra les rajouter éventuellement

Message édité par tegu le 04-04-2006 à 15:03:01

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] Passer un paramêtre dans la fonction

Sujets relatifs
Impossible de lire un cookie avec la fonction include?	[C] Faire appel à une fonction dans une autre fonction
Modifier un champ en fonction de la date	[Swish]Code source pour passer un "stop"
Code VBA d'importation de module	fonction mail() : Recipient address rejected
fonction délai pour Python	fonction preg_replace
[VBA Excel] Sélectionner plusieurs onglets par une macro	[VBA] Passer un tableau en parametre de fonction ?
Plus de sujets relatifs à : [VBA] Passer un paramêtre dans la fonction

Page générée en 0.023 secondes