Vlookup

[chloe1992]

Bonjour,
je rencontre un nouveau problème, dans une de mes macro je fais une recherche V mais je voudrais que la rechercheV se fasse sur 2 critères voici mon code


Dim x, f


Set f = Sheets("Feuil1")
On Error Resume Next

lig_fin = Cells(Cells.Rows.Count, "A").End(xlUp).Row
For I = lig_fin To 2 Step -1



Set x = f.Range("H2:H" & f.[H65000].End(xlUp).Row)
x = Application.WorksheetFunction.VLookup((Cells(I, 8)), Sheets("Camion").Range("A$2:C$100"), 3, False)
ci dessous le deuxième critère que j'aimerai que la rechercheV vérifie
(y = Application.WorksheetFunction.VLookup((Cells(I, 9)), Sheets("Camion").Range("A$2:C$100"), 3, False)

Cells(I, 3) = x

Merci

 

[Orodreth]

Re : Vlookup

Bonjour,

J'ignore si ça va t'aider, dans la mesure où ton post manque pas mal de certains détails (classeur exemple est une bonne idée), mais une astuce pour utiliser un RECHERCHEV sur deux critères en même temps est de concaténer les critères en question.

Ainsi, ta ligne VBA devrait ressembler à ceci:

    x = Application.WorksheetFunction.VLookup( (Cells(I, 8) & " " & cells(I,9), Sheets("Camion").Range("A$2:D$100"), 4, False)

En ayant au préalable changer ton tableau pour que la première colonne soit la concaténation des champs qui t'intéressent.

Cordialement,

 

[Pierrot93]

Re : Vlookup

Bonjour,

petite remarque au passage, tu initialises 2 fois ta variale x :

Set x = f.Range("H2:H" & f.[H65000].End(xlUp).Row)
x = Application.WorksheetFunction.VLookup((Cells(I, 8)), Sheets("Camion").Range("A$2:C$100"), 3, False)

pour ton problème de recherche, plutôt que d'utiliser la fonction de feuille de calcul "VLookup", per so j'utiliserais la méthode "Find" native dans vba.... Regarde l'aide dans vba sur l'utilisation de la méthode, devrait t'aider à avancer...

bonne journée
@+

Edition : bonjour Orodreth🙂

 

[chloe1992]

Re : Vlookup

Merci pour vos réponses rapides je regarde de suite.

 

[Orodreth]

Re : Vlookup

Re,

Bonjour Pierrot 🙂

 

[chloe1992]

Re : Vlookup

Parfait ça marche (avec une transformation des données en format Texte) merci beaucoup et je vais me renseigner sur la méthode Find.