Re : Rechercher une séquence dans un tableau excel
Bonjour
J'ai récupéré votre macro pour l 'adapter à un besoin similaire. J' ai joint un fichier. Je cherche à avoir un total de séquences identique par ligne . J' y suis presque arrivé. Mais je dois modifier le numéro de ligne pour pour chaque ligne dans la cellule AN9. J' essaye de créer une boucle supplémentaire pour régler le problème mais je n'y arrive pas . J'ai bug sur bug.
voici mon code. Après les apostrophes mon dernier essai de boucle.
Sub SearchSequence()
Dim Derlig As Integer, Tablo, Seq, Temp, i As Integer, j As Byte, k As Byte, l As Byte, N As Byte, Z As Byte, X As Integer, nv As Variant, nu As Variant
Application.ScreenUpdating = False
With Sheets("planning")
Derlig = .Range("A200").End(xlUp).Row
'For l = 1 To 20
'nu = l
nu = Range("AN9").Value
nv = Range("AM" & nu).Value
Tablo = Range(nv).Value
Range("AK9:AK200").ClearContents
Derlig = Range("AK200").End(xlUp).Row
Seq = Range("AK2:AK" & Derlig)
N = UBound(Seq, 1)
For i = 1 To UBound(Tablo, 1)
For j = 1 To UBound(Tablo, 2)
If Tablo(i, j) = Seq(1, 1) And j + N - 2 < UBound(Tablo, 2) Then
Z = 0
For k = j To j + N - 1
If Tablo(i, k) = Seq(k - j + 1, 1) Then
Z = Z + 1
Else
j = k - 1
Exit For
End If
Next k
If Z = N Then
X = X + 1
Range("AK" & i + nu - 1) = X
j = k - 1
End If
End If
Next j
Next i
' Next l
End With
End Sub
Si le post n'est pas trop ancien pour que quelqu'un me donne un coup de main.
merci .