De l'héxadécimal au binaire...

'//TOUTES TRADUCTIONS PARTANT DU BINAIRE
Public Function DecToBin(DecVal As Double) As String
Dim a As Double
a = DecVal
    For b = 1 To Int(Log(DecVal) / Log(2)) + 1
        DecToBin = CDbl(a Mod 2) & DecToBin
        a = CDbl(Int(a / 2))
    Next b
End Function

Public Function DecToHex(DecVal As Double) As String
Dim a As Double, b As Double, c As String, d As Double
    a = DecVal
    For b = 1 To Int(Log(DecVal) / Log(16)) + 1
        d = CDbl(a Mod 16)
        Select Case d
            Case 0 To 9
                c = d
            Case Else
                c = Chr(55 + d)
        End Select
        DecToHex = c & DecToHex
        a = CDbl(Int(a / 16))
    Next b
End Function

'//TOUTES TRADUCTIONS AYANT POUR BASE LA FORME BINAIRE
Public Function BinToDec(Bin As String) As Double
Dim TotalDec As Double, a As Double
    For a = 1 To Len(Bin)
        TotalDec = (TotalDec * 2) + Mid(Bin, a, 1)
    Next a
    BinToDec = TotalDec
End Function

Public Function BinToHex(Bin As String) As String
    BinToHex = DecToHex(BinToDec(Bin))
End Function

'//TOUTES TRADUCTIONS AYANT POUR BASE L'HEXADÉCIMAL
Public Function HexToDec(HexVal As String) As Double
Dim TotalDec As Double, a As Double, c As Double
    For a = 1 To Len(HexVal)
        Select Case (Mid(HexVal, a, 1))
            Case 0 To 9
                c = (Mid(HexVal, a, 1))
            Case Else
                c = (Asc(Mid(HexVal, a, 1)) - 55)
        End Select
        TotalDec = (TotalDec * 16) + c
    Next a
    HexToDec = TotalDec
End Function

Public Function HexToBin(HexVal As String) As String
    HexToBin = DecToBin(HexToDec(HexVal))
End Function