Dans l’exemple suivant, l’apparence d’un certain caractère dans un marquage est déterminée. Saisissez le caractère souhaité à compter dans un masque de saisie.

Sub Compterlescaracteresspecifiques()

Dim range As range

Dim cell As Object

Dim i As Integer

Dim i2 As Integer

Dim s As String

  Sheets ("Feuil7") Activate

  Set area = Selection

  i = 0

  s = InputBox _

  ("Entrez le caractère que vous souhaitez compter ")

  If s = "" Then Exit Sub

     For Each Cell In Area

        i2 = InStr (1, cell.value, s)

        While i2 <> 0

          i = i + 1

          i2 = InStr (i2 + 1, cell.Value, s)

        Wend

     Next cell

  MsgBox " Le caractère "& s &" est apparu dans la zone " _

  & Selection.Adresse & "exactement" & i & "fois!"

End Sub