Recherche d'une partie du texte en variable

Bonjour,
Mes codes sont de la forme:
40
50
X72
122N
.....
Je voudrais chercher toutes leurs occurrences dans un tableau:

140	CAD
40	TXT
00122	BTN

.....

Pour avoir en rslt:

40	40|140	CAD|TXT
50

....
J'ai essayé ce code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Rplus() For i = 1 To 88 u = "" v = "" For j = 1 To 400 If Cells(i, 1) = Cells(j, 4) Then u = u & "|" & Cells(j, 4) v = v & "|" & Cells(j, 5) Cells(i, 2) = u Cells(i, 3) = v End If Next j Next i End Sub

---

Le problème qu'il me retourne que les codes exacte, càd: pour 40 il ne retourne que 40.
Comment utiliser le joker "*" pour chercher une partie du code.

Bonjour,

voir du côté de la fonction InStr ou de l'opérateur Like …

Autre voie : utiliser la recherche d'Excel, via l'Enregistreur de macro une base de code est livrée sur un plateau !
(méthode Find)      Tout étant documenté dans l'aide VBA interne …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Merci Marc!
c'est tout à fait ça.

Code:

---

If InStr(1, Cells(j, 4), Cells(i, 1))<> 0 Then

---

.
Bonne journée