Recherchev en vba

[sevy1]

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.

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

 

[sevy1]

Re : Recherchev en vba

Bonjour à tous
Prière de m'excuser pour la réponse tardive je n'ai pas pu me connecter.
Pour la fonction personnalisée de JB je n'arrive pas à l'étendre après avoir modifié le champ j'ai un message d'erreur qui me dit que je ne peux pas modifier une partie de la matrice.
Comment faire

 

[gosselien]

Re : Recherchev en vba

Tu édites et tu copies la formule par CTRL-C, tu sélectionnes toute la zone où est la formule, tu deletes, tu fais CTRL-V pour la recoller et puis tu valides en matriciel donc 3 touches: CTRL-Maj-Enter ce qui mettra des {} en début et fin de formules

P.