transforme en hex puis identifie chaque car par l'association binaire et mets ensuite tes trois chaines bout à bout.
ou mieux créé un tableau qui te ressort du texte en fct de l'indice.
genre ce qui suit (la table est créée qu'une seule fois):
Dim Table(16) As String
Private Sub Command1_Click()
entier_a_convertir = 511
txt = Hex(entier_a_convertir)
Select Case (Len(txt))
Case 1
chiffre_converti = "00000" + Table(CInt("&h" + txt))
Case 2
chiffre_converti = "0" + Table(CInt("&h" + Mid(txt, 1, 1))) + Table(CInt("&h" + Mid(txt, 2, 1)))
Case 3
chiffre_converti = "1" + Table(CInt("&h" + Mid(txt, 2, 1))) + Table(CInt("&h" + Mid(txt, 3, 1)))
End Select
End Sub
Private Sub Form_Load()
Table(0) = "0000"
Table(1) = "0001"
Table(2) = "0010"
Table(3) = "0011"
Table(4) = "0100"
Table(5) = "0101"
Table(6) = "0110"
Table(7) = "0111"
Table(8) = "1000"
Table(9) = "1001"
Table(10) = "1010"
Table(11) = "1011"
Table(12) = "1100"
Table(13) = "1101"
Table(14) = "1110"
Table(15) = "1111"
End Sub