Discussion :

[jpclabaux]

Salut,

J'ai un projet de macros complémentaires avec lequel je crée plusieurs feuille dans mon classeur actif. Ensuite je veux utiliser ces fonctions à partir de cette même macro complémentaire.
C'est possible de faire ça?

Merci de votre aide,
Jean

[tototiti2008]

Bonjour Jean,

Ensuite je veux utiliser ces fonctions à partir de cette même macro complémentaire.
C'est possible de faire ça?

Désolé, je n'ai pas compris...

[jpclabaux]

Effectivement en me relisant je vois que c'est incompréhensible.
Donc j'ai une macro complémentaire avec laquelle je créé de nouvelles feuilles dans mon classeur actif. Dans chaque feuille, j'ajoute une fonction créée dynamiquement, différente pour chaque feuille (ça dépend du contenu de la feuille).
Ensuite, je veux appeler les fonctions que j'ai créé dynamiquement à partir d'un module de ma macro complémentaire.

Est-ce que c'est plus clair comme ça?

[tototiti2008]

Re,

Est-ce que c'est plus clair comme ça?

Légèrement moins brumeux

Bon, ta macro complémentaire contient une Sub qui crée des feuilles dans le classeur actif, OK
Elle écrit une formule dans certaine cellules, formule variable, OK

Comme c'est ton code qui a écrit les formules, je suppose que tu sais où elles sont écrites... Donc quelle est la difficulté de récupérer le résultat de tes formules dans une Sub de ta macro complémentaire ?
Je suppose que ça devrait s'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Worksheets("MaFeuil1").range("A1").value

Non ?

[jpclabaux]

Le problème c'est que la fonction est une macro associée à la feuille créée automatiquement du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function maFonction() As Boolean
 
End Function

et pas une fonction dans une cellule.
En résumé je veux appeler une macro qui se trouve dans une feuille du classeur actif à partir d'un module de macro complémentaire.
J'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(maFeuil).maMacro

mais j'ai l'impression que le système cherche maFeuil dans le projet de la macro complémentaire. Donc il ne la trouve pas et même si par coïncidence il trouvait une feuille du même nom il n'y trouverai pas la macro.
Voilà, je pense que tout y est cette fois ci.

[tototiti2008]

Bonjour,

Si j'ai bien compris, tu veux exécuter le code VBA d'une fonction se trouvant dans une feuille du classeur actif...
J'aurais bien dit d'essayer quelque chose comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub a()
Dim z As String
    z = Application.Run("Classeur3.xls!Feuil1.MaFonction")
    MsgBox z
End Sub

Mais mes tests ne sont pas concluants... il exécute bien la fonction mais il ne renvoie pas le résultat

Par contre, si tu met la fonction dans un Module du classeur actif, ça fonctionne chez moi avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub a()
Dim z As String
    z = Application.Run("Classeur3.xls!MaFonction")
    MsgBox z
End Sub