compter le nombre d'espace ds une chaine de carractère

[esftel]

Bonjour le forum,

le souhaiterais compter le nombre d'espace dans une chaine de carractère d'une cellule.

Exemple : pour cette chaine : "5 rue des Fleurs" ---> resultat 3 espaces

Merci de votre réponse.

 

[skoobi]

Re : compter le nombre d'espace ds une chaine de carractère

Bonsoir,
une proposition par macro:

Sub essai()
For n = 1 To Len([A1].Value)
    If Mid([A1].Value, n, 1) = " " Then
        c = c + 1
    End If
Next
MsgBox c & " espaces"
End Sub

 

[matthieu33]

Re : compter le nombre d'espace ds une chaine de carractère

Bonsoir esftel, skoobi et le forum,

En formule :
A1 : 5 rue des Fleurs
A2 : =NBCAR(A1)-NBCAR(SUBSTITUE(A1;" ";""))

@+

 

[excalibur]

Re : compter le nombre d'espace ds une chaine de carractère

bonsoir le fil encore une solution par macro
Sub Car5()
MsgBox Evaluate("SUM(NOT(ISERROR(FIND("" "",MID(A1,ROW(1:" & Len([A1]) & "),1))))*1)")
End Sub
salutations

 

[esftel]

Re : compter le nombre d'espace ds une chaine de carractère

Bonsoir a vous trois,

n'étant pas un grand spécialiste du VBA, je garde la solution de Matthieu33.
je penssais bien aux fonction nbcar et substitue mais je n'ai pas su les imbriqués correctement.
Bien joué.

quand au VBAiste, je me rend compte que je dois vraiement me mettre au VBA.

un grand merci pour vos réponses rapide.

esftel