Bonsoir Database60 et Pierre,
Comme le dit Pierre, il doit être possible de trouver ce type de fonction dans les librairies complémentaires de Excel.
Toutefois "pour le Fun" tu trouveras ci joint un petit exemple qui propose les deux fonctions demandées en s'appuyant tout simplement sur une table de conversion.
=====================================================Const TableHexBin As String = _
"0,0000/" & _
"1,0001/" & _
"2,0010/" & _
"3,0011/" & _
"4,0100/" & _
"5,0101/" & _
"6,0110/" & _
"7,0111/" & _
"8,1000/" & _
"9,1001/" & _
"A,1010/" & _
"B,1011/" & _
"C,1100/" & _
"D,1101/" & _
"E,1110/" & _
"F,1111/"
Public Function HexaBin(Hexa As String) As String
For i = 1 To Len(Hexa)
J = InStr(TableHexBin, Mid(Hexa, i, 1) & ",")
If J = 0 Then
HexaBin = "Erreur. Caractères invalides"
Exit Function
End If
HexaBin = HexaBin & Mid(TableHexBin, J + 2, 4)
Next i
End Function
Public Function BinHexa(Bin As String) As String
Bin = Left("0000", Len(Bin) Mod 4) & Bin 'Alignement chaîne à convertir sur multiple de 4
For i = 1 To Len(Bin) Step 4
J = InStr(TableHexBin, Mid(Bin, i, 4) & "/")
If J = 0 Then
BinHexa = "Erreur. Caractères invalides"
Exit Function
End If
BinHexa = BinHexa & Mid(TableHexBin, J - 2, 1)
Next i
End Function
=====================================================
Pas génial, mais ....
Bon courage pour la suite.
Omicron.