Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Frédéric Sigonneau
Bonsoir,
Cette fonction signée Pierre Fauconnier (issue d'un échange sur ce forum) traite les nombres de 0 à 65535 :
Function Binaire(Nombre As Long) As String 'Pierre Fauconnier, mpfe '(avec la participation d'Yves Benisty) Dim Compteur As Integer, ite As Single
ite = Int(Log(Nombre) / Log(2)) Nombre = Abs(Nombre) For Compteur = ite To 0 Step -1 If Nombre Mod 2 ^ Compteur < Nombre Then Binaire = Binaire & "1" Nombre = Nombre - 2 ^ Compteur Else Binaire = Binaire & "0" End If Next Compteur
End Function
Tu peux sans doute l'adapter à ton besoin, ou t'en inspirer..
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
complément si je tape ÞCBIN(-512) ÞCBIN(-511) il me retourne les bonnes solutions Je voudrais avoir les chiffres supérieurs du genre 1000 Merci
Bonsoir,
Cette fonction signée Pierre Fauconnier (issue d'un échange sur ce forum) traite
les nombres de 0 à 65535 :
Function Binaire(Nombre As Long) As String
'Pierre Fauconnier, mpfe
'(avec la participation d'Yves Benisty)
Dim Compteur As Integer, ite As Single
ite = Int(Log(Nombre) / Log(2))
Nombre = Abs(Nombre)
For Compteur = ite To 0 Step -1
If Nombre Mod 2 ^ Compteur < Nombre Then
Binaire = Binaire & "1"
Nombre = Nombre - 2 ^ Compteur
Else
Binaire = Binaire & "0"
End If
Next Compteur
End Function
Tu peux sans doute l'adapter à ton besoin, ou t'en inspirer..
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
complément
si je tape ÞCBIN(-512)
ÞCBIN(-511)
il me retourne les bonnes solutions
Je voudrais avoir les chiffres supérieurs du genre 1000
Merci
Cette fonction signée Pierre Fauconnier (issue d'un échange sur ce forum) traite les nombres de 0 à 65535 :
Function Binaire(Nombre As Long) As String 'Pierre Fauconnier, mpfe '(avec la participation d'Yves Benisty) Dim Compteur As Integer, ite As Single
ite = Int(Log(Nombre) / Log(2)) Nombre = Abs(Nombre) For Compteur = ite To 0 Step -1 If Nombre Mod 2 ^ Compteur < Nombre Then Binaire = Binaire & "1" Nombre = Nombre - 2 ^ Compteur Else Binaire = Binaire & "0" End If Next Compteur
End Function
Tu peux sans doute l'adapter à ton besoin, ou t'en inspirer..
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
complément si je tape ÞCBIN(-512) ÞCBIN(-511) il me retourne les bonnes solutions Je voudrais avoir les chiffres supérieurs du genre 1000 Merci
