passage de parametre sous VBA excel

Bonjour,
Je debute en VBA sous excel, et je n'arrive pas à passer des parametres sous excel

j'ai defini un formulaire MyUserform avec 1 variable publique MyVar, et j'ai défini 2 procédures MySub1 et MySub2 dans un module

j'appelle la premiere fonction en par MyUserform_initialize :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

sub MyUserform_initialize() MySub1 Me end sub   sub MySub1 (Form as userform) MySub2 Form end sub   sub MySub2 (Form as userform) Form.Myvar=0 end sub

---

en debug, sous MySub1, je vois bien Form.Myvar, par contre sous MySub2, je n'ai pas acces à MyVar.

Quelle erreur j'ai fait ????
D'avance, merci !!!!

Puisque cette variable est publique pourquoi ne pas la créer avant tes modules du type :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Explicit   Public myVar as long   sub MySub1 (Form as userform) MySub2 Form end sub   sub MySub2 () Myvar=0 end sub

---

Par ailleurs je ne comprends pas bien ton code et notamment ton :

Code:

---

1 2 3 4

sub MySub1 (Form as userform) MySub2 Form end sub

---

Quel est le but ?

Citation:

---

Envoyé par ouskel'n'or

Simplement une erreur... car n'a vraiment aucune utilité ;)

---

Merci pour les réponses....

J'ai voulu simplifier le code pour avoir un truc facilement reproduisable...

Le pb est la perte du pointeur lors de 2 appels imbriqués

Voila la même version avec plus de détails...
Je fais une sorte de banc de test qui communique avec des équipements par RS232. Dans le cas présent, de l'activité sur le port série appelle MySub1 qui analyse le message et appelle MySub2 qui renvoie un message sur le port
J'ai un formulaire avec un port série. J'ai donc une instance MSComm1 de MSComm sur ce formulaire. J'ai des procédures qui utilisent ce port série que j'ai défini avec des variables publiques. Tout fonctionne très bien.
Je vais réutiliser les mêmes fonctions dans d'autres applications, je comptais me faire une petite bibliothèque, j'ai donc décidé de les regrouper dans un module à part. Je ne voudrais pas avoir à définir de variables publiques pour faciliter la réutilisation des procédures, je voudrais tout passer en paramètre, et en particulier l'instance MSComm1 de Form1 à MySub1, et puis à MySub2

Après réécriture du code, ça ne fonctionne plus... Après debug, je me suis rendu compte que le passage de paramètre bloquait de MySub1 vers MySub2.

Le petit bout de code dans mon premier message est complètement con, mais il reproduit très bien le problème, et sans fioritures...
Et je ne vois pas ou est l'erreur....
Si quelqu'un à des idées.... meci d'avance....

Merci pour la réponse !!!
Par contre je n'ai pas tout compris...
Dans le bout de code, en debug sous MySub1, je vois bien l'userform passé en paramètre, et j'ai accès à tout les controles et variables... par contre, si je le repasse une fois à une autre procédure, le pointeur est perdu....
Ce qui est passé est un pointeur n'est ce pas ??? et donc normalement si le type de pointeur est connu, on peut acceder à n'importe quelle variable de la structure ???
En fait, c'est juste un controle que je comptais passer en paramètres, mais je crois que c'est la même chose, non ???

J'ai developpé tout le code pour piloter 1 equipement, en variable globale, et cela fonctionne très bien.
La, je vais en piloter 2 ou 3. Je comptais réécrire les fonctions avec le MSComm en paramètre.... mais je bloque sur ce point.....
Tout déclarer en variable globales, cela m'oblige à doubler ou tripler les procédures....Est ce que je me trompe ???

Merci pour tes réponses...

Bonjour,
Remet le code modifié des tes 2 fonctions, je comprend pas bien tes explications.
A+

Dans Userform1 il y a un control MSComm instance MyMSComm

Code:

---

1 2 3

private sub MyMSComm_on_comm() Module1.ManageAnswer MyMSComm end sub

---

dans module1

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim RXBuffer as string *256   sub ManageAnswer (MSComm1 as MSComm)   RxBuffer = RxBuffer & MSComm1.Input If Right(RxBuffer, 1) = Chr(10) Then if RxBuffer="Coucou" SendCommand MSComm1 end if RxBuffer="" end if end sub     sub SendCommand (MSComm2 as MSComm) MSComm2.Output="Ca ne marche pas !!!!" & Chr(13) & Chr(10) end sub

---

Voila...
Donc en debug, sous ManageAnswer, en espion, MSComm1 pointe sur quelquechose, mais lorsque j'arrive sur SendCommand, MSComm2 est vide....
Je ne comprend pas l'erreur...
D'avance, merci !!!

Bonjour,

Citation:

---

Envoyé par Ouskeln'or

On ne peut pas passer un userform en paramètre.

---

Désolé de te contredire mais rien ne l'empeche, un petit exemple ici.

http://www.developpez.net/forums/sho...d.php?t=416007

Si j'ai bien compris la source du probleme est dans le type de l'argument des procédures. Essaye comme cela:

Dans ton formulaire nommé MyUserform:

Code:

---

1 2 3 4 5 6

Public myvar As Long   Private Sub UserForm_Initialize() myvar = 2 MySub1 Me End Sub

---

Dans un module standard:

Code:

---

1 2 3 4 5 6 7 8

Sub MySub1(Form As MyUserForm) MsgBox Form.myvar MySub2 Form End Sub   Sub MySub2(Form As MyUserForm) MsgBox Form.myvar End Sub

---

Si tes procédures doivent recevoir plusieurs formulaires différents en parametre, il faut déclarer celui-ci avec le type Object.

Cordialement,

Tirex28/

Oula !!!! Il y avait un truc qui me passait au dessus de la tête
L'erreur que je faisais était de déclarer

Code:

---

1 2	sub Mysub (form as userform) end sub

---

au lieu de

Code:

---

1 2	sub Mysub (form as userform1) end sub

---

J'ai l'impression que je confond classe et objet
Lorsque l'on crée un userform appellé MyUserform, je croyais que userform était la classe, et MyUserform l'objet.
Lorsque l'on définit une fonction procédure, on lui précise la classe des paramètres.
Chaque fois que l'on crée un userform, le compilateur dérive une classe de l'objet ??? est ce que je suis dans le vrai ?

Merci pour la solution !!!!

Re,

Citation:

---

Chaque fois que l'on crée un userform, le compilateur dérive une classe de l'objet ??? est ce que je suis dans le vrai ?

---

En quelque sorte quoique ce soit peut etre un abus de langage. Un module de Userform c'est une classe. Le formulaire que tu vois apparaitre à l'ecran ou que tu passe en parametre c'est un objet issue de cette classe. Quand tu fais MyUserForm.Show, implicitement cela revient à faire:

Code:

---

1 2 3

Dim Form As MyUserForm Set Form = New MyUserform Form.Show

---

En chargeant ton formulaire avant de l'afficher, tu peux acceder a ces membres publics.

Code:

---

1 2 3

MyUserForm.Load MYUserForm.MyVar=2 MYUserForm.Show

---

Ce qui revient implicitement à faire:

Code:

---

1 2 3 4

Dim Form As MyUserForm Set Form = New MyUserform Form.MyVar=2 Form.Show

---

Cordialement,

Tirex28/

Merci pour les réponses, je commence à comprendre...
Mais la ou je suis perdu, c'est dans le cas ou je définie plusieurs instances d'un control

Si j'ai un control dans le formulaire :

Code:

---

dim MyInstance1 as control

---

Dans un module externe, je définie des fonctions avec comme paramètre ce controle, je les déclare comme :

Code:

---

1 2	sub MySub (Control as MyInstance1) end sub

---

et dans le cas ou je définie une autrel instance MyInstance2 de ce controle dans le formulaire, comment je fais pour réutiliser les fonctions ???

D'avance, merci !!!!

Bonjour,

Dans le formulaire:

Code:

---

1 2 3 4 5

dim MyInstance1 as control dim MyInstance2 as control ... MySub Myinstance1 MySub Myinstance2

---

Dans un module externe:

Code:

---

1 2 3

sub MySub (AnyInstance as control) Msgbox AnyInstance.Name end sub

---

Cordialement,

Tirex28/