La fonction HEXDEC est limité à un nombre héxadécimal de 10 caractères.
Problèmes : mes nombres héxa sont de 16 caractères.
Merci pour toute suggestion ou solution simple à mettre en oeuvre.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Pierron
Bonjour YVEL;
Private Function HexToDec#(BinVal$) Dim i%, Lg% Lg = Len(BinVal) For i = Lg To 1 Step -1 HexToDec = HexToDec + (Nb(Mid(BinVal, i, 1)) * (16 ^ (Lg - i))) Next i End Function
Private Function Nb%(i$) Const Chain$ = "0123456789ABCDEF" Nb = Val(InStr(1, Chain, i, 1) - 1) End Function
Sub Test() ActiveCell = HexToDec(ActiveCell) End Sub
MP
"Y V E L" <yvel001[a].free.fr> a écrit dans le message de news:
Bonjour,
La fonction HEXDEC est limité à un nombre héxadécimal de 10 caractères. Problèmes : mes nombres héxa sont de 16 caractères. Merci pour toute suggestion ou solution simple à mettre en oeuvre.
-- YVEL
Bonjour YVEL;
Private Function HexToDec#(BinVal$)
Dim i%, Lg%
Lg = Len(BinVal)
For i = Lg To 1 Step -1
HexToDec = HexToDec + (Nb(Mid(BinVal, i, 1)) * (16 ^ (Lg - i)))
Next i
End Function
Private Function Nb%(i$)
Const Chain$ = "0123456789ABCDEF"
Nb = Val(InStr(1, Chain, i, 1) - 1)
End Function
Sub Test()
ActiveCell = HexToDec(ActiveCell)
End Sub
MP
"Y V E L" <yvel001[a].free.fr> a écrit dans le message de news:
uuYCF2SjFHA.3448@TK2MSFTNGP12.phx.gbl...
Bonjour,
La fonction HEXDEC est limité à un nombre héxadécimal de 10 caractères.
Problèmes : mes nombres héxa sont de 16 caractères.
Merci pour toute suggestion ou solution simple à mettre en oeuvre.
Private Function HexToDec#(BinVal$) Dim i%, Lg% Lg = Len(BinVal) For i = Lg To 1 Step -1 HexToDec = HexToDec + (Nb(Mid(BinVal, i, 1)) * (16 ^ (Lg - i))) Next i End Function
Private Function Nb%(i$) Const Chain$ = "0123456789ABCDEF" Nb = Val(InStr(1, Chain, i, 1) - 1) End Function
Sub Test() ActiveCell = HexToDec(ActiveCell) End Sub
MP
"Y V E L" <yvel001[a].free.fr> a écrit dans le message de news:
Bonjour,
La fonction HEXDEC est limité à un nombre héxadécimal de 10 caractères. Problèmes : mes nombres héxa sont de 16 caractères. Merci pour toute suggestion ou solution simple à mettre en oeuvre.