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
C'est bien tout ça mais dans un zip cela aurai été encore mieux Si tu peut en mettre un je te remercie d'avance
pour ton bin2dec(nombre As Long), au lieu de mettre as long, prend plutôt une variable de type String, parce que le type long ne va permettre qu'un certain nombre de caractères, à savoir 10, si je ne me trompe.
Je ne suis pas sur mais je crois que le type long permet de mettre plus de 10 caractères c'est pas de - à 2 147 483 648 ??? Je ne sais plus mais je crois que c'est ça.
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte