Bonjour

Je souhaite trouver une fonction qui me rend un tableau de 16 bits quand je lui passe un integer

'Fonction de conversion d'entier en binaire
Public Function IntToBin(ByVal V As Long, Optional NbCarac As Byte = 16) As String
On Local Error GoTo Gestion_des_Erreurs
'***********************************************
'Déclaration
Dim I As Byte
Dim NewV As Long
'***********************************************
'Debut du Code
IntToBin = ""
NewV = V
For I = 1 To NbCarac
IntToBin = CStr(NewV Mod 2) & IntToBin
NewV = (NewV \ 2)
Next I
Exit Function
'*************************************************
'Gestion des Erreurs
Gestion_des_Erreurs:
Select Case Err.Number
Case Else
IntToBin = Empty
End Select
Exit Function
Resume
End Function

Letoiia