nb d'occurences ds un string ??

[Syd]

Bonjour à tous,

J'ai un certain nb de caractères séparés par des espaces ds un "textbox1". J'aimerais connaitre le nb 'd'espaces' qu'il y a ds ce "texbox1" de sorte à connaitre le nb de caractères (existe-t-il une fonction qui compte le nb d'occurences d'un caractere ds un string ?)

Merci pour votre aide

 

[Laeti]

t as la fonction instr (VBA) qui cherche une occurence tu peux bricoler une fonction qui recupere la chaine sans la premiere occurence (avec la fonction MID de VBA )etc ... et tu rajoutes un compteur ...
il doit surement en exister une mais je la connais pas

 

[Alain]

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.

 

[Yann]

compteur=0
for i= 1 to len (textbox1.text)
if vba.mid(textbox1.text,i,1)=" " then
compteur=compteur+1
end if
next

 

[Syd]

Bonjour et un grand MERCI pour vos réponses, c'est exactement ce que je voulais !!

@+, Syd

 

[Jean-Marie]

Bonjour, tout le monde

Je vois dans les codes de Yann d' Alain, des boucles. Un peu d'imagination que diable....(rire) Une alternative supprimer les espaces par du vide et faire la soustraction du nombre de caractères des deux chaînes.

Sans VBA =NBCAR(A1)-NBCAR(SUBSTITUE(A1;" ";""))

Bonne journée

@+Jean-Marie