Vb

Fermé
Rossini - 21 avril 2014 à 22:04
 Rossini - 22 avril 2014 à 17:32
Bonjour,
Comment je pourrais controller le nombre de lettre dans un textebox


EX:Merci pour le chocolat.
donc j'aimerais calculer le nombre de "o" et l'afficher en chiffre "3"
A voir également:

3 réponses

Normad Messages postés 112 Date d'inscription dimanche 6 juin 2010 Statut Membre Dernière intervention 10 juin 2015 39
22 avril 2014 à 06:47
Avec le texte dans Text1 et un bouton Command1 :

Private Sub Command1_Click()
Dim Texte As String, L As String * 1, Nb As Integer, I As Integer

L = InputBox("Indiquez quelle lettre à compter")
If L = "" Then Exit Sub
L = UCase(L)
Texte = Text1.Text

For I = 1 To Len(Texte)
If UCase(Mid(Texte, I, 1)) = L Then Nb = Nb + 1
Next I

MsgBox "Il y a " & Nb & " " & L & " dans " & Texte
End Sub
0
merci je vais l'essayer!!!
0
cocodu67... Messages postés 3162 Date d'inscription jeudi 28 janvier 2010 Statut Membre Dernière intervention 20 novembre 2024 145
21 avril 2014 à 23:44
Lu'

Je ne vais pas faire le boulot à ta place mais je vais te donner une idée.
Tu créer une variable de type string, ensuite tu utilises une fonction où tu passes en paramètre la variable ainsi que ce qu'il faut rechercher.

Une fonction codée à la main :
https://codes-sources.commentcamarche.net/forum/affich-1274107-chaine-de-caractere-comptage-occurence#1

Il existe peut être aussi une fonction du type String.Replace mais qui sert à faire une recherche.
-2
Il sufi de fair un variante an c++ si tu ve me contacter mon skype loginecrafte si je fais des fote j ai 10 ans
-2