Discussion :

[Jouad]

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 :

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

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 ?

[PMO2017]

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 :

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

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

[Jouad]

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 :

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

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

[unparia]

Bonjour Jouad

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 :

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

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.

[Jouad]

Bonjour unparia,
Merci pour les précisions.