Découpage de chaine avec split vba

[tigeline001]

Bonjour tout le monde
J'ai un petit problème avec la fonction Split
En voulant recupérer une partie d'une j'ai mis cette instruction
split(("chaine", "-")(0))
cette instruction marche si j'ai par exple :
Pierre , Allan - 25280 .Là il me retourne sans probléme Pierre , Allan
Par contre si j'ai deux delimiteurs "-" dans la meme chaine il y'a probléme par exemple si j'ai
St-Georges , Myriam - 58847 .Là il me retourne seulement St alors je voulais comme resultat
St-Georges , Myriam

SVP , j'attens votre aide
Merci

 

[jecherche]

Bonjour,

Désolé pour les termes français ... et admettons que la source est en A1 ...
Tester : =STXT(A1;(CHERCHE("-";A1;1))+1;CHERCHE("-";A1;(CHERCHE("-";A1;1))+1)-((CHERCHE("-";A1;1))+1))


Jecherche

 

[mapomme]

Bonsoir tigeline001,

Essayez:
Trim(Split(Replace(Replace(Chaine," -",Chr(149)),"- ",Chr(149)),Chr(149))(0))

Chr(149) étant un caractère très improbable dans Chaine.

 

[JHA]

Bonjour à tous,

Un essai avec avecla fonction cherche() et stxt()

JHA

 

[laurent950]

Bonsoir,
Comme ceux-ci une concaténation :
Sub test()
chaine = "St-Georges , Myriam - 58847"
MsgBox Split(chaine, "-")(0) & "-" & Split(chaine, "-")(1)
End Sub

 

[david84]

Bonjour,
à tester :

Sub test()
chaine = "St-Georges , Myriam - 58847"
n = InStrRev(chaine, "-")
chaine = Left(chaine, n - 1)
MsgBox chaine
End Sub

A+

 

[Si...]

salut

et avec 3, 4, ...36 titrets, que faut-il garder ?