Bonjour à tous,
Le même en automatique.
Le tableau doit absolument commencer en L5
Tu copies / colles tes données en A et tu cliques sur le GO
A+ à tous
Édition : il manquait les $ "qui vont bien"
Function CITE(num$, place As Byte)
Dim cel As Range, txt$
For Each cel In [plage] 'plage nommée
If cel <> "" Then
txt = Replace(cel, ":", "-")
If Trim(Split(txt, "-")(place)) = num Then CITE = CITE + 1
End If
Next
End Function
Function CITE(num$, place As Byte)
Dim cel As Range, txt$
For Each cel In [plage] 'plage nommée
If cel <> "" Then
txt = Replace(cel, ":", "-")
If Split(txt, [COLOR="Red"]" - "[/COLOR])(place) = num Then CITE = CITE + 1
End If
Next
End Function
Function CITE(num$, place As Byte)
Dim cel As Range, txt$
place = place - 1
For Each cel In [plage] 'plage nommée
If cel <> "" Then
[COLOR="Red"]txt = Split(cel, ":")(1)[/COLOR]
If Trim(Split(txt, [COLOR="red"]"-"[/COLOR])(place)) = num Then CITE = CITE + 1
End If
Next
End Function
Il me semble qu'une fonction, personnalisée ou native, reste du VBA...