leneuf22
Messages postés156Date d'inscriptionsamedi 12 janvier 2002StatutMembreDernière intervention 4 mars 2003
-
17 juil. 2003 à 10:27
tfares
Messages postés5Date d'inscriptionmardi 12 décembre 2000StatutMembreDernière intervention19 juin 2008
-
19 juin 2008 à 20:07
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
19 juin 2008 à 20:07
VOTRE COE MARCHE POUR LES DECIMAL MAIS POUR LES TYPE DOUBLE ILFAIT UN DEPASSEMENT DE CAPACITE YA T IL SOLUTION
5 avril 2005 à 11:47
4 avril 2005 à 12:15
Petite remarque qui m'a causé des pb : tu modifies les parametres 'Decimale' et 'Binary' transmis à la procedure...
tu devrais plutot en faire une copie et travailler sur la copie...
30 nov. 2004 à 21:40
Ca marche super bien... parfait
Merci
26 août 2004 à 10:02
leneuf22>Ton code ne marche pas pour des nombres trop élever.
chnickel>Ton code est parfait
17 juil. 2003 à 10:27
Juste histoire de te montrer un code un peu plus simple :
Dim nombre As Long, masque=1 As Long, resultat="" As String, i As Integer
nombre = CLng(InputBox("Nombre ?", "Entre un nombre", ""))
For i = 1 To 31
resultat = CStr(CBool(nombre And masque)*True) & resultat
masque = masque * 2
Next
MsgBox CStr(nombre) & " en décimal équivaut à " & vbCrLf & vbCrLf & resultat & vbCrLf & "en binaire."