Discussion :

[bernard38]

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 ?

[Theocourant]

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

[bernard38]

Du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.