Discussion :

[gronaze]

Bonjour,

J'ai créée une fonction VBExcel, qui me permet de manipuler un nombre passé en argument de la fonction. Voici son prototype:

Code :

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

Function ComputeLatitude(ByVal Value As String) As Double

Je voudrais pouvoir appeler cette fonction depuis mon classeur Excel. De la manière suivante, par exemple lire la cellule D34

Code :

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

ComputeLatitude(D34)

Avec la cellule D34 égale à 7F1C (un nombre hexadécimal). J'obtiens l'erreur suivante : #VALEUR!

Lorsque j'appelle cette fonction depuis le module VB de la manière suivante :
ComputeLatitude("7F1C"), le calcul s'effectue correctement

Et dans les deux fenêtres lorsque le contenu de la cellule/fonction n'est constitué que de chiffre, le résultat est correct.

Je pense qu'il s'agit de mon argument d'entrée de la fonction qui pose problème : ByVal Value As String. J'ai donc essayé d'appeler la fonction depuis mon classeur Excel en forçant l'argument a être un String mais sans succès.

Quelqu'un a une petite astuce à me conseiller,

Merci

[AnneCa]

Pour retrouver la valeur d'une cellule

Code :

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

Range("D34").value

Si tu veux être sur que ce soit du type string

Code :

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

Cstr(Range("D34").value)

[pgz]

Avec la cellule D34 égale à 7F1C (un nombre hexadécimal). J'obtiens l'erreur suivante : #VALEUR!

Lorsque j'appelle cette fonction depuis le module VB de la manière suivante :
ComputeLatitude("7F1C"), le calcul s'effectue correctement

Et dans les deux fenêtres lorsque le contenu de la cellule/fonction n'est constitué que de chiffre, le résultat est correct.

Voilà qui n'est pas banal.
Si c'était l'inverse, on dirait que c'est un problème de type de la donnée passée en paramètre. Mais là...

J'ai fait un test. Avec cette fonction

Code :

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

1
2
3
Public Function fctUneValeur(ByVal Value As String) As Double
    fctUneValeur = Len(Value) / 1.3
End Function

Si j'écris dans la cellule appelée 7F1C la valeur est considérée comme du texte et pas de pb. Si j'écris 8000, la valeur est considérée numérique et je n'ai pas de pb non plus...

Par contre si je modifie la fonction

Code :

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

1
2
3
Public Function fctUneValeur(ByVal Value As String) As Double
    fctUneValeur = Len(Value) / 0
End Function

J'obtiens #Valeur.

Je serai tenté de penser qu'il faut chercher du côté de la fonction, même si

Lorsque j'appelle cette fonction depuis le module VB de la manière suivante :
ComputeLatitude("7F1C"), le calcul s'effectue correctement

PGZ