Discussion :

[JechercheT]

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 :

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

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.

[Marc-L]

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, …

[JechercheT]

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

Code :

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

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

.
Bonne journée