J'ai crée une fonction vba qui a pour but de compter le nombre de a dans un mot. Seulement quand je l'applique j'obtient systématiqueement 0.
Pouvez vous m'aider
Voici la fonction:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Function Nb(Mot As String) As Integer
    Dim i As Integer
    Nb = 0
    For i = 1 To Len(Mot)
        If trouve(a, Mid(Mot, i, 1)) <> 0 Then
            Nb = Nb + 1
        End If
    Next i
    MsgBox "le nombre de a est " Nb