Bonjour à tous
J'ai un fichier avec deux onglets je souhaiterais à partir d'un code VBA rechercher une valeur (unique) se trouvant dans les deux feuilles et prendre sa date que je reporte sur la feuille BASE à la colonne K
Voici ce que j'ai essayé mais j'ai un message d'erreur.
J'ai un fichier avec deux onglets je souhaiterais à partir d'un code VBA rechercher une valeur (unique) se trouvant dans les deux feuilles et prendre sa date que je reporte sur la feuille BASE à la colonne K
Voici ce que j'ai essayé mais j'ai un message d'erreur.
Code:
[/Sub recherchev()
Dim F1, F2 As Worksheets
Set F1 = BASES
Set F2 = SOLDE
Application.ScreenUpdating = False
With F1
derlig = .Cells(.Rows.Count, "D").End(xlUp).Row
For i = 3 To derlig
.Range("K" & i).Value = WorksheetFunction.VLookup(.Range("J" & i).Value, F2.Range("E3:F20000"), 2, False)
Next i
End With
End Sub
CODE]
Puisque mon fichier à plus de 50000 lignes comment rendre cette recherche plus rapide.
Merci d'avance pour vos réponses