Une fonction R

def occ(ch):
liste=[]
for i in ch.lower():
if i.isalpha() and i not in liste: liste.append(i)
return str(len(liste))+" occurence(s)"

Public Function CompteCaract(buffer As String, lettre As String, nbre As Integer)
' Variables locales
Dim pos As Integer
Dim old_pos As Integer

' Début de la boucle
old_pos = 1
nbre = 0
pos = InStr(old_pos, buffer, lettre, vbBinaryCompare)

' Boucle
While pos <> 0
nbre = nbre + 1
old_pos = pos
pos = InStr(old_pos + 1, buffer, lettre, vbBinaryCompare)
Wend
End Function

Mets tout ça dans une balise C et dis nous ou est le problème, c'est préférable pour t'aider.

Plutôt que de mettre dans une balise C, dis-nous en quel langage tu dois programmer. Car le premier code ça ressemble à du python, le second à du VBA.
Rien de C jusqu'à maintenant...