Conversion hex/dec en vb

google est ton ami ... demande lui donc

la boucle est bouclée ;o))
«Ce que l'on conçoit bien s'énonce clairement, Et les mots p­our le dire arrivent aisément.» 
Nicolas Boileau

Polux31, tu es une merde.
Ce genre de réponses n'apportent rien et ne sont que le reflet de ta pitoyable intelligence.
Va mourir.


Voici les fonctions que j'utilise :

Function hexadecimal_en_decimal(chaine_hexa)
resultat = 0
For i = Len(chaine_hexa) To 1 Step -1 ' Depuis i = longueur chaine à i = 1
longueur = Mid(chaine_hexa, i, 1) ' renvoit le (1) caractère à partir de la position i de la chaine (on commence donc par la fin)
position = Instr("0123456789ABCDEF", UCase(longueur))-1 ' On prend milieu, on met en majuscule au cas où on aurait écrit abcdef au lieu de ABCDEF,
' On met dans position la position du 1er caractère de milieu dans 0123456789ABCDEF et on retire 1 => on a converti de l'hexa en dec
If position >= 0 Then
valeur = position * (16 ^ (Len(chaine_hexa)-i)) ' Formule de maths de conversion
resultat = resultat + valeur
Else
resultat = 0
i = 0 ' Fin de la boucle en cas d'erreur
End If
Next
hexadecimal_en_decimal = resultat
End Function

Function decimal_en_hexadecimal(chaine_dec)
Do While chaine_dec > 0
chaine_dec_tmp = Int(chaine_dec/16)
If chaine_dec - (chaine_dec_tmp * 16) = 10 Then
caractere_hexa = "A"
Else If chaine_dec - (chaine_dec_tmp * 16) = 11 Then
caractere_hexa = "B"
Else If chaine_dec - (chaine_dec_tmp * 16) = 12 Then
caractere_hexa = "C"
Else If chaine_dec - (chaine_dec_tmp * 16) = 13 Then
caractere_hexa = "D"
Else If chaine_dec - (chaine_dec_tmp * 16) = 14 Then
caractere_hexa = "E"
Else If chaine_dec - (chaine_dec_tmp * 16) = 15 Then
caractere_hexa = "F"
Else
caractere_hexa = chaine_dec - (chaine_dec_tmp * 16)
End If
End If
End If
End If
End If
End If
decimal_en_hexadecimal = caractere_hexa & decimal_en_hexadecimal
chaine_dec = chaine_dec_tmp
caractere_hexa = ""
Loop
End Function

wscript.echo "FFFF ça fait : " & hexadecimal_en_decimal("FFFF")
wscript.echo "65535 ça fait : " & decimal_en_hexadecimal("65535")

MDRRR x100 ... c'est fort ... trop fort ...

Un mois pour sortir une c********e ... c'est pas ce qui est demandé .... et pour info, toi qui est si intelligent, et comme c'est mon jour de bonté (aujourd'hui j'instruis les ânes ...) pour convertir de décimale en hex, la fonction hex() le fait très bien ...

Prend des notes, je répéterai pas ... ok ...

Pour Hexa/Bin :

Function CONVHEXABIN(ByVal str As String) As String
'conversion hexadecimal en binaire
LONGUEUR = Len(str): H = 1
While H < LONGUEUR + 1
RES = Mid(str, H, 1)
If RES = "0" Then RES1 = "0000"
If RES = "1" Then RES1 = "0001"
If RES = "2" Then RES1 = "0010"
If RES = "3" Then RES1 = "0011"
If RES = "4" Then RES1 = "0100"
If RES = "5" Then RES1 = "0101"
If RES = "6" Then RES1 = "0110"
If RES = "7" Then RES1 = "0111"
If RES = "8" Then RES1 = "1000"
If RES = "9" Then RES1 = "1001"
If RES = "A" Then RES1 = "1010"
If RES = "B" Then RES1 = "1011"
If RES = "C" Then RES1 = "1100"
If RES = "D" Then RES1 = "1101"
If RES = "E" Then RES1 = "1110"
If RES = "F" Then RES1 = "1111"
CONVHEXABIN =CONVHEXABIN  & RES1
H = H + 1
RES1 = ""
Wend
End Function

Bin/DEC

Function CONVBINDEC(ByVal Str Variant) As Variant
'conversion binaire en décimal
LONGUEUR = Len(str): H = 1
HH = Val(LONGUEUR)
RES2 = 2 ^ (LONGUEUR - 1)
While HH > 0
RES = Mid(str, H, 1)
If RES = "1" Then RES1 = RES1 + RES2
RES2 = RES2 / 2
HH = HH - 1
H = H + 1
Wend
CONVBINDEC = RES1
End Sub

Et comme tu es super intelligent, je te laisse trouver comment faire pour hexa/dec ... «Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.» 
Nicolas Boileau