CONVERSION BINAIRE VERS DECIMAL / DECIMAL VERS BINAIRE

Public Function dec2bin(nombre As Long) As Long
i = 0: dec2bin = 0
Do While (nombre / 2 > 0)
    dec2bin = dec2bin + (nombre Mod 2) * (10 ^ i)
    nombre = Int(nombre / 2)
    i = i + 1
Loop
End Function

Public Function bin2dec(nombre As Long) As Long
i = 0: bin2dec = 0
Do While (nombre >= 1)
    bin2dec = bin2dec + (nombre Mod 10) * (2 ^ i)
    nombre = Int(nombre / 10)
    i = i + 1
Loop
End Function 

Télécharger le zip