VBA récupérer chaîne à gauche espace

[C@thy]

Bonjour,

je voudrais récupérer par macro la chaîne de caractères qui se trouve à gauche du 1er espace.

Chaine = [B1].Value
Toto = Mid(left(Chaine, 1, find(' ',Chaîne) ) mais ça, C pâ bon!!!

Merci pour votre aide.

 

[Minick]

Salut,

Essai ceci:

Mid(chaine, 1,InStr(1, chaine, ' 'Â'Â') - 1)

@+

Message édité par: Minick, à: 17/03/2005 19:18

 

[JCA06]

Bonsoir C@thy,

J'aimerai être capable de répondre à ta question !
J'ai tout de même une idée, mais ça sera peut-être un peu une usine à gaz pour certains :
- tu fais une boucle For n = 1 to LEN(Chaine) pour tester chaque caractère du premier au dernier ;
- si ce caractère est un espace, tu gardes son numéro et tu récupère les n-1 caractères de Chaine.

A plus.

 

[C@thy]

Ah ben merci bien, Minick, 😉

en attendant j'avais fait ça!!! (comme dit JCA06 : usine à gaz!!!)

toto = Workbooks('COUTBASE 2004xls').Sheets('cout delegation 04').Range('B1')
ChercherCar = ' '
mapos = InStr(toto, ChercherCar)
titi = Left(toto, mapos - 1)