Bonjour,
Voila, j'ai une liste de chiffre se présentant sous cette forme (à x ligne et 6 colonnes)
122 222 77 0 0 55
222 88 3 0 0 0 0
0 4 4 4 33 3 99
4 0 55 33 88 0 0 ...

Chaque ligne représente 1h donc une colonne représente 10 min (6 colonnes)

Je souhaiterai répertorier le nombre de 0 (correspondant à un arrêt) inférieur à 10min (cad au minimum deux zéro qui se suivent) , à 1h (cad au minimum 6 zéro qui se suivent) et supérieur à 1h.

J'ai commencé une macro, mais je pense ne pas être sur la bonne voie :
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
18
19
20
21
22
23
24
25
26
Sub Macro1()
Dim DD As String
Dim rr As String
Dim m As Long
Dim i As Variant, p As Variant, j As Variant, u As Variant, q As Variant
For p = 0 To 774
For i = 0 To 6
    With Feuil1
    rr = .Range("D5").Offset(i, p).Text
    If rr = "" Then Exit Sub
    If i = 6 Then p = p + 1 And i = 0
      If rr = 0 And rr = .Range("D4").Offset(i + 1, p).Text Then
       m = m + 1
       Else
       Feuil18.Range("K & i").Value = m
 
End If
 
 
MsgBox (m)
 
End With
 
Next
Next
End Sub
Si vous avez des idées

D'avance Merci

azsdcv