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

Question

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

Calade · Accepted Answer

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

cs_ShayW · Answer

Salut

If Mid(s, i, 1) = a 
plutot 
If Mid(s, i, 1) = "a"

chine38 · Answer

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

Je suis désolé mais 
If Mid(s, i, 1) = "a"
ne fonctionne toujours pas.

cs_Jack · Answer

Salut

Inutile de répéter ta question, on avait compris.
Est-ce que tu as réflechis à ce que t'as dit ShayW ?

D'autre part, tu seulement tu ouvrais l'aide de VB, tu saurais que la syntaxe de déclaration ta fonction est incomplète, même si elle peut fonctionner comme ça.
Function renvoie(s As String) As Integer

D'autre part, où, dans ta fonction, renvoies-tu le résultat ?
Nulle part.
Ajoute ceci dans ta fonction :
renvoie = resultat

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
[img]http://allproj

cs_cheyenne · Answer

Bonjour ShayW,

Je dirais même plus : 

If Mid$
(s, i, 1) = "a" 

Bonne continuation,
Cheyenne

cs_Jack · Answer

Oui, le $ est facultatif, ce n'est qu'une histoire de compilation/bibliothèque, mais ça ne coûte rien de le mettre et permet de se rappeler que la fonction renvoie une String.

cs_Jack · Answer

Tiens, encore plus simple :

maChaine = "Super ce forum de Codes-Sources"
sTemp = Replace(maChaine, "e", "", vbTextCompare)
MsgBox "Nombre de 'e' dans '" & maChaine & "' = " & CStr(Len(maChaine) - Len(sTemp))

4u4me4us · Answer

Les gars je crois avoir encore plus for 
i = split("abcde abcde abcdeeeeee aaa","a")
MsgBox "Nombre de 'a' ubound(i,1)

cs_cheyenne · Answer

Bonjour Jack,

Oui, certes, c'est facultatif, mais il n'empêche que le traitement est plus rapide avec $, car sans le symbole la fonction renvoie un type Variant. Puis c'est une bonne habitude de "typer", ce n'est pas à toi que je vais apprendre cela.

Très astucieux ta solution 

Bonne journée,

Cheyenne

chine38 · Answer

Bonjour tout le monde,

Merci pour votre aide. Je suis un débutant et vos conseils ont été fructueux.
Désolé pour les oublis et erreurs de ma part.

cs_Jack · Answer

De rien, Chine38

Excellent, 4u4me4us

4u4me4us · Answer

Chine38  2rien

jack Merci

4u4me4us · Answer

Je me suis planté sur le "msgbox" il faut mettre MsgBox "Nombre de 'a' " & ubound(i,1) Sorry Bonne journée !!

cs_ShayW · Answer

Salut 

Il y en a à toutes les sauces 
attention de ne pas attraper une indigestion

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

14 réponses

Votre réponse

sur les mêmes thèmes