Discussion :

[yann1954]

bonjour à tous
Je voudrais dénombrer les lettres composant un texte ou un mot.
Par exemple si texte="bonjour à tous"
y a t-il une instruction vba du genre:
compte dans "texte" la lettre "o"
la réponse étant 3

merci à tous
Yan

[Marc-L]

Bonjour.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function Combien&(TXT$, SEQ$)
         Combien = Len(TXT) - Len(Replace(TXT, SEQ, ""))
End Function
 
 
Sub Demo()
    MsgBox Combien("bonjour à tous", "o")
End Sub

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[yann1954]

Merci à Marc
ta réponse me va parfaitement