split avec un numérique

Question

Bonjour à tous,
j'ai plusieurs chaines de caractères, dont je ne connais pas forcément la longueur, du style:
"MI1"
"Conditionnement2"...

et j'aimerais récupérer la partie à gauche du numérique.

Je ne sais pas indiquer à la fonction split que mon délimiteur soit n'importe quel numérique.
Avez-vous une solution ou peut-être une autre méthode ?
Merci

Jeom

cs_rene38 · Answer

Bonjour
Connais-tu la longueur du numérique ? 
Toujours un seul chiffre ou variable ?

crenaud76 · Answer

Sub Splitter(byval Source as string,byref LeftValue as string, Rightvalue as long)
Dim C as string, i as long,RV as string
i = Len(Source)
RV = ""
Do 
  C = Mid$(Source,i,1)
  If IsNumeric(C) Then
    RV = C & RV
  Else
    Exit Do
  End If
  i=i-1
Loop Until i=0
LeftValue = left$(Source,i)
RightValue = cLng(RV)
End Sub

Cette fonction devrait fonctionner

Christophe R.

jeromepol49 · Answer

Merci pour la fonction.
Bien sympathique.

Pour rene18, je ne connais pas la longueur du numérique et ca peut être variable. Merci pour t'être penché sur la question.

A+

Jeom

Split avec un numérique

3 réponses

Discussions similaires