VBA Extraire une chaine de caractère entre deux espaces

[Matt51100]

Bonjour le forum,

Mon problème est le suivant :

Dans une cellule, j'ai le texte suivant : "XXX YYYYYYYYYY 0000000000" ou "XX XXX YYYYYYYYYYYYY 0000000000". J'aimerais extraire la chaine de caractère composé des Y, sachant que :
- Cette chaine a un nombre de caractère variable
- La chaine se termine par un nombre à 10 chiffres
- Ce qu'il y a avant la chaine Y est variable mais il y a toujours un espace entre le dernier X et le premier Y

Il est donc facile à priori de trouver la fin de la chaine avec "Right". Je ne sais pas en revanche trouver le début.

Merci d'avance.

A+, Matt.

 

[CHALET53]

Re : VBA Extraire une chaine de caractère entre deux espaces

bonjour

Un essai

(en plusieurs étapes)

a+

 

[Matt51100]

Re : VBA Extraire une chaine de caractère entre deux espaces

Bonjour CHALET,

Merci de ta réponse rapide mais je le voudrais en VBA.

A+, Matt.

 

[david84]

Re : VBA Extraire une chaine de caractère entre deux espaces

Bonjour,
pour le traitement de chaînes de caractères en VBA, tu peux regarder ici sur le site de JB.
Ces différentes informations devraient te permettre d'arriver à tes fins.
A+

 

[Pierrot93]

Re : VBA Extraire une chaine de caractère entre deux espaces

Bonjour à tous,

regarde peut être ceci :

Dim t As String
t = "XX XXX YYYYYYYYYYYYY 0000000000"
t = Mid(t, InStrRev(t, " ", 11) + 1)

bon après midi
@+

 

[tototiti2008]

Re : VBA Extraire une chaine de caractère entre deux espaces

Bonjour Matt, David 🙂, Bonjour Pierrot 🙂,

une autre approche

Dim t As String
t = "XX XXX YYYYYYYYYYYYY 0000000000"
t = split(t)(ubound(split(t))-1)

 

[Pierrot93]

Re : VBA Extraire une chaine de caractère entre deux espaces

Re,
bonjour toto🙂

Aarf, perso compris qu'il fallait récupérer "YYYYYYYYYYYYY 0000000000".... pas sûr du coup que ce que j'ai proposé soit le résultat attendu....

 

[tototiti2008]

Re : VBA Extraire une chaine de caractère entre deux espaces

Re,

Bah, si j'ai raison il suffit de compléter ta proposition 😉

Dim t As String
t = "XX XXX YYYYYYYYYYYYY 0000000000"
t = Mid(t, InStrRev(t, " ", 11) + 1, InStrRev(t, " ") - InStrRev(t, " ", 11) - 1)

 

[Pierrot93]

Re : VBA Extraire une chaine de caractère entre deux espaces

Re,

oui, mais dans ce cas préfère encore ton "split", plus court....

 

[job75]

Re : VBA Extraire une chaine de caractère entre deux espaces

Bonjour à tous,

Pour ne pas avoir de surprise s'il y a des espaces superflus :

Dim t As String
 t = Application.Trim("XX XXX        YYYYYYYYYYYYY         0000000000")
 t = split(t)(ubound(split(t))-1)

A+

 

[Matt51100]

Re : VBA Extraire une chaine de caractère entre deux espaces

Bonsoir à tous,

Merci de vos réponses. J'essaie tout ça demain. Afin de clarifier mon propos c'est la chaine composée des Y qu'il faut que j'extraie.

A+, Matt.

 

[Matt51100]

Re : VBA Extraire une chaine de caractère entre deux espaces

Bonjour,

Merci de votre aide. J'ai gardé la solution de Job.

A+, Matt.