Chercher une chaine de car. dans une cellule

la fonction instr(chaine,rangt,chaine recherchée)
devrait d'aider.

elle renvoie la position de la chaine recherchée dans la chaine ou l'on recherche et a partir d'un numéro de caractère

exemple:
instr("ceci est un exemple",14,"e")
renvoie 15
ou instsr("ceci est un exemple",1,"e") renvoie 2

l'utilisation des fonction mid,left ou right permet ensuite d'extraire ce que tu veux

Bonne chance

Merci pour ta solution, sousou, mais j'ai quelques souçis pour l'appliquer ...

If InStr(Produit, 1, Produit1) > 0 Then etc ... n'est pas "supporté", le débogueur m'indique "type incompatible" or, mes variables Produit et Produit1 sont des "strings" ...

Pourrais-tu me dire ce que j'ai raté ??

Merci pour ton aide ...

Noël

Bonjour Noël et le forum,

La syntaxe indiquée par sousou n'était pas tout à fait correcte. Il faut inverser les deux premiers paramètres :

If InStr(1, Produit, Produit1) > 0 Then etc ...


Slts

wape

Bonsoir,

pour plus de renseignements sur cette fonction, aide de microsoft dans VBA :
InStr, fonction, exemple
Cet exemple utilise la fonction InStr pour renvoyer la position de la première occurrence d'une chaîne dans une autre chaîne.

Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' Chaîne dans laquelle s'effectue la
' recherche.
SearchChar = "P" ' Recherche la chaîne "P".

' Une comparaison sans respect des majuscules et des minuscules commence ' à la position 4 et renvoie 6.
MyPos = Instr(4, SearchString, SearchChar, 1)

' Une comparaison avec respect des majuscules et des minuscules commence ' à la position 1 et renvoie 9.
MyPos = Instr(1, SearchString, SearchChar, 0)

' Par défaut (lorsque le dernier argument est omis),la recherche respecte ' les majuscules et les minuscules.
MyPos = Instr(SearchString, SearchChar) ' Renvoie 9.

MyPos = Instr(1, SearchString, "W") ' Renvoie 0.

Merci à tous pour votre aide ... les différentes contributions m'ont aidées à faire fonctionner ma recherche ...

Merci !

Noël