Une bizarrerie de VBA Excel 2007

Dans un module VBA (Excel 2007), j'ai voulu utiliser la fonction Val pour convertir un texte en nombre. Tout allait bien jusqu'à ce que j'envoie à cette fonction un paramètre du type :
nombre1 & "d" & nombre2
En principe, la fonction Val(nombre1 & "d" & nombre2) devait tout simplement retourner nombre1. Au lieu de cela, elle a renvoyé nombre1 * 10 ^ nombre2

Voici le code utilisé dans un module VBA:

Code:

---

1 2 3

Function retVal(v As String) As Double retVal = Val(v) End Function

---

Avec la saisie dans la feuille Excel de
=retVal("77d8")

avec nombre1 = 77 et nombre2 =8
je m'attendais à avoir comme résultat : 77

mais j'ai obtenu : 7 700 000 000

ou, selon le format des nombres de la cellule : 77 E+8
autrement dit : 77 * 10 puissance 8

La lettre "d" dans ce cas représente-t-elle un caractère spécial ?
Y a-t-il une explication à cela ?

Citation:

---

La lettre "d" dans ce cas représente-t-elle un caractère spécial ?

---

Bonjour,
Oui, c'est le nombre de 0 (zéro) qui va être ajouté.
77d2 donnera 7700
77d0 donnera 77
77d3 donnera 77000

Pour pallier vous pouvez faire un code comme suit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Function retVal(v As String) As Double Dim i& Dim A$ '--- For i& = 1 To Len(v) If IsNumeric(Mid(v, i&, 1)) Then A$ = A$ & Mid(v, i&, 1) Else Exit For End If Next i& If Len(A$) > 0 Then retVal = CDbl(A$) End Function

---

Merci PMO2017 pour la réponse.
En fait, je voulais savoir si ce "caractère spécial" était documenté par Microsoft.
Pour ce qui est de la solution pour contourner le problème, j'ai utilisé dans une variante la fonction Replace et dans l'autre la fonction Instr

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

'utilisation de la fonction Replace 'en espérant que la lettre "a" n'est pas un autre caractère spécial Function retVal(v As String) As Double Dim strV As String strV = Replace(UCase(v), "D", "a") retVal = CDbl(Val(strV)) End Function   'utilisation de la fonction Instr Function retVal2(v As String) As Double Dim c As Long Dim strV As String c = InStr(UCase(v), "D") strV = IIf(c > 0, Left(v, c - 1), v) retVal2 = CDbl(Val(strV)) End Function

---

Bonjour Jouad

Citation:

---

Pour ce qui est de la solution pour contourner le problème, j'ai utilisé dans une variante la fonction Replace et dans l'autre la fonction Instr

---

Je ne veux pas te démolir le moral, mais regarde :

Code:

---

MsgBox Val("8E2") & vbCrLf & Val("8d2") & vbCrLf & Val("&H320") & vbCrLf & Val("&o1440")

---

Il ne faut tout simplement pas abuser de la très (trop) grande tolérance de la fonction Val de VB. Et savoir déterminer avec précision ce que l'on attend d'elle, en fonction de ce que l'on veut très précisément traiter et (surtout) du contexte.
EDIT : traduire "tolérance" par "élasticité".
Il y aurait du avoir DEUX fonctions : l'une pour retourner la valeur décimale de toute expression (quelle qu'en fût la notation) numérique, l'autre pour ne retourner que la valeur de la chaîne précédant tout caractère non numérique.

Bonjour unparia,
Merci pour les précisions.