Discussion :

[veroby]

Bonjour,
j'ai écrit une macro qui définit (entre autres) deux variables que je passe dans l'appel à une sub comme suit :

Code :

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

1
2
3
Dim param1 as String, param2 as Integer
...
Call sub_1 (param1,param2)

La déclaration de la sub :

Code :

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

Sub sub_1 (param1 as String, param2 as Integer)

Dans ce sous-programme, les valeurs que j'affiche par MsgBox ne sont pas bien passées.

Quelle peut-être la raison ? Merci de votre réponse.

[Invité]

Bonjour

Tu déclares des variables, OK
Tu lances une routine OK

Mais où remplis-tu tes variables ?

Philippe

[veroby]

Ces paramètres sont valorisés dans le programme d'appel de cette façon :

Code :

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

1
2
param1 = "libelle_du_paramètre"     'par exemple
param2 = 7                                'par exemple

[Invité]

Re

Il faudrait une peu plus de détails sur ton code, car je viens de faire cela rapidement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
dim param1 as string
dim param2 as string
 
Sub Main
	param1 = "toto"
	param2 = 7
 
	call test(param1,param2)
 
End Sub
 
sub test(param1 as string, param2 as integer)
 
	msgbox param1
	msgbox param2
 
end sub

Et cela fonctionne très bien, donc il y a autre chose par rapport à ce que tu nous a montré.

Philippe

[veroby]

J'ai vu où était mon erreur, j'avais redéfini les paramètres dans le sous-programme.
Désolée et merci de la réponse qui m'a fait prendre conscience de ce problème.
Javance !

[Invité]

Je viens de recopier intégralement le code que tu as mis dans un module du classeur ouvert (c'est peut-être là que viens le problème) et viens de le lancer (il suffit d'appuyer sur la touche F5) et cela fonctionne.

La preuve sur la copie d'écran :

Philippe

[veroby]

Ce problème est donc résolur, les paramètres étaient redéfinis.
Merci, la réponse m'a aidée à résoudre ce problème.