Fonction pour trouver un carac. dans chaine

[berni85]

Bonjours a tous !

Je cherche une fonction qui donne le nombre de caractère comme 'a' ou 'A' dans une cellules avec du texte.

Pourriez vous m'aidez svp !

Merci et bonne fin de journée !!!

 

[JPM]

Bonjour à tous,

Je propose cette petite fonction :

Function NBCARDANSCHAINE(Cel As Range, Car As String) As Integer
  Dim i As Integer
  Dim cpt As Integer
  cpt = 0
  For i = 1 To Len(Cel.Value)
    If Mid(Cel.Value, i, 1) = Left(Car, 1) Then
      cpt = cpt + 1
    End If
  Next
  NBCARDANSCHAINE = cpt
End Function

il est possible de rajouter au début du module la ligne :

Option Compare Text

pour ne pas faire la différence entre les majuscules/minuscules.

Bonne journée

Jean-Pierre

 

[andré]

Salut,

Le texte en A1
Le caractère recherché : a

=NBCAR(A1)-NBCAR(SUBSTITUE(A1;'a';''))

te renverras le nombre de 'a' en A1.

Ândré.

 

[andré]

Salut JPM !

Et voilà deux solutions pour le même prix.

Ândré.

 

[berni85]

Merci a tous je vais voir !!!!

Bonne fin de journée !!!!

 

[Monique]

Bonjour,

Si tu as un mélange majuscules et minuscules, au choix :
=NBCAR(A1)-NBCAR(SUBSTITUE(MINUSCULE(A1);'a';''))
=NBCAR(A1)-NBCAR(SUBSTITUE(MAJUSCULE(A1);'A';''))