Texte Eclater avec critère chiffres

[job75]

Function Eclater(t$)
Dim i%, j%, a$(2)
For i = 1 To Len(t)
    If IsNumeric(Mid(t, i, 1)) Then Exit For
Next
For j = Len(t) To 1 Step -1
    If IsNumeric(Mid(t, j, 1)) Then Exit For
Next
If j = 0 Then j = i 'si aucun chiffre
a(0) = Left(t, i - 1)
a(1) = Mid(t, i, j - i + 1)
a(2) = Mid(t, j + 1)
Eclater = a 'vecteur horizontal
End Function

 

[fanch55]

Salut @job75,
J'ai suivi à la lettre les instructions données ( sélection B1 : D1 ) ==> cela ne saute pas aux yeux
Peut-être B2 : D2 ?

 

[job75]

Salut @job75,
J'ai suivi à la lettre les instructions données ( sélection B1 : D1 ) ==> cela ne saute pas aux yeux
Peut-être B2 : D2 ?

Oui bien sûr c'est B2 : D2 qu'il faut sélectionner.