Nombre de groupes de chiffres dans une chaîne

[Magic_Doctor]

Bonsoir,

Existerait-il une fonction permettant de renvoyer le nombre de groupes de chiffres dans une chaîne ?
Je m'explique :
Les chaînes analysées par la fonction sont toutes du type :
chaîne1 = "288 3 666 52 12"
chaîne2 = "033 17 12 4"
Chaque groupe est toujours séparé par 1, voire plusieurs espaces.
Un singleton est assimilé à un groupe.
Ici :
- f(chaîne1) = 5
- f(chaîne2) = 4

 

[Staple1600]

Bonsoir le fil, le forum

Split devrait le job, non?

 

[Magic_Doctor]

Merci Staple, je vais voir ça.

 

[Staple1600]

Re

C'est tout vu

Function MagicD(s)
MagicD = 1 + UBound(Split(Application.WorksheetFunction.Trim(s)))
End Function
Sub test()
Dim chaine1$, chaine2$, chaine3$
chaine1 = "288 3 666 52 12"
chaine2 = "033 17 12 4"
chaine3 = "288 3   666   52    12"
MsgBox MagicD(chaine1)
MsgBox MagicD(chaine2)
MsgBox MagicD(chaine3)
End Sub

 

[Magic_Doctor]

Merci Staple !