VLOOKUP dans autre classeur en VBA

[Colombine]

Bonjour à tous,
Encore besoin d'un petit coup de pouce! J'ai du faire une erreur mais je ne sais pas ou.
Mon PB : J'ai 2 classeurs ouverts en simultanés et je recherche une info de l'un sur l'autre-->

dans le classeur 2, je selectionne ma cellule (ligne,colonne BL) , je cherche si elle existe dans mon classeur 1 en colonne S.
Si la valeur existe dans mon classeur 1 je veux mettre 1 dans mon classeur 2 en colonne BM sinon je met 0.
Je refais l'action sur toutes les lignes de mon tableau !

-----------------------------------------------------------------------
Sub Macro1()

Dim MaPlageRecherche As Range
Dim ChercheTest As String
Dim Ws As Worksheet

Worksheets("Listing tests").Select
Derlign = ActiveSheet.UsedRange.Rows.Count
dercol = 64 'Correspond à la colonne BL

i = 3

For i = 3 To Derlign

Set Ws = Workbooks("Classeur2.xls").Worksheets("Listing tests")
With Workbooks("classeur1.xls").Worksheets("cpsuivies")
DerLigne = .Range("A" & .Rows.Count).End(xlUp).Row
Set MaPlageRecherche = .Columns("s:s")
ChercheTest = Ws.Cells(i, 64).Value
Ws.Cells(i, dercol + 1) = Application.VLookup(ChercheTest, MaPlageRecherche, 1, 0)
End With
Next i
End Sub
______________________________________________________________________________

je pense que l'erreur est dans ma ligne en gras mais je ne trouve pas.
Si vous pouviez m'aiguiller ....
Merci beaucoup

 

[job75]

Re : VLOOKUP dans autre classeur en VBA

Bonjour Colombine,

Si D1 est bien une constante (et pas la référence d'une cellule) :

If IsNumeric(Application.Match(F.Cells(lig, 1), F1.[A:A], 0)) And _
  F.Cells(lig, D1).Interior.ColorIndex = 41 Then cel.Offset(, 1) = 1

Si D1 est la référence d'une cellule je vous laisse faire, il faut alors définir le Range...

A+

 

[Colombine]

Re : VLOOKUP dans autre classeur en VBA

et bah voilà, cela fait presque 2 jours que je tourne en rond sur cette programmation !!!

Le programme fonctionne mais les résultats ne sont pas toujours justes.
Je ne comprends pas d'ou vient le problème.
Exemple, si je retire une ligne dans ma feuille "données" dans mon classeur 2, il me met à 0 2 lignes différentes de mon résultat dans classeur 1.

je vais pouvoir m'acheter une perruque à force de m'arracher les cheveux !! rires

j'ai remis les fichiers avec le nouveau programme si quelqu'un veut bien jeter un petit oeil de connaisseur.
Merci beaucoup