Vb

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

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.

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