Sans vouloir pété ta bulle, si tu oubli les espace ex.: Mon nom est Sylvain.Allo toi! ca renvoi 5 mots et non 6! Mais c'est bon pareil! PS.: Jai pas testé avec ta source a toi mais elle de PCPUNCH marche pas du tout! Améliore la parce que si tu met "Allo toi", bah il renvoi beaucoup plus que 2 mots!
cette source n'est pas mal du tout et elle est pas con. En fait, je l'utilise pour chercher avec Google à partir d'un client. bravo et bonne continuation
Slt ! Tu sais g codé ainsi , pcpubch, car g po voulu utiliser la fonction split !!!
Ah g oublie , et puis quand on utilise for ca rend le code assez lent !
Dsl j'avais pas vu que tu compte aussi le nb de caractéres et le nb de ponctuations!! mais c'est faisable aussi plus simplement!!
Sinon c pas trop mal!!!
Pourquoi tu renvoie le resultat de la fonction dans un textbox !!!
il faut renvoyer le resultat a la fonction, c pareil et - compliquer!!
Y a beaucoup plus simple et plus rapide, je vien de faire ça en 2mn :
Public Function CompteMot(Txt As String)
Dim Result() As String
Dim NbPonct As Integer
Result = Split(Txt, " ")
For i = 0 To UBound(Result)
If Trim(Result(i)) "." Then NbPonct NbPonct + 1
If Trim(Result(i)) "," Then NbPonct NbPonct + 1
If Trim(Result(i)) ";" Then NbPonct NbPonct + 1
If Trim(Result(i)) "!" Then NbPonct NbPonct + 1
If Trim(Result(i)) ":" Then NbPonct NbPonct + 1
Next i
CompteMot = UBound(Result) - NbPonct
End Function
MsgBox CompteMot("Salut ! bonjour, comment ca va ?") ' renvoie 5
Ah g oublie , et puis quand on utilise for ca rend le code assez lent !