Fonction pour trouver un carac. dans chaine

J

JPM

Guest

• 23 Février 2005

• #2

Bonjour à tous,

Je propose cette petite fonction :

Code:

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 :

Code:

Option Compare Text

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

Bonne journée

Jean-Pierre

 

Vote positif 0 Vote négatif

A

andré

Guest

• 23 Février 2005

• #3

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é.

 

Vote positif 0 Vote négatif

A

andré

Guest

• 23 Février 2005

• #4

Salut JPM !

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

Ândré.

 

Vote positif 0 Vote négatif

B

berni85

Guest

• 23 Février 2005

• #5

Merci a tous je vais voir !!!!

Bonne fin de journée !!!!

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 23 Février 2005

• #6

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';''))

 

Vote positif 0 Vote négatif