VBA Extraire une chaine de caractère entre deux espaces

Matt51100 · 29 Août 2012

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 · 29 Août 2012

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

bonjour

Un essai

(en plusieurs étapes)

a+

Matt51100 · 29 Août 2012

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 · 29 Août 2012

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 · 29 Août 2012

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

Bonjour à tous,

regarde peut être ceci :

Code:

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

bon après midi
@+

tototiti2008 · 29 Août 2012

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

Bonjour Matt, David , Bonjour Pierrot ,

une autre approche

Code:

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

Pierrot93 · 29 Août 2012

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 · 29 Août 2012

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

Re,

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

Code:

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

Pierrot93 · 29 Août 2012

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 · 29 Août 2012

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 :

Code:

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

A+

Matt51100 · 29 Août 2012

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 · 30 Août 2012

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.

VBA Extraire une chaine de caractère entre deux espaces

Matt51100

XLDnaute Occasionnel

CHALET53

XLDnaute Barbatruc

Pièces jointes

Matt51100

XLDnaute Occasionnel

david84

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

tototiti2008

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

tototiti2008

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Matt51100

XLDnaute Occasionnel

Matt51100

XLDnaute Occasionnel

Discussions similaires