Commande excel

Version imprimable

11/07/2023, 11h31
stanos38393

1 pièce(s) jointe(s)

Commande excel

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é :
Pièce jointe 641248

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

Merci d'avance pour vos réponses !

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:

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

Citation:
Envoyé par 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:

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

12/07/2023, 18h51
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