Bonjour, j'ai le problème suivant: j'ai un code main suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
sub main
dim resultat as integer
definition_objet
resultat=utilisation_objet(obj1,obj2)
end sub
dans la procédure "sub definition_objet" je définis tous les objets (prédéfini suivant la classe obj) ainsi que leurs attributs

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
public obj1 as new obj
public obj2 as new obj
sub definition_objet()
obj1.attribut1=x
obj2.attribut1=y
end sub
et dans la procédure utilisation_objet je manipule les objets:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
function utilisation_objet(ByRef new_obj1 as obj, ByRef new_obj2 as obj) as integer
dim resultat as integer
resultat=obj1.attribut1+obj2.attribut1
return resultat
end sub
Bien que j'ai déclaré en public les objets obj1 et obj2, ces objets deviennent hors de portée une fois que la procédure definition_objet s'achève et la variable resultat dans la procédure main me donne toujours 0.
Bien qu'il y ait beaucoup d'information sur internet sur la portée des variables, je ne trouve aucune solution pour élargir la portée de mes objets à la procédure main.
Pourriez vous m'indiquer une piste s'il vous plaît?
Merci d'avance