XL 2010 Equivalent rechercheV en VBA

[kan3pz]

Bonjour à tous,
J'ai de nouveau besoin de vos lumières en vba... je souhaite faire l'équivalent d'un rechercheV sur les 3 derniers caractères de données. Ces 3 derniers caractères peuvent être numérique ou sous format texte.
cf. fichier en PJ -> j'ai la solution en formule mais il faudrait que je l'insère dans mon code vba et je n'arrive pas à modifier la fonction Vlookup pour obtenir ce que je veux...

Merci d'avance

 

[pierrejean]

Bonjour Kan3pz

Un essai de fonction personnalisée

 

[DoubleZero]

Bonjour, kan3pz, le Forum,

Comme ceci ?

Option Explicit
Sub Correspondance_insérer()
    Dim c As Range, cc As Range
    For Each c In Range(Range("a2"), Range("a2").End(xlDown))
        Set cc = Sheets("Correspondance").Range("a:a").Find(what:=Right(c, 3))
        If Not cc Is Nothing Then c.Offset(, 1) = cc.Offset(, 1)
    Next
End Sub

A bientôt

P. S. : Bonjour + bises, pierrejean

 

[kan3pz]

Bonjour Pierrejean & DoubleZero,
au top comme d'hab' ça fonctionne nickel !
Merci