Compter les doublons

Bonjour,

Quelqu'un aurait il la gentillesse de se pencher sur mon petit problème ? VBA ou "simple" formule tout me convient !

Je cherche à compter le nombre de doublons en fonction d'une valeur introduite par l'utilisateur.

Si l'utilisateur tape 5 : je dois rechercher dans un tableau les colonnes pour lesquelles il y a au moins une chaine de 5 valeurs identiques immédiatement consécutives l'une de l'autre.

Si l'utilisateur tape 3 : je dois rechercher dans un tableau les colonnes pour lesquelles il y a une chaine de 3 valeurs identiques immédiatement consécutives l'une de l'autre.

L'utilisateur ne peut introduire de valeurs que de 2 à 24. Si il introduit 2 .... les chaines de plus grandes longueurs doivent être mises en évidence.

Pour plus de clarté j'ai créé un exemple que vous trouverez ci joint.

Merci de votre aide.

bonjour

solution via une fonction personnalisée

Function checklongueur(lg, r As Range) As Boolean
    ctr = 0
    For Each c In r
        If pc = "" Then pc = c: ctr = 0
        If c = pc Then
            ctr = ctr + 1
            If ctr >= lg Then checklongueur = True: Exit Function
        Else
            pc = c
            ctr = 1
        End If

    Next
    checklongueur = False
End Function

C'est juste EXCELLENT !

Un très grand merci pour la réponse ! Et très rapide de surcroit !!

Bonne journée !

Rechercher des sujets similaires à "compter doublons"