formule de recherche sur excel

[huître]

bonjour j'ai un souci

je vous expose le probleme

j'ai un tableau contenant deux colonnes sur la feuille 1:
-indice routier sous format texte
-le nom de l'entreprise à coté

et un deuxieme tableau contenant 3 colonnes contenant:
-les indices routiers accompagnés d'info supplementaires sous format txt
(nb ce sont des des libellés)

donc alors dans ce deuxieme tableau je voudrais dans la ligne en dessous du libellé extraire pour chaque cellules tout les nom des entreprise qui sont relative à indice routier du deuxieme tableau (j'avoue que c'est compliqué^^)

alors comme je ne manipule pas excel j'ai crée le code suivant sur un exemple simple mais ca ne marche pas

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
 
 
 
Dim derligne As Long
derligne = Sheets("feuil2").Range("a65536").End(xlUp).Row
 
For i = 1 To derligne
For j = 1 To 3
If Sheets("feuil2").Cells(i, 1) = Left(Cells(1, j), 3) Then
Cells(2, j) = sheets("feuil2").cells(i,2)
End If
Next j
Next i
End Sub

enfin je n'ai pas d'erreur mais la procedure ne donne aucun résultat

est qu'il existe simplement une formule excel
merci d'avance

[huître]

je vais l'exporter sur le forum vba access

[Pierre Fauconnier]

Salut.

Il me semble que le filtre avancé devrait te convenir. Il permet d'extraire des données en fonction de critères calculés ou non...