Discussion :

[Jsiorat]

Bonjour à toutes et tous,

la fonction Instr() retourne une valeur numérique.
J'aimerai que la fonction me retourne une valeur string

Code :

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

1
2
 
test = InStr(1, strNomFile, strMotCle, vbTextCompare)

comment faire pour obtenir : strValeur = test
merci pour réponses

[tee_grandbois]

bonsoir,

comment faire pour obtenir : strValeur = test

rien n'empêche de récupérer une valeur numérique dans une variable de type string, c'est le contraire qui n'est pas possible si ce sont des caractères non numériques.
Tu peux tout simplement écrire :

Code :

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

strValeur = InStr(1, strNomFile, strMotCle, vbTextCompare)

[Jsiorat]

bonsoir,

rien n'empêche de récupérer une valeur numérique dans une variable de type string, c'est le contraire qui n'est pas possible si ce sont des caractères non numériques.
Tu peux tout simplement écrire :

Code :

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

strValeur = InStr(1, strNomFile, strMotCle, vbTextCompare)

Merci pour ta réponse, et désolé, mais le problème persiste !

La valeur retournée est la position de la 1ère lettre de strMotCle dans la chaine de caractères strNomFile. (MsgBox strValeur)
J'ai besoin du nom complet.
Est-ce qu'il faut énuméré le mot clé lettre par lettre et le confronter à partir de la position retournée ?

[madefemere]

Bonjour,

Le besoin n'est pas clair.
Qu'est-ce que tu entends par :

J'ai besoin du nom complet.

Cordialement.

[Thierry_PALLIER]

Bonjour le forum.

Si tu obtiens le début de la chaine voulue, il faut utiliser ensuite la fonction Mid.

si j'ai compris ta question:

Code :

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

1
2
3
4
5
test = InStr(1, strNomFile, strMotCle, vbTextCompare)
strValeur = Mid(strNomFile, test)
 
'en 1 ligne
strValeur = Mid(strNomFile, InStr(1, strNomFile, strMotCle, vbTextCompare))

Cdlt

[james68]

Bonjour le forum.

Si tu obtiens le début de la chaine voulue, il faut utiliser ensuite la fonction Mid.

si j'ai compris ta question:

Code :

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

1
2
3
4
5
test = InStr(1, strNomFile, strMotCle, vbTextCompare)
strValeur = Mid(strNomFile, test)
 
'en 1 ligne
strValeur = Mid(strNomFile, InStr(1, strNomFile, strMotCle, vbTextCompare))

Cdlt

je peaufinerais un peu avec ce code ...

Code :

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

strvaleur = Mid(strNomFile, InStr(1, strNomFile, strMotCle, vbTextCompare), Len(strMotCle))

[Jsiorat]

je peaufinerais un peu avec ce code ...

Code :

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

strvaleur = Mid(strNomFile, InStr(1, strNomFile, strMotCle, vbTextCompare), Len(strMotCle))

Merci à James68 et Thierry

Ca fonctionne !
Vous m'avez bien aidé !

[james68]

Juste au dessus dans mon complément...