Compter les utilisations d'un caractère dans une cellule
Résultat à obtenir
![](http://bipbipcoyote2000.be/wp-content/uploads/2020/03/Resultat-1.jpg)
Pour cela, nous développons un module avec le code
Function CompterCaracteres(Selection, Car)
Dim Compteur, i As Integer, Comparaison As String
For i = 1 To Len(Selection)
Comparaison = Mid(Selection, i, 1)
If UCase(Comparaison) = UCase(Car) Then
Compteur = Compteur + 1
End If
Next
CompterCaracteres = Compteur
End Function
On retrouve notre petite fonction en cliquant sur Fx
![](http://bipbipcoyote2000.be/wp-content/uploads/2020/03/Fonction.jpg)
Cliquez ici pour télécharger le fichier exemple CompterCaracteres