Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Extraire une chaine de caractère entre deux caractères différents

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Al1_44
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

Al1_44

XLDnaute Junior
Bonsoir le forum,

Certainement un problème simple pour vous, je veux isoler une chaine de caractères contenu entre deux caractères spéciaux.

Exemple:
Machin chose,19875 Bidule TRUC (mois 2013, aert de gfe) hfu

En partant de la droite, extraire le texte à gauche de la virgule jusqu'au caractère ")" soit : "aert de gfe" , actuellement je passe par deux formules successives, voir fichier joint.

Merci beaucoup et à bientôt

AL1_44
 

Pièces jointes

Solution
Bonjour Al,
Un essai en PJ avec la fonction perso en VBA :
VB: 
Function Extrait(C$)
    Extrait = Trim(Split(Split(C, ",")(UBound(Split(C, ","))), ")")(0))
End Function
Syntaxe : =Extrait(Chaine)

ou peut être plus rapide :
VB: 
Function Extrait2(C$)
    Extrait2 = Trim(Mid(C, InStrRev(C, ",") + 1, InStr(C, ")") - InStrRev(C, ",") - 1))
End Function
Syntaxe : =Extrait2(Chaine)

Le problème est que "cherche par la droite" existe en VBA (InStrRev) mais pas en formule.
Sinon si le VBA vous rebute, vous pouvez concaténer vos deux formules :
VB: 
=GAUCHE(SUPPRESPACE(DROITE(SUBSTITUE(A1;",";REPT(" ";NBCAR(A1)));NBCAR(A1))); TROUVE(")"; SUPPRESPACE(DROITE(SUBSTITUE(A1;",";REPT(" ";NBCAR(A1)));NBCAR(A1))))-1)

ou un poil plus court ...
Trier par date Trier par votes
Bonjour Al,
Un essai en PJ avec la fonction perso en VBA :
VB: 
Function Extrait(C$)
    Extrait = Trim(Split(Split(C, ",")(UBound(Split(C, ","))), ")")(0))
End Function
Syntaxe : =Extrait(Chaine)

ou peut être plus rapide :
VB: 
Function Extrait2(C$)
    Extrait2 = Trim(Mid(C, InStrRev(C, ",") + 1, InStr(C, ")") - InStrRev(C, ",") - 1))
End Function
Syntaxe : =Extrait2(Chaine)

Le problème est que "cherche par la droite" existe en VBA (InStrRev) mais pas en formule.
Sinon si le VBA vous rebute, vous pouvez concaténer vos deux formules :
VB: 
=GAUCHE(SUPPRESPACE(DROITE(SUBSTITUE(A1;",";REPT(" ";NBCAR(A1)));NBCAR(A1))); TROUVE(")"; SUPPRESPACE(DROITE(SUBSTITUE(A1;",";REPT(" ";NBCAR(A1)));NBCAR(A1))))-1)

ou un poil plus court :
VB: 
=SUPPRESPACE(STXT(STXT(A1;TROUVE("(";A1)+1;TROUVE(")";A1)-TROUVE("(";A1)-1);CHERCHE(",";STXT(A1;TROUVE("(";A1)+1;TROUVE(")";A1)-TROUVE("(";A1)-1))+1;10^3))

C'est indigeste mais ça marche. 🙂
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Solution
Bonjour Sylvanu,

Je n'ai que l'embarras du choix, toute les solutions me conviennent.
Pour un coté plus simpliste, je vais travailler avec la fonction VBA.
Mais j'approuve la première formule, car c'est ce que je cherchais à
mettre en œuvre, sans succès.
Merci.

Bon WE à tous.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

I
  • Résolu(e)
Microsoft 365 Extraire une partie d'une chaine de caractères
Réponses
6
Affichages
480
mapomme
M
  • Question Question
Microsoft 365 Extraire une chaine de caractère numérique d'une cellule
Réponses
10
Affichages
1 K
patricktoulon
F
  • Résolu(e)
extraire des doublons d'une chaine de caractères
2
Réponses
29
Affichages
2 K
patricktoulon
POWERQUERY :: Nettoyage de données - Supprimer des caractères entre deux délimiteurs - Fonction automatisée
Réponses
0
Affichages
600
oguruma
T
  • Résolu(e)
Microsoft 365 Extraire toutes les chaines de caractères entre guillemets
Réponses
8
Affichages
1 K
Tidjyphenom
T
POWERQUERY :: Extraction entre délimiteurs/Nettoyage de caractères suite....
Réponses
0
Affichages
306
oguruma
B
  • Question Question
XL 2019 Créer une passerelle entre deux champs différents ? ( Pour RechercheV)
Réponses
8
Affichages
1 K
Hasco
J
  • Question Question
Microsoft 365 Extraire chaine de caractère
Réponses
10
Affichages
1 K
laurent950
U
  • Question Question
XL 2019 Extraire une chaine entre deux positions
2 3
Réponses
43
Affichages
4 K
soan
S
T
  • Question Question
XL 2010 Extraction montant de la dernière transaction entre deux personnes, dans une liste de transactions
Réponses
6
Affichages
685
Tomtom8231
T
B
  • Question Question
XL 2019 Extraire une chaine de caractère entre deux chaines de caractères
Réponses
13
Affichages
7 K
patricktoulon
  • Article Article
Extraire du texte d’une chaîne de caractères avec des fonctions
Réponses
13
Affichages
33 K
AZERUS
A
G
  • Question Question
Extraire une chaine de caractères avec une police spécifique
Réponses
2
Affichages
1 K
gérard3000
G
O
  • Question Question
XL 2010 extraire adresse email dans chaine de caractères
Réponses
5
Affichages
771
mapomme
E
  • Question Question
Extraire chaine de caractères jusqu'à espace
Réponses
3
Affichages
9 K
Enduristik71
E
A
  • Question Question
XL 2019 Excel - Récupérer valeurs contenues entre deux balises <text> </text> en VBA
Réponses
0
Affichages
1 K
Abdel47
A
  • Question Question
Fonction pour récupérer une chaine de caractère
Réponses
4
Affichages
2 K
chris6999
B
  • Question Question
Comment séparer une chaine de caractère mot par mot ?
Réponses
4
Affichages
3 K
bonzom
B
F
  • Question Question
Extraire une chaine de valeur entre 2 signes spéciaux
Réponses
6
Affichages
5 K
redexcel
R
T
  • Question Question
XL 2013 [ Résolu ] extraire le caractère le plus présent dans une chaîne de caractères
Réponses
9
Affichages
2 K
mapomme
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…