SPLIT texte impossible
Sormick
Messages postés
163
Statut
Membre
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
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?
A voir également:
- SPLIT texte impossible
- Split cam - Télécharger - Messagerie
- Texte de chanson gratuit pdf - Télécharger - Vie quotidienne
- Transcription audio en texte word gratuit - Guide
- Excel cellule couleur si condition texte - Guide
- Texte barré whatsapp - Guide
2 réponses
Bonjour
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
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
Bonjour à tous les deux
Un essai
https://mon-partage.fr/f/MdKff0Qq/
Cdlmnt
Un essai
https://mon-partage.fr/f/MdKff0Qq/
Cdlmnt
Bonjour a tous,
Code avec Split, juste pour montrer que ca marche
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
Je dois récupérer le texte avant le "-"
je dois récupérer le texte après le dernier "-"
je dois enfin récupérer le texte entre le premier "-" et le dernier "-"