Discussion :

[bb2008]

Jai un probleme jai les tableaux suivant

produit

a3
a6
a20
...

sur un autre tableau

produit composant

a1 sdflk0
a1 qweqw0
a1 451510
a1 151550
a2 151510
a3 151055
a3 151212
...

Le but etant de trouver les composants associes au produit dans le deuxieme tableaux et de recuperer ces valeurs dans une autre feuille ou fichier


je peux pas effectuer la fonction Vloockup
car il me retourne pour a3 par exemple le premier composant et apres passe a a6

les tableaux sont sur fichiers differants

Comment faire ?
jai pense a creer un script vba avec une boucle mais mes connaissances sont nul et jarrive a rien
Merci pour votre aide.

[ouskel'n'or]

Utilise une boucle avec Find, tu as un excellent exemple dans l'aide en ligne avec très peu de choses à modifier.

Le but etant de trouver les composants associes au produit dans le deuxieme tableaux et de recuperer ces valeurs dans une autre feuille ou fichier

Et une fois trouvés, tu en fais quoi, des composants ?
A+

[bb2008]

Le mieu serait de pouvoir afficher ces composants dans une colonne a cote du premier tableau.
Je vais aller voir la fonction Find. Merci a toi

[ouskel'n'or]

Ok.
Je suppose a1 en colonne A et qweqw0 en colonne B dans les deux feuilles
feuil1 contient a1
feuil2 contient a1 et qweqw0
Je parcours feuil1 et lis chaque cellule de la colonne A
Pour chaque cellule, je cherche l'équivalent dans feuille 2 colonne A
Pour chaque donnée trouvée ds feuil2, je place dans la colonne B de feuil1 ce qui se trouve dans feuil2 colonne B.
Une fois corrigé

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
16
17
Sub Test()
Dim FL1 As Worksheet, FL2 As Worksheet, Cell As Range, c as range
    Set FL1 = Worksheets("feuil1")
    Set FL2 = Worksheets("feuil2")
    For Each Cell In FL1.Range("a1:a" & Cells(Columns(NoCol).Cells.Count, NoCol).End(xlUp).Row)
        With FL2.Range("a1:a" & FL2.Range("a1:a" & Cells(Columns(NoCol).Cells.Count, NoCol).End(xlUp).Row))
            Set c = .Find(Cell, LookIn:=xlValues)
            If Not c Is Nothing Then
                firstAddress = c.Address
                Do
                    Cell.Offset(0, 1) = c.Offset(0, 1)
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> firstAddress
            End If
        End With
    Next
End Sub

Si tu veux d'autres explications...
A+

[bb2008]

Tout est dans le titre mais sincerement merci pour ton aide !!!! -_-

[ouskel'n'or]

Sauf que je t'ai mis une bêtise, remplace "partout" Offset(0,2) par Offset(0,1)