Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
'Function hexadecimal_en_decimal(chaine_hexa)
Sub convert()
resultat = 0
For i = Len(chaine_hexa) To 1 Step -1 ' Depuis i = longueur chaine à i = 1
longueur = Mid(chaine_hexa, i, 1) ' renvoit le (1) caractère à partir de la position i de la chaine (on commence donc par la fin)
position = InStr("0123456789ABCDEF", UCase(longueur)) - 1 ' On prend milieu, on met en majuscule au cas où on aurait écrit abcdef au lieu de ABCDEF,
' On met dans position la position du 1er caractère de milieu dans 0123456789ABCDEF et on retire 1 => on a converti de l'hexa en dec
If position >= 0 Then
valeur = position * (16 ^ (Len(chaine_hexa) - i)) ' Formule de maths de conversion
resultat = resultat + valeur
Else
resultat = 0
i = 0 ' Fin de la boucle en cas d'erreur
End If
Next
hexadecimal_en_decimal = resultat
End Sub
<code>
toto = "H008080FF"
Val ("&" & toto)
11 déc. 2013 à 04:15
il me semble que tu es trop à cheval, mais nous on demande juste un peu de compréhension et surtout de l'aide, sinon on ne serait pas ici