Utiliser un joker dans InStr

Bonsoir à tous,

Est-il possible d'utiliser un joker tel que (*) pour retrouver les mots mère ou maire par exemple.

Code:

---

If Instr(1,A$,"m*e") > 0 then MsgBox "Mot Trouvé"

---

Merci.

Code:

---

If A Like "m*e" Then MsgBox "Mot trouvé"

---

Bonsoir mercatog,

J'ai essayé de remplacer cette ligne :

Code:

---

If InStr(1, Item, "SDM5-") = 0 And InStr(1, Item, "LV3-") = 0 Then

---

par ceci :

Code:

---

If Item Like "S*-" And Item Like "L*-" Then

---

Mais le résultat n'est pas le même !

Comment écrire la négation de Like ?

Merci.

Code:

---

If Not (Item Like "S*-") And Not (Item Like "L*-") Then

---

Re,

En voulant intégrer la solution dans mon code, j'ai des résultats chamboulés.

En fait, j'aimerais extraire les six dernier chiffre de chaque ligne de ces donnés :

Citation:

---

SDM5-2112 LV3-34816 011430000
SDM5-2113 LV3-34830 011430014
SDM5-2114 LV3-34839 011430023
SDM5-2115 LV3-34843 011430027
SDM5-2116 LV3-34851 011430035
SDM5-2117 LV3-34858 011430042
SDM5-2118 LV3-34866 011430050
SD5-2119 LV3-34877 011430061
SDM5-2120 LV3-34881 011430065
TOE TIME 121001 1332 PAGE 5
SDM5-2121 LV3-34889 011430073
SDM5-2122
SDM5-2123 LV3-34905 011430089
SDM5-2124 LV3-34913 011430097
SDM5-2125 LV3-34924 011430108

---

Pour la ligne de code :

Code:

---

If InStr(1, Item, "SDM5-") = 0 And InStr(1, Item, "LV3-") = 0 Then

---

ca marchait bien, sauf pour les lignes qui ont des défauts d'écriture, le traitement n'allait pas, tel que la ligne (On trouve le mot SD5 au lieu de SDM5):

Citation:

---

SD5-2119 LV3-34877 011430061

---

Alors je cherchais un truc de joker pour que la comparaison aboutisse.

Mais la ligne de code posté ne donne pas le résultat voulu !

Voila le bout de code utilisé pour extraire les six derniers chiffres de chaque ligne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Do While Continue B$ = Split(Trim(a$), " ") j = 0 For Each Item In B$ If Len(Trim(Item)) > 0 Then 'If InStr(1, Item, "SDM5-") = 0 And InStr(1, Item, "LV3-") = 0 Then If Not (Item Like "S*-") And Not (Item Like "L*-") Then '-- Ecriture dans le feuille LastLg = [A65000].End(xlUp).Row + 1 '-- Enlever le 011 Cells(LastLg, 1) = Right(B$(j), 6) End If End If j = j + 1 Next Item End If '-- Lire une nouvelle ligne Line Input #Canal, a$ '-- Si la ligne commence par le mot TOE If InStr(1, a$, "TOE") > 1 Then Line Input #Canal, a$ ElseIf InStr(1, a$, "END") > 1 Then Continue = False End If Loop

---

Merci.

Ajoute un joker aussi à la fin

Code:

---

If Not (Item Like "S*-*") And Not (Item Like "L*-*") Then

---

Merci mercatog.

Ca marche.

J'ai trouvé une autre solution, et elle est efficace pour le moment :mouarf:

Code:

---

If InStr(1, Item, "-") = 0 And InStr(1, Item, "-") = 0 Then

---

;)