Nombre de groupes de chiffres dans une chaîne

Staple1600

XLDnaute Barbatruc

• 8 Janvier 2018

• #2

Bonsoir le fil, le forum

Split devrait le job, non?

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 8 Janvier 2018

• #3

Merci Staple, je vais voir ça.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Janvier 2018

• #4

Re

C'est tout vu 😉

VB:

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

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 8 Janvier 2018

• #5

Merci Staple !

 

Vote positif 0 Vote négatif