Fonction qui permet de compter le nombre d'occurrence d'un caractère particulier

chine38 Messages postés 3 Date d'inscription mardi 26 avril 2011 Statut Membre Dernière intervention 27 avril 2011 - 26 avril 2011 à 22:07
cs_ShayW Messages postés 3258 Date d'inscription jeudi 26 novembre 2009 Statut Membre Dernière intervention 3 décembre 2019 - 27 avril 2011 à 14:54
Bonsoir,

Je cherche à créer une fonction qui me permettra de compter le nombre d'occurrence d'un caractère particulier ("a" par exemple) dans une chaîne quelconque.
J'ai essayé avec cette "fonction" mais aucune valeur ne remonte (si toujours 0 !!!).
Merci de votre aide.


Function renvoie(s As String)
Dim i As Integer
Dim resultat As Integer

resultat = 0
For i = 1 To Len(s)
If Mid(s, i, 1) = a Then
resultat = resultat + 1
End If
Next
End Function

Sub test_renvoie()
Dim s As String ' chaîne de test, donnée par l'utilisateur
Dim nb_de_a As Integer ' nb de a dans s
Dim test As Integer

s = InputBox("Texte ?")
test = renvoie(s)
MsgBox ("nb_de_a = " & test)
End Sub
A voir également:

14 réponses

Calade Messages postés 1207 Date d'inscription dimanche 20 avril 2003 Statut Membre Dernière intervention 4 juin 2016 10
27 avril 2011 à 12:59
Bonjour à tous et désolé de m'immiscer dans la discussion,

à propos du $ pour les fonctions de chaînes, non seulement VB renvoi une chaîne comme le dit Cheyenne, mais en plus il ne perd pas de temps à déterminer le type en entrée, il attend une chaîne et si ce n'en est pas une, il râle.

TOUJOURS, le mettre MEME si c'est facultatif.


Calade
2