Calculer le nombre de lettre dans une chaine de caractères

Bonjour à tous,

J'aimerais calculer le nombre de "lettre" (guillemets) et "d'espace" dans une chaine de caractère du type "Nombre d'articles 24". Le résultat me renverrais donc "18".

Pour calculer la longueur du chaine je fais :

Code:

---

1 2 3 4

Dim chaine chaine = "Nombre d'articles 24" long = Len(chaine) msgbox long

---

et là le résultat me renvoi "20"

Merci pour votre aide :)

Salut

Il te faut faire une détection du code ascii de chaque constituant de ta phrase

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim chaine Dim T, LtrMA, LtrMi, Esp, Gui, Chfr, CodAscii chaine = "Nombre d'articles 24" For t = 1 to Len(chaine) CodAscii = asc(mid(chaine,t,1)) if CodAscii = 32 then Esp = Esp + 1 if CodAscii = 39 then Gui = Gui + 1 if CodAscii >= 48 and CodAscii <= 57 then Chfr = Chfr + 1 if CodAscii >= 65 and CodAscii <= 90 then LtrMA = LtrMA + 1 if CodAscii >= 97 and CodAscii <= 122 then LtrMi = LtrMi + 1 Next   MsgBox "Dans la chaine: " & chaine & " il y a" & vbcrlf _ & Esp & " espace(s)" & vbcrlf _ & Gui & " guillemet(s)" & vbcrlf _ & Chfr & " chiffre(s)" & vbcrlf _ & LtrMA & " lettre(s) MAJ" & vbcrlf _ & LtrMi & " lettre(s) min"

---

Merci :)

bonjour,
ou les expressions régulières :

Code:

---

1 2 3 4 5 6 7 8 9

Set regEx = New RegExp regEx.Pattern = "\D+" regEx.IgnoreCase = True regEx.Global = True Set Matches = regEx.Execute("Nombre d'articles 24") For Each Match in Matches 'Itère la collection Matches. RetStr = RetStr & Len(Match.Value) & vbCRLF Next MsgBox RetStr

---