Ci-dessous fonction à utiliser dans une feuille de calcul :
' Fonction pour chercher le nombre d'espaces dans une chaîne
Function Espace(Texte As String) As Long
n = 0
For i = 1 To Len(Texte)
Caractere = Mid(Texte, i, 1)
' On cherche si le caractère est un espace
' et si oui on incrémente un compteur
If Caractere = " " Then n = n + 1
Next
Espace = n
End Function
Si le texte à analyser est en cellule "A1", on écrit en cellule "A2" par exemple :
= Espace(A1)
@+Alain.