Bjr,

J'ai le code suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
For Each CelDonnee In PlageDonnees
 stCh = "facture"
 iPos = InStr(1, CelDonnee.Value, stCh) + Len(stCh)
 chaine = Mid(CelDonnee.Value, iPos, 8) 'Récupére les 7 caractéres suivant le mot EDG...
 CelDonnee.Offset(0, 4).Value = chaine
Next CelDonnee
mais ma chaine récupérée est variable en longueur.Au lieu de lui donner un nombre de caractères (en l'occurence 8) je voudrai aller jusqu'au 1er espace trouvé est-ce possible avec mid ?