SPLIT texte impossible

Sormick Messages postés 163 Statut Membre -  
f894009 Messages postés 17417 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?

2 réponses

  1.
    jordane45 Messages postés 30426 Date d'inscription   Statut Modérateur Dernière intervention   4 830
     
    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
    1. Sormick Messages postés 163 Statut Membre
       
      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
  2. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour à tous les deux

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

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

Discussions similaires

Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses