Convertir des nombres flottants de décimal à binaire

[Roud9]

Bonjour,

J'essaie de convertir des nombres flottants de décimal à binaire sous excel, mais je n'y arrive pas. La fonction DEC2BIN ne convertit que la partie entière (DEC2BIN(15,25) va me donner 1111 au lieu de 1111,01) et je n'en ai pas trouvé d'autres qui me permettrait de faire ce que je veux.

Merci d'avance

[lenovo49]

Bonjour,

Il me semble quand deux étapes, c'est plus simple.
D'abord le nombre entier à travailler avec la formule excel
et ensuite une boucle sur l'autre partie.

Regardes si le résultat te convient sur une feuille vierge?
Résultat en A3.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub binaire()
 
'pour exemple 15.25
 
Dim valeur_cherchee1, valeur_cherchee2, resultat1, resultat2
Dim resultat As String
 
Range("A1").Value = 15
Range("B1").Select
ActiveCell.FormulaR1C1 = "=DEC2BIN(RC[-1])"
resultat1 = Range("B1").Value
 
 
Range("A2").Value = 0.25
valeur_cherchee2 = Range("A2").Value
a = valeur_cherchee2
 
recherche:
b = a * 2
If Len(b) <> 1 Then
resultat2 = resultat2 & Mid(b, 1, 1)
a = b
GoTo recherche
Else
resultat2 = resultat2 & b
End If
 
resultat = resultat1 & "." & resultat2
Range("A3").Value = Format(resultat, "@")
 
End Sub

Au plaisir...