SPLIT texte impossible

Fermé

Sormick Messages postés 145 Date d'inscription dimanche 10 novembre 2013 Statut Membre Dernière intervention 8 avril 2024 - 1 oct. 2019 à 07:59
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 1 oct. 2019 à 13:30

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:

SPLIT texte impossible
Excel cellule couleur si condition texte - Guide
Mettre un texte en majuscule - Guide
Transcription audio en texte word gratuit - Guide
Texte barré whatsapp - Guide
Copier texte pdf - Guide

2 réponses

Réponse 1 / 2

jordane45 Messages postés 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 4 649
1 oct. 2019 à 10:47

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 145 Date d'inscription dimanche 10 novembre 2013 Statut Membre Dernière intervention 8 avril 2024
1 oct. 2019 à 10:50

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 "-"

Réponse 2 / 2

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
1 oct. 2019 à 11:11

Bonjour à tous les deux

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

Cdlmnt

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 1 oct. 2019 à 13:38

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

Discussions similaires

Formule Excel : "SI" une cellule contient un mot, alors ?

Trouver le mot réellement écrit en lettres capitales PIX

Excel si cellule contient texte alors...

copie de texte

Dépixeliser / déflouter un texte ?

Discussions similaires

Newsletters