Bonjour à tous,
J'avais raté ce post hier...
Mais en voyant ta réponse Jacques, j'ai pensé qu'il serait bien de créer une fonction qui transforme une chaîne de caractères(ici expression alphanumérique) en un nombre (de type double): cela peut servir même si elle existe déjà..
Function AlphadevientNum(chaine As String) As Double
Dim Strmyvalue As String, Strlen As Long, Newlen As Long, i as Long
Strmyvalue = chaine
Strlen = Len(Strmyvalue)
For i = Strlen To 1 Step (-1)
Newlen = Len(Strmyvalue)
If Not (IsNumeric(Mid(Strmyvalue, i, 1))) Then
Strmyvalue = Left(Strmyvalue, i - 1) & Right(Strmyvalue, Newlen - i)
End If
Next i
AlphadevientNum = Strmyvalue
End Function
ensuite pour s'en servir dans une procédure
sub res()
dim toto as double
toto=AlphadevientNum(unechaine)
end sub
ou encore dans une feuille de calcul, dans une celulle....
taper en A2, =alphadevientnum(A1)
A+++