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

baiba

XLDnaute Nouveau
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

XLDnaute Barbatruc
Bonsoir le fil

baiba [Bienvenue sur le forum]
Je te laisse adapter cette petite macro de test
VB:
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
 

Statistiques des forums

Discussions
311 725
Messages
2 081 942
Membres
101 849
dernier inscrit
florentMIG