Discussion :

[EvaristeGaloisBis]

bonjour,
je me suis développé des outils personnels en VBA dans un fichier .xla.
Evolution oblige, j'aimerai pouvoir faire une fonction que l'on appellerait dans ma feuille de calcul excel par exemple =Toto(argument), et que la fonction Toto puisse aller chercher les informations dans un autre fichier excel.
La fonction focntion quand je fais des tests (du genre faire une sub qui l'appelle pour me mettre la valeur dans une msgbox), mais quand je fais le test sur la feuille avec =toto(), il me met l'erreur :"#valeur".
je ne comprends pas pourquoi.

voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function Qx(iAge As Integer, stTable As String) As Double
Dim stFichier As String
 
 
stCheminTables = "c:\"
stFichier = "TV8890.xls"
url = stCheminTables & "\" & stFichier
 
    Workbooks.Open url
Qx = Workbooks(stFichier).Sheets(stTable).Cells(iAge + 3, 2)
    Workbooks(stFichier).Close
 
End Function

j'avoue ne pas comprendre pourquoi il refuse.

J'ai aussi une question subsidiaire : comment faire pour que mes fonctions se mettent en gras... comme les fonctions d'excel.

[tangjuncn]

Bonjour,

qd tu fais ton test dans une Sub, ceci peut marcher, mais il ne peut pas marcher qd tu l'appelle à partir d'une cellule en faisant "=toto()", parce que dans la cellule, changement de feuille n'est pas possible durant le calcul, il cherche les données dans la même feuille, donc, il ne trouve rien.

Dans ce cas, il vaut mieux que tu fais une méthode appelé par un Commandbouton, là-dedans, tu fais une boucle pour appeler la fonction toto() pour chaque cellule qui ont besoin de calcul.

[EvaristeGaloisBis]

ceci sonne le glas de mon idée.
Est ce que je peux au moins lire dans un fichier texte ou est ce qu'il ne peut pas lire en dehors de la feuille?N

Autre interrogation : le problème persiste t il si je mets mes données dans une base de données?