Découpage de chaine avec split vba

tigeline001 · 8 Juillet 2016

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 · 8 Juillet 2016

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 · 8 Juillet 2016

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 · 8 Juillet 2016

Bonjour à tous,

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

JHA

laurent950 · 8 Juillet 2016

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

david84 · 17 Juillet 2016

Bonjour,
à tester :

Code:

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

A+

Si... · 17 Juillet 2016

salut

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

Découpage de chaine avec split vba

tigeline001

XLDnaute Occasionnel

jecherche

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

JHA

XLDnaute Barbatruc

Pièces jointes

laurent950

XLDnaute Accro

david84

XLDnaute Barbatruc

Si...

XLDnaute Barbatruc

Discussions similaires