Nombre de lettre 3 fois consécutive

Bonjour,

Je cherche une formule pour compter le nombre de lettre 3 fois consécutive sur une plage nommée "azerty",ces lettres disons "z"sont en colonne.Si j'ai 2 lettres "z" cela ne compte rien / 3 "z" = 1 / 4 "z" = rien

Salut Killsa,

en supposant que ta colonne 'azerty' soit la colonne A...

A adapter à ta réalité!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Dim azerty, rCel As Range
Dim iRow, iFlag As Integer
'
iRow = Range("A" & Rows.Count).End(xlUp).Row
Set azerty = Range("A1:A" & iRow)
'
For Each rCel In azerty
    If rCel.Value Like ("zzz") Then iFlag = iFlag + 1
Next
MsgBox iFlag
'
End Sub

A+