bonsoir , j'ai ecris le bout de code suivant qui consiste à partir tableau à une dimension de type array contenant des "0" et des"1"
à dénombrer le nombre de cycles formés par des "1", chaque cycle de "1" de longueur k est encadré par au moins deux 0"
Sub cycles_de_1()
t = Array(0, 0, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0)
Do
k = 0
If t(i) = 1 Then
Do
k = k + 1
Loop Until t(i + k) <> 1
n = n + 1
w = w & " , " & k
i = i + k
Else
i = i + 1
End If
Loop Until i > UBound(t)
MsgBox n & " cycle(s) de 1 de longueurs :" & w
End Sub
mon code marche bien tand que je termine mon tableau par un "0" , en effet si je place un "1" à la fin de mon tableau
Loop Until t(i + k) <> 1
perd son sens . , c'est pas genant de ponctuer le tableau par un zero pour que ca tourne
mais existe t il une autre possibilité de faire sans quoi je garde cette astuce , Merci à vous .