SPLIT texte impossible

Signaler
Messages postés
103
Date d'inscription
dimanche 10 novembre 2013
Statut
Membre
Dernière intervention
21 décembre 2019
-
f894009
Messages postés
14949
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 janvier 2020
-
JE souhaite splitter ce texte:
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

Messages postés
27304
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
20 janvier 2020
2024
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
Sormick
Messages postés
103
Date d'inscription
dimanche 10 novembre 2013
Statut
Membre
Dernière intervention
21 décembre 2019

non malheureusement pas toujours le même nombre de tirets d'ou le problème.
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 "-"
Messages postés
9190
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
15 janvier 2020
1684
Bonjour à tous les deux

Un essai
https://mon-partage.fr/f/MdKff0Qq/

Cdlmnt
f894009
Messages postés
14949
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 janvier 2020
1208
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