Discussion :

[Chemou]

Bonjour tout le monde,

Je suis en train de faire un travail 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 ) que vous pourrez m'apporter.

[illight]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Chemou]

Merci pour ta réponse !

[jmfmarques]

Juste une question :
Ceci était idiot sans doute ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AlainTech]

Juste pour rire.
Il y a encore plus court.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jmfmarques]

non
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)

[illight]

Juste une question :
Ceci était idiot sans doute ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Je l'ai dit qu'il y avait plus simple mais j'aime bien faire mumuse avec les chaines de caractères

[jmfmarques]

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

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

bien sur