SPLIT texte impossible

Sormick Messages postés 146 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 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:

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:

2 réponses

jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
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
0
Sormick Messages postés 146 Date d'inscription   Statut Membre Dernière intervention  
 
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 "-"
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour à tous les deux

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

Cdlmnt
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0