Macro Vlookup avec plusieurs tables matrices

Version imprimable

20/03/2013, 16h13
Leodams

Macro Vlookup avec plusieurs tables matrices

Bonjour,

Je cherche à mettre en place sur mon fichier une macro qui permettrait de remplir des champs dans mon tableau.

Je m'explique :
j'ai fait une premier macro qui me permet de faire une recherche dans la premiére base données si elle ne trouve pas la données, je souhaiterais que la recherche se fasse dans la 2éme base de données.

Si vous avez un code assez simple afin que je puisse l'adapter sur mon fichier.

Merci

Bonjour

Code:

1
2
3
4
5
6
7
 Set c = 1ere zone.Find("donnée a chercher", LookIn:=xlValues, LookAt:=xlWhole)
 If Not c Is Nothing Then 
 ligne = c.Row
 else
 Set c = 2eme zone.Find("donnée a chercher", LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then ligne =c.row
end if

Ligne etant le numero de la ligne ou se trouve ta recherche.

Merci pour le code, mais malheureusement il me fait une erreur de syntaxe.

Voici les modifications que j'ai faites:
Code:

1 2 3 4 5 6 7 8 9 Sub test() Set c = 1ere zone.Find("PC MA LOC", LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then ligne = c.Row Else Set c = 2eme zone.Find("INVENTORY", LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then ligne = c.Row End If End Sub
la recherche ci-dessous fonctionne, mais quand je fais la même chose avec le feuille 2 du coup il remplace les valeurs trouvées sur la feuille 1 par les valeurs non trouvées sur la feuille 2 :
Code:

1 2 3 4 5 Sub test() With Sheets("Sheet1") .Range("F2:F200").Value = WorksheetFunction.VLookup(.Range("E2:F200").Value, Sheets("MA PC LOC").Range("A2:AJ21810"), 2, False) End With End Sub
Je vais essayé de creuser ce soir, un peu d'aide ne serait pas de refus.

Merci

20/03/2013, 20h57
keygen08

heu, il faut replacer 1erzone et 2emezone par un truc du genre

Code:

sheets("feuil").range("a1:b3")

pour que "find" sache dans quel plage de cellule chercher la valeur demandée

voici ce que j'ai mis, mais aucun résultat pas même de message d'erreur. Le code doit être bon mais pas pour ce que je recherche:
Code:

1 2 3 4 5 6 7 8 9 sub()test Set c = Sheets("Sheet1").Range("E2:E200").Find("PC MA LOC", LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then ligne = c.Row Else Set c = Sheets("INVENTORY").Range("E2:E200").Find("INVENTORY", LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then ligne = c.Row End If End Sub
Il faudrait que j'arrive à faire un Vlookup classique sauf que je dois ajouter le paramètre " si je ne trouve pas la valeur voulu dans la table 1 je recherche dans la table 2 "
si je trouve la solution pour une colonnes pour les autres ça devrait être simple non ?
L'idée c'est de mettre un valeur pour obtenir les informations dans une cellule.

Je creuse et je crois que je suis presque arrivée au centre de la terre help !

Je précise que la valeur chercher se trouve dans chaque table en colonnes A et que l'information voulu se trouve sur les lignes B2 ou B9 etc....

Bonjour, d'après votre code, la recherche s'effectue dans la colonne E.
Code:

1 2 3 4 5 6 Set c = Sheets("Sheet1").Range("E2:E200").Find("PC MA LOC", LookIn:=xlValues, LookAt:=xlWhole) 'feuille (sheets1).cellule e2:e200. rechercher(pcmaloc) If Not c Is Nothing Then 'si PCmaloc est trouvée ligne = c.Row 'renvoyé le n° de ligne
Citation:

de remplir des champs dans mon tableau.

Une fois la donnée rechercher trouvée, on peut renvoyé la valeur de n'importe quelle cellule de la ligne vers n'importe ou(userform, autre feuille, autre endroit dans la feuille)
Code:

1 2 sheets("tableau").cells(1,1).value = sheets("sheet1").cells(ligne,2).value. 'feuille (tableau).cellule A1=feuille("sheet1").cellule B et le numero de ligne ou était la valeur rechercher dans la colonne E.
Si tu mettais ton code pour voir comment on peut l'arranger.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test1()
Set c = Sheets("Sheet1").Range("E2:E200").Find("PC MA LOC",LookIn:=xlValues, LookAt:=xlWhole)
'Dans la feuille 1 la valeur recherchée se trouve dans la colonnes E la table de matrice MA PC LOC'
If Not c Is Nothing Then
'Si la valeur n'est pas trouvée dans "PC MA LOC" '
ligne = c.Row
Else
Set c = Sheets("Sheet1").Range("E2:E200").Find("INVENTORY", LookIn:=xlValues, LookAt:=xlWhole)
' recherche dans la table des matrice "INVENTORY"
If Not c Is Nothing Then ligne = c.Row
' Lorsque la valeur est trouvée la mettre dans la 'feuille 1' en colonne F'
End If
End Sub

Je ne sais pas si je suis assez clair mais voici le code que j'ai pu faire en deux macros

Code:

1
2
3
4
5
Sub test()
With Sheets("Sheet1")
    .Range("F2:F200").Value = WorksheetFunction.VLookup(.Range("E2:F200").Value, Sheets("MA PC LOC").Range("A2:AJ21810"), 2, False)
End With
End Sub

Code:

1
2
3
4
5
Sub test()
With Sheets("Sheet1")
    .Range("F2:F200").Value = WorksheetFunction.VLookup(.Range("E2:F200").Value, Sheets("INVENTORY").Range("A2:AJ21810"), 2, False)
End With
End Sub

Sauf que lorsque je les exécute une par une les macros, il m’enlève les valeurs trouvées dans la feuille PC MA LOC et vice versa.

C'est compliqué mais pour le coup ça devient super intéressant et je commence à étudier le code VBA.

En tout cas merci

21/03/2013, 20h18
keygen08

Vous pourriez me faire une copie alleger et me le mettre en fichier joint parce que là, on vas pas s'en sortir. Indiquer moi le resultat a obtenir.
C'est, je crois, très simple mais on ne se comprend pas.
4 ou 5 ligne suffise.
21/03/2013, 21h02
Leodams

1 pièce(s) jointe(s)

J'ai fait un fichier assez simple pour que vous puissiez comprendre.

Lancez Code1 et Code2 et je recherche une façon d'en faire qu'un qui va rechercher les informations.

Je pense que vous allez vite comprendre que je suis vraiment novice:mouarf:

1 pièce(s) jointe(s)

Bonjour
Se mettre sur la feuille sheets1 et lancer la macro devellopez.
Le code est contenue dans module 1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub devellopez()
Dim cell As Range
 
For Each cell In Sheets("sheet1").Range("e1:e" & Sheets("sheet1").Range("e65000").End(xlUp).Row)
 
Set c = Sheets("PC MA LOC").Range("a:a").Find(cell, LookIn:=xlValues, LookAt:=xlWhole)
 If Not c Is Nothing Then
 Sheets("sheet1").Cells(cell.Row, 6) = Sheets("PC MA LOC").Cells(c.Row, 5)
 Else
        Set c = Sheets("inventory").Range("a:a").Find(cell, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then Sheets("sheet1").Cells(cell.Row, 6) = Sheets("PC MA LOC").Cells(c.Row, 5)
End If
Next cell
 
End Sub

Bonne soirée

22/03/2013, 17h10
Leodams

Bonjour,

Merci maintenant que tu m'as donné une base, je vais pouvoir continuer pour les autres champs.

encore merci de ton aide:P

:ccool: