convertir decimal a hexadecimal

Version imprimable

bonjours a tous, j'ai un petit probleme...je voudrais savoir si c'est possible d'ajouter des espaces....

Example:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 'SiteID1 meh = siteidz.Text bleh = Hex(Val(meh)) If Len(bleh) = "3" Then bleh = "0" & bleh lft = Left(bleh, 2) rgt = Right(bleh, Len(bleh) - 2) bleh = lft & " " & rgt siteid = bleh Pos = 1 While Pos <= Len(siteid) CurChar = Mid(siteid, Pos, 2) If siteid = "" Then SiteID2 = Chr(CLng("&H" & CurChar)) Else SiteID2 = SiteID2 & Chr(CLng("&H" & CurChar)) End If Pos = Pos + 3 Wend
ce code marche tres bien (pour les petite conversions) mais comment pourrais-je ajouter plus q'un n'espace dans une plus grosse conversion??
ou simplement ajouter un espace tous les 2 chiffres

merci d'avance.

Essaye cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function AjoutSpace(Entree As String) As String
    Dim Temp As String
    Dim Boucle As Integer
    Temp = ""
    For Boucle = Len(Entree) To 1 Step -2
 
    If Boucle = 1 Then
        Temp = " " & Mid(Entree, Boucle, 1) & Temp
    Else
        Temp = " " & Mid(Entree, Boucle - 1, 2) & Temp
    End If
 
    Next Boucle
    AjoutSpace = Temp
End Function

Si tu met "FE0" en parametre elle te renverra "F E0"
Si tu met "08FFAB" en parametre elle te renverra "08 FF AB" ;)

05/08/2006, 09h59
Micheal1221

merci beacoup :D cela as fonctionné tres bien! desolé du retard de ma reponse
05/08/2006, 13h55
sovo

n'oubli donc pas le tag [RESOLU].
05/08/2006, 15h12
Micheal1221

lol....et voila je ne l'oublirais 'donc' plus