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
- Range vb - Forum VB / VBA
3 réponses
Normad
Messages postés
112
Date d'inscription
dimanche 6 juin 2010
Statut
Membre
Dernière intervention
10 juin 2015
38
22 avril 2014 à 06:47
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
cocodu67...
Messages postés
3161
Date d'inscription
jeudi 28 janvier 2010
Statut
Membre
Dernière intervention
1 août 2024
145
21 avril 2014 à 23:44
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.
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.
22 avril 2014 à 17:32