bonjour,
je suis un vrai débutant (vrai de vrai..) et j'ai récupéré un classeur excel avec un code VBA (pas moi qui l'ai fait) pour une petite opération mathématique.
je me suis mis en tête de faire un petit .exe pour faire ce calcul ! mais j'ai découvert que à priori le code VBA n'est pas tout à fait comme le VB, et bien sûr comme je ne connais rien, je suis bloqué directement
l'idée c'est une valeur hexadecimale (exemple "E6") à convertir en bytes, inverser les bytes, inverser l'ordre de lecture des 2, et reconvertir en hexa
(le calcul est bytes par bytes car c'est E qui devient 7 et 6 devient 6, puis c'est inversé dans la lecture, ce qui donne un résultat de "67")
je peux donner le détail si besoin
le code VBA du classeur excel :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Option Explicit Sub Test() MsgBox "RevBits(&H" & Hex(&HE6) & ") = &H" & Hex(RevBits(&HE6)) End Sub Function RevBits(ByVal X As Byte) As Byte Dim P%: For P = 0 To 7 If X And 2 ^ P Then RevBits = RevBits Or 2 ^ (7 - P) Next P End Function
alors voilà j'aimerai rentrer dans la valeur hexa dans la textbox1 par exemple, et que le résultat s'affiche dans la textbox2 après appui un le bouton, si quelqu'un peut me convertir ce code ce serait sympa !!
(et si j'ai bien compris, ce code il faut l'insérer dans la partie code du bouton ?)
merci d'avance !
Partager