Récup valeur d'une procédure

[Clark]

Bonjour,

j'appelle une procédure située dans la partie général d'une sheet et déclarée en private function à partir d'un bouton situé dans un userform.

Je l'appelle de cette façon :

response = Application.Run("" & Sheets("Activite").CodeName & ".Cherche_Activite", Id)

Ca ne plante pas mais je ne récupère aucune valeur alors qu'en suivant l'exécution, il trouve bien une valeur.

Lorsque je place cette fonction directement dans le userform en l'appelant ainsi :

response = Cherche_Activite(Id)

ca marche nickel!!

Auriez-vous une idée d'où ca peut venir?!

Merci pour votre aide
Clark

 

[Abel]

Bonjour Clark, tous,

Ta variable est-elle déclarée en "Public" ?

L'endroit où tu récupères la valeur est-il dans le même module ou la même feuille ?
Si ce n'est pas le cas, le "Private" y est peut être pour quelque chose.

Abel

 

[Abel]

Re,

Ca yest, je viens de le retrouver.

Ca vient de ce Lien supprimé.

Il n'y a pas de raison de ne pas citer les copains, après tout !

A+

Abel

 

[Abel]

Re,

Heu, pardon Clark.

J'm'ai gouru d'fil.

Abel

 

[Clark]

Pas de problème Abel!!

Sinon, ma fonction est bien public pas contre ma variable Id est déclarée dans le code du bouton qui appelle cette fonction de cette manière

Dim Id as String

ca doit venir de ça!

Où dois-je la déclarer pour que ca fonctionne?
Je précise que je n'utilise aucun module!

Clark

 

[Abel]

Re,

En tête d'un module (n'importe lequel) et avant le premier Sub, place "Public Id as String".

Id sera visible par tout le projet.

Au fait, "Id", ce n'est pas un mot VBA réservé ?


Abel

 

[Clark]

Oui mais moi je n'utilise pas de module!!

C'est soit dans la partie générale du userform ou de la sheet!

Apparemment Id ne pose pas de problème!

Clark

 

[Abel]

Re,

Ta fonction doit-elle obligatoirement être dans une feuille ?

Essaie quand même de déclarer ta variable dans la feuille. On verra bien.
Je ne l'ai jamais fait à cet endroit. Je ne sait pas comment Excel réagit.

J'essaierai dès que j'aurai 5 mn.

Public Id as String
Function ... (c'est une fonction je crois)

A+

Abel.