[VBA-E]Inversion d'un nombre binaire

Version imprimable

03/05/2006, 11h33
Chemou

[VBA-E]Inversion d'un nombre binaire

Bonjour tout le monde,

Je suis en train de faire un travail :roll: en VBA pour Excel.

Je suis à la recherche d'un moyen me permettant de convertir les "0" d'un nombre contenu dans une cellule de format Standard en "1" et vice-versa.

Exemples :
00000000 ----> 11111111
00000001 ----> 11111110
10101010 ----> 01010101

Je vous remercie d'avance pour les réponses (que j'espère très nombreuses :mouarf:) que vous pourrez m'apporter.

Tiens une tite fonction que j'avais fait justement la dessus (il y a surement moyen de la simplifier hein :mrgreen: ):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function inversionBinary(t as string) as string
Dim i As Integer
Dim s As String
For i = 1 To Len(t)
    s = Mid(t, i, 1)
    If s = 0 Then
        s = 1
    Else
        s = 0
    End If
    inversionBinary = inversionBinary & s
Next i
'MsgBox (inversionBinary)
End Sub

03/05/2006, 12h51
Chemou

Merci pour ta réponse ! :king:

Juste une question :
Ceci était idiot sans doute ?

Code:

1
2
3
4
5
 
Private Sub Command1_Click()
  a = "00100001"
  MsgBox Format(11111111 - Val(a), "00000000") & " " & a
End Sub

:salut:

04/05/2006, 00h06
AlainTech

Juste pour rire.
Il y a encore plus court.

Code:

MsgBox Format(11111111 - Val(a), "00000000 ") & a

:mouarf:
04/05/2006, 07h24
jmfmarques

non :lol:
le & " " & a n'était là que pour mettre de voir l'original en même temps que le résultat (permettre de vérifier en séparant par un espace);)
04/05/2006, 07h47
illight
Citation:
Envoyé par jmfmarques

Juste une question :
Ceci était idiot sans doute ?

Code:

1 2 3 4 5 Private Sub Command1_Click() a = "00100001" MsgBox Format(11111111 - Val(a), "00000000") & " " & a End Sub

:salut:
Je l'ai dit qu'il y avait plus simple :mrgreen: mais j'aime bien faire mumuse avec les chaines de caractères :marteau:
04/05/2006, 08h10
jmfmarques

Bonjour,
et, quelle que soit la longueur de a :

Citation:

MsgBox Format(Val(String(Len(a), "1")) - Val(a), String(Len(a), "0")) & " " & a

bien sur
04/05/2006, 08h31
AlainTech

Citation:

Envoyé par jmfmarques

non :lol:
le & " " & a n'était là que pour mettre de voir l'original en même temps que le résultat (permettre de vérifier en séparant par un espace);)

SI...

J'ai mis l'espace dans le format :)
04/05/2006, 08h36
jmfmarques

Citation:

J'ai mis l'espace dans le format :)

je n'avais pas vu ce coup-là !
Tu m'a roulé dans la farine de bon matin :lol: