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

skoobi

XLDnaute Barbatruc

• 24 Novembre 2007

• #2

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

Bonsoir,
une proposition par macro:

Code:

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

 

Vote positif 0 Vote négatif

matthieu33

XLDnaute Occasionnel

• 24 Novembre 2007

• #3

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;" ";""))

@+

 

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 24 Novembre 2007

• #4

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

 

Vote positif 0 Vote négatif

esftel

XLDnaute Occasionnel

• 24 Novembre 2007

• #5

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

 

Vote positif 0 Vote négatif