VBA - Conversion décimal en Binaire

Question

Bonjour,
Je souhaite convertir un nombre de base 10 à base 2 sur VBA Excel sans utiliser la fonction Mod et les puissances. J'ai ainsi réaliser cette fonction qui ne marche pas malheureusement. Lorsque je la lance elle affiche systématiquement une liste de 1. Comment pourrez t-elle fonctionner sans trop la changer ? 

Function convertisseur10a2(valeur As Long) As String
Dim S, F As Long
Dim base, NewBase As String
base = ""
S = valeur
F = valeur
While F > 1
F = F / 2
S = S / 2 - 0.1
If F = S Then
NewBase = 0
Else
NewBase = 1
End If
base = NewBase & base
F = S
Wend
convertisseur10a2 = "1" & base

Merci beaucoup d'avoir prit le temps d'y répondre 

PS : Je suis débutant donc pourriez vous me  proposer des réponses sans fonctions complexes.

      EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI 

Merci d'y penser dans tes prochains messages.

NHenry · Answer

S = S / 2 - 0.1
S étant un long et 0.1 un flottant, si on part à S=10 
S/2=5
5-0.1=4.9
Et remettre dans S fait une troncature donc S=4
5<>4 dont ça te met 1

Essayes plutôt un truc du genre :
S=F/2
If S*2=F Then
REM 0
Else
Rem 1
End If
F=S

Et pour la boucle, même si While/Wend ça fonctionne encore, on lui préfère Do While/Loop.

Julien87 · Answer

J'ai essayé de faire comme vous m'avez montré mais la fonction affiche uniquement un 1. 
J'ai donc sinon pensé à l'écrire de la façon ci dessous, sans le 0,1 mais cela me donne des nombres incohérents : pour 518 cela me donne 1000001000 au lieu de 1000000110


Function convertisseur10a2(valeur As Long) As String
Dim S As Long
Dim base, newbase As String
base = ""

Do While valeur > 1
S = (valeur - 1) / 2
valeur = valeur / 2

If valeur = S Then
newbase = "1"
valeur = S

Else
newbase = "0"
End If

base = newbase & base

Loop
convertisseur10a2 = "1" & base

End Function

Julien87 · Answer

Merci d'avoir prit le temps de répondre à mon problème,  j'ai donc modifié mon code avec votre exemple et même en mettant pas à pas, je ne comprend pas pourquoi il ne marche toujours pas. Il me donne des valeurs qui ne sont malheureusement pas exacts : 

pour 401, par exemple, je trouve : 1010010001 au lieu de 110010001

Voici la modification : 

Function convertisseur10a2(valeur As Long) As String
Dim S As Long
Dim base, newbase As String
base = ""

While valeur > 1
S = valeur / 2
If valeur = S * 2 Then
newbase = "0"

Else
newbase = "1"
End If
base = newbase & base
valeur = S

Wend
convertisseur10a2 = "1" & base
End Function

     EDIT : Ajout du LANGAGE dans les balises de code (la coloration syntaxique).
Explications disponibles ici : ICI 

Merci d'y penser dans tes prochains messages.

NHenry · Answer

J'obtiens "110010001" pour 401 sur les macros de LibreOffice avec ce code :

Sub Main
	dim lStr as string
	lStr=convertisseur10a2(401)
	lStr=lStr
End Sub

Function convertisseur10a2(ByVal pValeur As Long) As String
	Dim lInt As Long
	Dim lBase as String, lNewBase As String
	lBase = ""
	
	While pValeur > 1
		lInt = int(pValeur / 2)
		If pValeur = lInt * 2 Then
			lNewBase = "0"
		Else
			lNewBase = "1"
		End If
		lBase = lNewBase & lBase
		pValeur = lInt
	Wend
	convertisseur10a2 = "1" & lBase
End Function

J'ai renommé les variables pour les rendre un peu plus clair.
J'ai forcé le ByVal
J'ai forcé le type de lBase
J'ai ajouté le "int" sur la division car l'interpréteur Basic de LO faisait l'arrondi au lieu de la troncature
J'ai aussi indenté le code pour le rendre plus lisible

Julien87 · Answer

D'accord super merci, le code marche bien. 

J'aurais juste une dernière question.

Je ne comprend pas vraiment à quoi sert le ByVal ?

VBA - Conversion décimal en Binaire

5 réponses

Discussions similaires

Newsletters