Discussion :

[Koudou]

Bonjour,

J'ai plusieurs nombres hexa à convertir en binaire. Plutôt que d'utiliser la calculette j'ai voulu utiliser Excel mais la fonction hexbin ne semble pas fonctionner au delà de 8 chiffres hexa.

Est-ce normal que =hexbin(10000000) me retourne #NOMBRE! ? En fait hexbin ne marche que si le résultat binaire a moins de 9 chiffres alors que la calculette opère sans problème avec 64 chiffres ?

Connaissez-vous une solution de contournement simple (autre que découper mon nombre en paquets de 2 chiffres !) ?

Merci de votre aide.

[Jean-Philippe André]

Salut,

Avec une formule un peu bourrine comme celle ci (dec2bin au lieu de hex2bin)
(trouvee sur un site anglophone)

=DEC2BIN(MOD(QUOTIENT($A$1,256^3),256),8)&DEC2BIN(MOD(QUOTIENT($A$1,256^2),256),8)&DEC2BIN(MOD(QUOTIENT($A$1,256^1),256),8)&DEC2BIN(MOD(QUOTIENT($A$1,256^0),256),8)

[Menhir]

hexbin ne marche que si le résultat binaire a moins de 9 chiffres alors que la calculette opère sans problème avec 64 chiffres ?

Tout est expliqué dans l'aide Excel : https://support.office.com/fr-fr/art...4-643e581828c1

L'avantage pour toi dans le passage Hex > Bin, c'est qu'il est possible de tronçonner la valeur source pour recomposer le résultat en plusieurs parties.
Par exemple, pour des nombres Hex de 8 caractères maxi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=HEXBIN(STXT(A2;1;2);8)&SI(NBCAR(A2)>=3;HEXBIN(STXT(A2;3;2);8);"")&SI(NBCAR(A2)>=5;HEXBIN(STXT(A2;5;2);8);"")&SI(NBCAR(A2)>=7;HEXBIN(STXT(A2;7;2);8);"")

Mais il serait plus propre de faire une fonction personnalisée en VBA.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function HEXBIN2(Source As String) As String
Dim I As Integer
HEXBIN2 = ""
For I = 1 To Len(Source)
   HEXBIN2 = HEXBIN2 & Application.WorksheetFunction.Hex2Bin(Mid(Source, I, 1), 4)
Next I
End Function

Avec ça, tu seras limité à environ 32 000 caractères en binaire, c'est-à-dire 8 000 caractères en hex.