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

C@thy

XLDnaute Barbatruc
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.
 

JCA06

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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)
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 849
dernier inscrit
florentMIG