Discussion :

[stanos38393]

Bonjour,

Dans le cadre d'un travail je dois réaliser un décoder 5b vers 31b thermométrique
Idéalement j'aimerai bien le faire sur excel.
Ce que je dois representé :



Idéalement le généralisé sur X bit,
par exemple 6b vers 63b etc.

Merci d'avance pour vos réponses !

[umfred]

en vba?
l'algo serait simplement, à partir du nombre de bits de départ n, on sait que l'on va avoir 2^n valeurs et le principe à rajouter un 1 par la gauche au nombre précédent et de convertir l'indice d'itération en binaire (pour SEL)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub Test()
Dim nb_bits As Integer, i As Integer, max As Integer
Dim val_sel As String
Dim val_out As String
 
nb_bits = Application.InputBox("nombre de bits:", Type:=1)
If nb_bits < 0 Then Exit Sub
max = 2 ^ nb_bits
Range("a:b").NumberFormat = "@" 'pour afficher d
For i = 0 To max - 1
    val_sel = Format(WorksheetFunction.Dec2Bin(i, nb_bits), String(nb_bits, "0"))
    val_out = String(max - 1 - i, "0") & String(i, "1")
    Cells(i + 2, 1).Value = val_sel 'cellule A(2+i)
    Cells(i + 2, 2).Value = val_out ' cellule B(2+i)
Next i
End Sub

[stanos38393]

en vba?
l'algo serait simplement, à partir du nombre de bits de départ n, on sait que l'on va avoir 2^n valeurs et le principe à rajouter un 1 par la gauche au nombre précédent et de convertir l'indice d'itération en binaire (pour SEL)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub Test()
Dim nb_bits As Integer, i As Integer, max As Integer
Dim val_sel As String
Dim val_out As String
 
nb_bits = Application.InputBox("nombre de bits:", Type:=1)
If nb_bits < 0 Then Exit Sub
max = 2 ^ nb_bits
Range("a:b").NumberFormat = "@" 'pour afficher d
For i = 0 To max - 1
    val_sel = Format(WorksheetFunction.Dec2Bin(i, nb_bits), String(nb_bits, "0"))
    val_out = String(max - 1 - i, "0") & String(i, "1")
    Cells(i + 2, 1).Value = val_sel 'cellule A(2+i)
    Cells(i + 2, 2).Value = val_out ' cellule B(2+i)
Next i
End Sub

Idéalement j'aimerai directement le faire sur EXCEL avec des commandes excel

[umfred]

tu as les fonctions DECBIN pour faire le travail de WorksheetFunction.Dec2Bin, et REPT pour un équivalent de la fonction String (répétition d'un caractère x fois) et je pense CELLULE("ligne"; [cellule]) pour gérer les indices
En A2, ça pourrai être la formule =DECBIN(CELLULE("ligne";A2)-2;$C$1) avec C1 contenant le nombre de bits
En B2, =CONCATENER(REPT("0";2^$C$1-CELLULE("ligne";B2)+1);REPT("1";CELLULE("ligne";B2)-2))formules à étendre aux lignes suivantes