bonjour
j'ai concocté cela sur la base de la formule suivante pour compter le nombre de A : =NBCAR(A1)-NBCAR(SUBSTITUE(A1;"A";""))
Sub d()
'pour les espaces
test = "LEN(""" & [A2].Text & """)-LEN(SUBSTITUTE(""" & [A2].Text & ""","" "",""""))"
If Evaluate(test) = Len([A2]) Then MsgBox "il n'y a que des espaces dans A2"
'MsgBox Len([A1]) - Len(Application.WorksheetFunction([A1].Text, "A", ""))
'test = "LEN(""" & [A1].Text & """)-LEN(SUBSTITUTE(""" & [A1].Text & """,""A"",""""))"
'MsgBox Evaluate(test)
End Sub
j'ai trouvé autre chose chez fred sigonneau
<http://perso.wanadoo.fr/frederic.sigonneau/code/Fonctions/NombreDeLettres.txt>