Conversion Décimal à binaire [Résolu]

[spitou_77]

Bonsoir,

Dans une feuille excel, j'ai besoin de convertir des nombres en binaire.

J'utilises pour ce faire le code trouvé dans la partie tutorial

Cela fonctionne super bien hormis un petit bug avec le nombre 128 qui est converti en 0000000 au lieu de 10000000.

Y aurait-il moyen d'avoir un coup de main pour la correction de ce bug?

Merci d'avance
Bonne soirée

[mercatog]

Si est nombres sont <= 511, tu peux utiliser la fonction d'Excel DECBIN
Sinon, ci-joint fonction personnalisée à mettre dans un module standard

Code :

1
2
3
4
5
6
7
8
9
Function DecToBin(ByVal T As Long) As String
Dim S As String
 
Do While T > 1
    S = T - 2 * (T \ 2) & S
    T = T \ 2
Loop
DecToBin = T & S
End Function

Le résultat est sous forme texte

[spitou_77]

Un tout grand merci.

Cela fonctionne nickel et cela remplace de manière beaucoup plus élégante le code que j'avais écrit pour éviter le bug:

tester si le nombre à convertir est égal à 128 alors affection de la valeur "10000000"
sinon
conversion via la fonction decimaltobinaire du tutorial.

Encore merci
bonne journée