A voir également:
- Vb
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Vb editor - Télécharger - Langages
- Vb runtime - Télécharger - Divers Utilitaires
- Vb express - Télécharger - Langages
3 réponses
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
Rossini
merci je vais l'essayer!!!
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.
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.