SPLIT texte impossible
Fermé
Sormick
Messages postés
145
Date d'inscription
dimanche 10 novembre 2013
Statut
Membre
Dernière intervention
26 janvier 2023
-
1 oct. 2019 à 07:59
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 1 oct. 2019 à 13:30
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 1 oct. 2019 à 13:30
A voir également:
- SPLIT texte impossible
- Split cam - Télécharger - Messagerie
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? ✓ - Forum Word
- Formule excel si contient texte alors texte ✓ - Forum Excel
- Mettre un texte en majuscule - Guide
- Recherchev texte ✓ - Forum Excel
2 réponses
jordane45
Messages postés
37253
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 mars 2023
4 551
1 oct. 2019 à 10:47
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
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
ccm81
Messages postés
10543
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
18 mars 2023
2 336
1 oct. 2019 à 11:11
1 oct. 2019 à 11:11
Bonjour à tous les deux
Un essai
https://mon-partage.fr/f/MdKff0Qq/
Cdlmnt
Un essai
https://mon-partage.fr/f/MdKff0Qq/
Cdlmnt
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
Modifié le 1 oct. 2019 à 13:38
Modifié le 1 oct. 2019 à 13:38
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
1 oct. 2019 à 10:50
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 "-"