Lancer une Sub via un formulaire

[Zarkoff]

Hello dans ma macro j'ai 3 modules qui contiennent chacun 1 sub.
1. Methode_choice qui lance le formulaire
2. One_invoice qui contient 1 sub appelé one_invoice aussi
3. two_invoices qui contient 1 sub appelé one_invoice aussi

Le formulaire contient 2 OptionButton ainsi qu'un CommandButton qui sert de "Ok" pour continuer.

voici le code lié à ce commandbutton :

Private Sub CommandButton1_Click()
UserForm4.Hide
If OptionButton1 = True Then Two_invoice.Two_invoice
If OptionButton2 = True Then One_invoice.One_invoice
End Sub

mais j'ai un message d'erreur :
Compile Error Expected function or variable avec OptionButton1 en surbrillance, mais cette objet existe bien dans mon formulaire. et le nom est bien identique.

Help. !

 

[sylsyl]

Salut Zarcoff,

AS-tu essayer en mettent:

... then Call Two_invoice.One_invoice et pas Two_invoice.Two_invoice puisqu'aucun sub ne s'appelle comme ca.

Je ne sais pas si le call est necessaire mais moi je le met toujours pour la lisibilite du programme.

A++, Sylsyl.

 

[sylsyl]

Oups !!

ou alors c'est Two_invoice.Two_invoice et One_invoice.One_invoice auquel cas c'est peut- etre le "call" qui manque...

A+, Sylsyl.