Re : Compter le nb de valeurs consécutives
bonjour Njars,
colles ce code dans un module VBA
Function CL(Lt As String, C As Range) As Integer
Application.Volatile
Dim l As Integer, i, j, total As Integer, index, result
total = 0
index = 0
l = Len(C.Value)
For i = 1 To l
If Mid(C, i, 1) = Lt Then
total = total + 1
Else
If total > result Then result = total
total = 0
End If
Next i
CL = result
End Function
et dans une cellule à droite (ou ailleurs) de ta cellule contenant ton texte, tu mets :
=CL("C";LaCelluleQuiContientMonTexte)