Rechercher une suite de nombres binaires.

[JJ1]

Bonjour à tous,
Je recherche une formule me permettant de trouver une suite binaire (0 et 1) de 4 à 8 chiffres se répétant un maximum de fois dans une colonne.
Je mets un exemple avec 400 valeurs (résultats mis sont des exemples).
Merci de votre aide et bon dimanche.

 

[JNP]

Re : Rechercher une suite de nombres binaires.

Bonjour JJ1 🙂,
Voit si ça te convient.
Bon dimanche 😎

 

[ROGER2327]

Re : Rechercher une suite de nombres binaires.

Bonjour JJ1, JNP

Une autre proposition (plus rapide) :

[COLOR="DarkSlateGray"]Function nbsuite(r As Range, u As Range) As Long
Dim i As Long, l As Long, x As String, s As String, oCel As Range, oDat
   Application.Volatile
   For Each oCel In r.Cells
      s = s & IIf(IsEmpty(oCel.Value), "#", oCel.Value)
   Next oCel
   l = Len(s)
   oDat = u.Value
   For i = 1 To UBound(oDat, 1)
      x = Right$(x & oDat(i, 1), l)
      If x = s Then nbsuite = 1 + nbsuite
   Next i
End Function[/COLOR]

Syntaxe :

=nbsuite("Plage recherchée";"Plage de recherche")​

ROGER2327
#1899