Hexadécimale -- décimale, et inversement

Question

Je viens d'apprendre la fonction pour convertir un hexadecimale en décimale 
( Hex() ) , mais qu'elle est la fonction inverse (de hexadecimale à decimale...)

merci !
;)

PCPT · Answer

salut
elle n'existe pas. il faut la cr&#233;er toi-m&#234;me

PCPT

tekila_bandita · Answer

Pourrais tu m'aidé, je ne saurais pas comment m'y prendre...

Je ne sais pas comment écrire le calcul et tout...


Merci pour celui qui résoudra ce calcul !

;)

PCPT · Answer

je tapes "convertir hexa", première source :

'Convertir une valeur DÉCIMAL en une valeur HEXA
Public Function InvDeci(ValDeci As String) As String
InvDeci = Hex(ValDeci)
End Function
'Convertir une valeur Hexa en une Valeur DÉCIMAL
Public Function InvHex(ValHex As String) As String
InvHex = Val("&H" & ValHex & "&")
End Function
'Convertir une valeur Hexa en une Valeur ASCII
Public Function HexCrypt(Text As String) As String
Dim a As Integer
Dim TotalChaine As String
TotalChaine = ""
For a = 1 To Len(Text)
TotalChaine = TotalChaine & Hex(Asc(Mid(Text, a, 1)))
Next
HexCrypt = TotalChaine
End Function
'Converti une valeur ASCII en une valeur HEXA
Public Function HexDeCrypt(Text As String) As String
Dim a As Integer
Dim TotalChaine As String
TotalChaine = ""
For a = 1 To Len(Text) Step 2
TotalChaine = TotalChaine & Chr(Val("&H" & Mid(Text, a, 2)))
Next
HexDeCrypt = TotalChaine
End Function

y'a pas à dire, plus on vous aide, moins vous en faites!!!! ps : il y a 2 pages de résultats si celui-ci ne te convient pas. PCPT

tekila_bandita · Answer

Merci, 
Mais le seul qu'il me faut c'est onvertir une valeur Hexa en une Valeur DÉCIMAL, mais celui que tu m'as donné ne marche pas... la fonction Val() me génere une erreur ( type incompatible Val ...)
J'aimerais pouvoir convertir des dhexa en déci en vbS...
MERCI QUAND MEME !
je recherche toujours de l'aide !

PCPT · Answer

pour les prochaines fois, pense &#224; pr&#233;ciser le language stp...
VBS s'approche du VBA. essai sans le "Val" qui convertie en valeur num&#233;rique, pas forc&#233;ment utile puisque pas de d&#233;claration en VBA (variant).
essai toujours, aucune id&#233;e...

PCPT

tekila_bandita · Answer

Non, cela ne servirait à rien...
il me faudrait un code, meme un select case qui decoupe chaque partie (par 2) du texte !

MERCI

PCPT · Answer

MaString = "ABCDEFGH"

For i = 1 To Len(MaString) - 1 Step 2
    MsgBox Mid(MaString, i, 2)
Next i

PCPT

tekila_bandita · Answer

Ouai, mais en faite, j'ai écrit une instruction select case qui test la plupart des valeurs ascii hexadecimales utilisées, et qui les convertis en caracteres pour les écrires dans un fichier txt.
mais je n'arrive pas a convertir les caracteres ascii hexa "D" et "A" (qui correspondent au retour chariot...

svp, help me !

cs_CanisLupus · Answer

Salut, 

Une 'fonction' simple permettant de traduire de l'h&#233;xa (jusqu'&#224; 8 caract&#232;res hexa) en d&#233;cimal existe

clng("&H" & "7FFFFFFF")  te renvoit 2147483647
clng("&H" & "D" te renvoit 13
clng("&H" & "A" te renvoit 10
etc...

Je te laisse adapter.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

Oups, correction :

clng("&H" & "D") te renvoit 13
clng("&H" & "A") te renvoit 10

Bien s&#249;r "7FFFFFFF", "D" et "A" peuvent &#234;tre contenues dans une variable texte et il n'y a pas de diff&#233;rence entre majuscule et minuscule.

dim s as string
s = "7fffffff"

clng("&H" & s) renverra aussi 2147483647

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

PCPT · Answer

CanisLupus -> en effet, cf mon premier post InvHex = Val("&H" & ValHex & "&") PCPT

Hexadécimale --> décimale, et inversement

11 réponses

Discussions similaires