Conversion Décimal à binaire

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

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

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 :ccool: