Magic_Doctor
XLDnaute Barbatruc
Compte le nombre de fois où un caractère (lettre | chiffre) apparaît dans une cellule ou une plage.
VB:
Function CountCharacter(InRange As Range, S As String) As Long
'Compte le nombre de fois où un caractère (lettre | chiffre) apparaît dans une cellule ou une plage
'- InRange : une cellule qui contient une chaîne de caractères
'- S : le caractère que l'on recherche dans la chaîne
'Chip Pearson
Dim Rng As Range
For Each Rng In InRange
CountCharacter = CountCharacter + Len(Rng.Text) - Len(Application.Substitute(UCase(Rng.Text), UCase(S), ""))
Next Rng
End Function