Conversion d'un grand nombre hexadécimal.

[COLOR="DarkSlateGray"][B]Function hex_bin1$(h)
Dim y, i&
   h = UCase("" & h)
   y = Array("0123456789ABCDEF", "0000", "0001", "0010", "0011", "0100", "0101", "0110", "0111", "1000", "1001", "1010", "1011", "1100", "1101", "1110", "1111")
   On Error GoTo E
   For i = Len(h) To 1 Step -1
      h = Left$(h, i - 1) & Replace(h, Mid$(h, i, 1), y(WorksheetFunction.Find(Mid$(h, i, 1), y(0))), i, 1)
   Next i
   hex_bin1 = h
E: On Error GoTo 0
End Function

Function hex_bin2$(h)
Dim y, i&
   h = UCase("" & h)
   y = Array("0123456789ABCDEF", "0000", "0001", "0010", "0011", "0100", "0101", "0110", "0111", "1000", "1001", "1010", "1011", "1100", "1101", "1110", "1111")
   On Error GoTo E
   For i = Len(h) To 1 Step -1
      h = Left$(h, i - 1) & Replace(h, Mid$(h, i, 1), y(WorksheetFunction.Find(Mid$(h, i, 1), y(0))), i, 1)
   Next i
   For i = 1 To Len(h) - 1
      If Left$(h, 1) = "0" Then h = Right$(h, Len(h) - 1) Else Exit For
   Next i
   hex_bin2 = h
E: On Error GoTo 0
End Function[/B][/COLOR]