Macro - passage de variables dans 2 procédures

Macro - passage de variables dans 2 procédures - VB/VBA/VBS - Programmation

Marsh Posté le 06-04-2005 à 11:41:44    

Bonjour,
Dans mon projet VBA, j'ai 2 formes :
Form1_form et Form2_form
Dans chaque formes, il y a une procédure :
Form1_form.procedure1 et Form2_form.procedure2
Mon but est de faire passer 2 variables de la procédure 1 dans la procédure 2.  
Avec 1 variable, ça fonctionne :

Code :
  1. Sub procedure1()
  2. Dim test as string
  3. test = "abc"
  4. Form2_form.procedure2(test)
  5. end sub


 

Code :
  1. Sub procedure2(var1 as string)
  2. msgbox(var1)
  3. end sub


 
Le problème, est que quand je reprends cet exemple pour 2 variables, ça ne fonctionne plus :
 

Code :
  1. Sub procedure1()
  2. Dim test, test1 as string
  3. test = "abc"
  4. test1 = "def"
  5. Form2_form.procedure2(test, test1)
  6. end sub


 

Code :
  1. Sub procedure2(var1, var2 as string)
  2. msgbox(var1)
  3. msgbox(var2)
  4. end sub


 
J'ai tout essayé et franchement, sans succès, est-ce que qqn pourrait m'aider ?!?

Reply

Marsh Posté le 06-04-2005 à 11:41:44   

Reply

Marsh Posté le 06-04-2005 à 15:46:43    

Salut,
 
A priori c'est tout juste... Et cela devrait fonctionner.
 
Qu'est-ce que tu as comme message d'erreur?

Reply

Marsh Posté le 06-04-2005 à 20:14:31    

A la ligne 5 de procedure1, supprime les parenthèses.
 
VBA considère que, si tu passes plus d'une variable en paramètre, tu appelles une fonction et il te demande une assignation (il demande un =)


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 07-04-2005 à 12:04:03    

Bien vu!
Mon cerveau trop habitué à VB a automatiquement supprimé les parenthèses :-)

Reply

Marsh Posté le 07-04-2005 à 17:07:51    

:jap:


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed