PB Fonction VBA

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:

---

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

---

Bonjour,

joli ... et qu'est donc la fonction trouve ? (il faut deviner son code et le type qu'elle retourne ? 8O

En fait la fonction trouve est une fonction excel qui permet de chercher la position d'une lettre dans un mot. Ici le but pour i=1 est de cherche en fait la position de a dans la premiere lettre du mot (du coup si il y a un a alors sera <> de 0). Si pas de a = 0; pareil pour i=2,... Donc on a bien le nombre de a du mot.

Seulement trouve est ne fonction excel donc apparement il faut l'appeler (je ne sais pas ce que cela veut dire, c'est ce que le prof a dit)

Bon...
Allez ! On va faire à la fois le clown :lefou: et chausser la fainéantise de ceux dont mon sang est un peu composé (les corses :oops:) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CommandButton1_Click() Dim toto As String, car As String toto = "abcacxoa22a" car = "a" MsgBox comptecar(toto, car) End Sub Private Function comptecar(ByVal c As String, quoi As String) As Integer Dim clown As String clown = Replace(c, quoi, "") comptecar = Len(c) - Len(clown) End Function

---

PS : et je ne veux pas entendre ici parler de profs ! Tu exposes un problème ==>> tu as une solution... Elle n'est pas celle qu'attend ton prof ? ===>> c'est entre toi et lui, alors (de même que la note qu'il t'octroiera ;)).
Ici : on trouve une solution (il y en a d'autres... plein d'autres...) et c'est tout.

Merci pour cette reponse, seulement le seul inconvénient est que le travail est de traduire l'algorithme suivant en vba (ce qui m'empeche de passer par une fonction differente) :

ex 11 : ecrivez une fonction qui renvoie le nombre de voyelles (j'avais simplifié pour le moment en renvoyant que les a car je n'y arrivai pas) contenues dans une chaine de caractères passée en argument. Au passage notez qu'une fonction peut tout a fait appeler une autre fonction.
Algorithme :

Citation:

---

fonction Nbvoyelles (mot en caractere)
variables i, nb en numérique
pour i=1 à len(mot)
si Trouve("aeiouy", Mid(Mot, i , 1))<>0 Alors
Nb = Nb+1
Fin si
i suivant
renvoyer nb
fin fonction

---

Voila Merci

Solution apportée par ucfoutu, on ne fait pas les devoirs, merci d'en prendre note our l'avenir.