Salut!
j'aimerai apres avoir éclaté un code binaire dans un tableau, récuperer les index pour lequels la valeur dans le tableau est 1!!
par exemple si j'ai 0 1 0 1,je voudrais récupérer les valeurs 1 et 3car il y a un 1 pour l'index 1 et un autre 1 pour l'index 3.
mes tentatives dans se sens font que je n'obtient qu'une valeur car les autres sont écrasées je suppose.
voyez plutot:
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
 'recuperation des index pour la valeur tb(i)=1
        Dim tb(3) As String
        tb(0) = 0
        tb(1) = 1
        tb(2) = 0
        tb(3) = 1
 
        Dim tbx(3) As Integer
        For i = 0 To 3
            For j = 0 To 3
                If tb(i) = 1 Then
                    tbx(j) = i
                    TextBox1.Text = tbx(j)
                End If
            Next
        Next