Compter les utilisations d’un caractère dans une cellule

Retour vers Excel

Compter les utilisations d'un caractère dans une cellule

Résultat à obtenir

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

Cliquez ici pour télécharger le fichier exemple CompterCaracteres

FIN