Macro recherve V

Question

Bonjour à tous et d'avance merci de votre aide

Je souhaiterais créer une Macro entre une base de données (tarif2018) et mon fichier (BaseTarif201804).

Je souhaiterais ceci :

Sub test()

Dim Cel As Range

Set Cel = Sheets("BaseTarif201804").Range("A2:A2000").Find(What:=Sheets("tarif2018").Range("B"), _

LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)

ici je cherche à faire cette recherche V =RECHERCHEV(A:A;tarif2018.xlsx!$1:$1048576;2;FAUX)

If Cel Is Nothing Then

Sheets("BaseTarif201804").Range("A") = Delete (je souhaiterais que si il ne trouve pas de correspondance il me supprime la ligne)

Else

Sheets("BaseTarif201804").Range("C") = Cel

End If

End Sub

et petit bonus, j'en demande sûrement beaucoup je voudrais que les lignes qui n'existent pas dans mon fichier (BaseTarif201804) soit trouvées dans le fichier ("tarif2018")

Yvouille · Answer

Tes fichiers brillent par leur absence Selon moi la formule =RECHERCHEV(A:A;tarif2018.xlsx!$1:$1048576;2;FAUX) ne peux pas fonctionner, il y a probablement plus d'une erreur, mais je ne vais pas les chercher sans tes fichiers à disposition. Cordialement...