Microsoft 365 Aide pour formules transformation code Hexa en inversant le sens de lecture !

[baiba]

Bonjour,

Je m'appelle Sébastien, je recherche de l'aide étant novice dans les formules complexes sous Excel...

Je connais bien la formule HEXDEC mais cela ne suffit pas.

Je m'explique j'ai des codes badges (pour du contrôle d'accès) qui sont transformés automatiquement par un encodeur du commerce.
Je recherche la conversion à effectuer sur Excel pour trouverfacilement trouver le code de badges (liste de 4000 badges...)

Le badge a un code Hexadecimal sur 16 caractères, le système sélectionne uniquement les 8 premiers caractères du code :

04571D12 1F5680

puis il inverse le sens de lecture par 2 soit :

121D5704

et il le convertit en décimal :

0303912708

On retombe alors bien sur un nombre décimal à 10 caractères.


Voilà, je suis à la recherche de cette conversion pour tableur Excel ! si possible ? en macro VBA ?
Je sais pas faire


Par contre, j'ai le script en Java !
cela fait :

var val = reader.physicalCode;
var reverseVal="";
val=val.substring(0, 8)
while (val.length < 8)
val = "0" + val;
for (var i=val.length-1; i>=1; i-=2)
{
reverseVal += val.charAt(i-1) + val.charAt(i);
}
reader.physicalCode=parseInt(reverseVal,16).toString();



Merci pour votre aide ...

Sébastien

 

[Staple1600]

Bonsoir le fil

baiba [Bienvenue sur le forum]
Je te laisse adapter cette petite macro de test

Sub test()
Dim X$
X = "04571D121F5680"
Z = StrReverse(Left(X, 8))
For i = 1 To Len(Z) Step 2
s = s & StrReverse(Mid(Z, i, 2))
Next
MsgBox Application.Hex2Dec(s)
End Sub

 

[Staple1600]

Re

Avec cette formule, j'obtiens le même résultat que la macro du message#2
=HEXDEC(DROITE(GAUCHE(A1;8);2)&STXT(GAUCHE(A1;8);5;2)&STXT(GAUCHE(A1;8);3;2)&GAUCHE(GAUCHE(A1;8);2))

 

[baiba]

Re

Avec cette formule, j'obtiens le même résultat que la macro du message#2
=HEXDEC(DROITE(GAUCHE(A1;8);2)&STXT(GAUCHE(A1;8);5;2)&STXT(GAUCHE(A1;8);3;2)&GAUCHE(GAUCHE(A1;8);2))

Merci pour vos posts, j'essaye ça !

 

[baiba]

Bonjour,
Ca marche impeccable !! tu es un as !!!
J'ai fait le test réel sur 3 badges, ca fonctionne correctement. C'est super

Merci encore

Sébastien