SPLIT texte impossible
JE souhaite splitter ce texte:
EPOLIACN-12-13-16
en trois parties:
EPOLIACN
puis
12-13
et
16
avec le code suivant:
j'arrive sans problème à splitter le texte mais je ne souhaite pas qu'il splitte les valeurs du milieu: 12-13
Comment faire pour afficher ces valeurs (12-13) sans les splitter?
EPOLIACN-12-13-16
en trois parties:
EPOLIACN
puis
12-13
et
16
avec le code suivant:
Dim infos
infos = Split(texte.valeur, "-")
j'arrive sans problème à splitter le texte mais je ne souhaite pas qu'il splitte les valeurs du milieu: 12-13
Comment faire pour afficher ces valeurs (12-13) sans les splitter?
2 réponses
-
Bonjour à tous les deux
Un essai
https://mon-partage.fr/f/MdKff0Qq/
Cdlmnt-
Bonjour a tous,
Code avec Split, juste pour montrer que ca marche
Sub Split_tiret() Dim TTiret TTiret = Split(ActiveCell, "-") n = UBound(TTiret) r = ActiveCell.Row Cells(r, 2) = TTiret(0) For nn = 1 To n - 2 TXT = TXT & TTiret(nn) & "-" Next nn Cells(r, 3) = TXT & TTiret(n - 1) Cells(r, 4) = TTiret(n) End Sub
-
-
ModérateurBonjour
Tu toujous le meme nombre de tirets ?
Si oui..ben tu sais où se trouvent les données et donc tu peux concaténer tes deux nombres toi même
