VBA-E extraction de chaine

Bjr,

J'ai le code suivant:

Code:

---

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 ?

Bonjour,

C'est possible avec Mid, il suffit pour cela de déterminer la longueur de chaîne à copier...
Pour la déterminer, tu utilises à nouveau la fonction InStr avec les arguments qui vont bien (cf aide en ligne de InStr) et tu fais la différence entre cette nouvelle position et la position du début de chaîne à copier.

+

Théo

Du genre:

Code:

---

1 2 3 4 5 6 7 8

For Each CelDonnee In PlageDonnees stCh = "facture" stChf = "Date" iPos = InStr(1, CelDonnee.Value, stCh) + Len(stCh) lonPos = InStr(iPos, CelDonnee.Value, stChf) chaine = Mid(CelDonnee.Value, iPos, lonPos - iPos) CelDonnee.Offset(0, 4).Value = chaine Next CelDonnee

---

Merci Théo.