Découpage de chaine avec split vba

jecherche

XLDnaute Occasionnel

• 8 Juillet 2016

• #2

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 8 Juillet 2016

• #3

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.

 

Dernière édition: 8 Juillet 2016

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 8 Juillet 2016

• #4

Bonjour à tous,

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

JHA

 

Pièces jointes

• Classeur Tigeline 001.xlsx

  10 KB · Affichages: 34

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 8 Juillet 2016

• #5

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

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 17 Juillet 2016

• #6

Bonjour,
à tester :

Code:

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

A+

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 17 Juillet 2016

• #7

salut

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

 

Vote positif 0 Vote négatif