Extraire plusieurs chaînes de caractères entre deux caractères identiques
Résolu/Fermé
tanvir658
Messages postés
35
Date d'inscription
jeudi 27 octobre 2011
Statut
Membre
Dernière intervention
20 août 2022
-
Modifié le 25 févr. 2019 à 14:38
tanvir658 Messages postés 35 Date d'inscription jeudi 27 octobre 2011 Statut Membre Dernière intervention 20 août 2022 - 25 févr. 2019 à 21:52
tanvir658 Messages postés 35 Date d'inscription jeudi 27 octobre 2011 Statut Membre Dernière intervention 20 août 2022 - 25 févr. 2019 à 21:52
A voir également:
- Excel extraire texte entre deux caractères
- Liste déroulante excel - Guide
- Formule excel si contient texte alors texte ✓ - Forum Excel
- Caractères ascii - Guide
- Excel cellule couleur si condition texte - Guide
- Caractères spéciaux symboles clavier - Guide
6 réponses
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
25 févr. 2019 à 15:32
25 févr. 2019 à 15:32
Bonjour Tanvir, bonjour le forum,
Peut-être comme ça (à adapter) :
Peut-être comme ça (à adapter) :
Sub Macro1()
Dim O As Worksheet 'décalre la variable O (Onglet)
Dim TV As Variant 'décalre la variable TV (Tableau des Valeurs)
Dim TM() As Variant 'décalre la variable TM (Tableau des Mots)
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
For I = 1 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV
ReDim Preserve TM(1 To I) 'redimensionne le tableau des lignes TM
TM(I) = Split(TV(I, 1), "/")(1) 'récupère le premier mot apres le symbole "/"
Next I 'prochaine ligne de la boucle
'renvoie dans la cellule F1 (à adapter) redimensionnée, le tableau TM transposé
O.Range("F1").Resize(UBound(TM), 1).Value = Application.Transpose(TM)
End Sub
