Caractère suivi dans une chaîne de caractères

Bonjour à tous,

J'ai une fonction nommée SUIVI (voir ci-après) qui permet de renvoyer le nombre maximum de répétitions consécutives d'un caractère dans une chaîne de caractères, sous la forme :

SUIVI ( chaîne de caractères ; caractère recherché )

Par exemple, SUIVI ( "10111100011" ; "1" ) = 4 car le nombre maximum de "1" consécutifs dans la chaîne de caractères "10111100011" est 4.

Cette fonction fonctionne très bien... sauf dans le cas où la chaîne de caractères est composée uniquement du caractère recherché.

Par exemple SUIVI ("11111" ; "1") renvoie le résultat 0. Or, je souhaiterais que dans ce cas la fonction renvoie 5 et pas 0 comme c'est le cas actuellement.

Voici la fonction :

Function SUIVI(txt, lettre)
For i = 1 To Len(txt)
Var = InStr(1, txt, Application.Rept(lettre, i))
If Var = 0 Then
SUIVI = i - 1
Exit For
End If
Next
End Function

Que dois-je modifier ? Si quelqu'un a une idée, je l'en remercie par avance.

bonjour,

une proposition

Function SUIVI(txt, lettre)
    For i = 1 To Len(txt)
        Var = InStr(1, txt, String(i, lettre))
        If Var = 0 Then Exit For
    Next
    SUIVI = i - 1
End Function

Merci pour ton aide h2so4 et ta proposition mais maintenant c'est pire que précédemment. La fonction renvoie 0 dans tous les cas.

Bonsoir,

La fonction renvoie 0 dans tous les cas.

en effet, , c'est corrigé, voir ci-dessus.

C'est beaucoup mieux comme ça. Merci beaucoup.