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
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