dim toto as string dim mydata as long mydata=1830381757 toto=mydata
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionschaine = Hex("1830381757") ' renvoie 6D1968BD ReDim sNombreEnGras(1 To Int(Len(schaine) / 2)) For nboucle = 1 To Len(schaine) sBuffer = Mid$(schaine, nboucle, 2) sNombreEnGras(nboucle) = CDec(sBuffer) Next nboucle
Function toString(nombre As Long) As String Dim tmp As Long toString = vbNullString While nombre > 0 tmp = nombre And 255 nombre = nombre \ 256 ' 1) en numérique toString = tmp & " " & toString ' 2) en caractères ' toString = Chr$(tmp) & " " & toString ' 3) en Hexa ' toString = Hex$(tmp) & " " & toString Wend End Function