comptage d'une lettre précise dans textbox

Question

Bonjour !!

Je souhaiterais compter le nombre de fois où un charactére apparait :

par exemple j'ai une chaine :

sdssdsdsdddsdsdsdsdd
sdsdsdsdd

je voudrais connaître le nombre de fois où se repete la lettre s .

Y a t-il une fonction qui fait se comptage ???

Makabey · Answer

Il te faut un code semblable à ceci:


Public Function Compter(InChaine As String, InChar1 As String) As Long
  Dim Pos As Integer
 
  Compter = 0
  InChar1 = Left$(InChar1, 1)
  Pos = 0
  Do
    Pos = InStr(Pos + 1, InChaine, InChar1)
    If (Pos > 0) Then
        Compter = Compter + 1
      'Else
    End If
  Loop Until Pos = 0
End Function

Comptage d'une lettre précise dans textbox

1 réponse

Discussions similaires