XL 2010 Equivalent rechercheV en VBA

kan3pz · 20 Janvier 2017

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 · 20 Janvier 2017

Bonjour Kan3pz

Un essai de fonction personnalisée

DoubleZero · 20 Janvier 2017

Bonjour, kan3pz, le Forum,

Comme ceci ?

VB:

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 · 20 Janvier 2017

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

XL 2010 Equivalent rechercheV en VBA

kan3pz

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

DoubleZero

XLDnaute Barbatruc

kan3pz

XLDnaute Occasionnel

Discussions similaires

XL 2010 Equivalent rechercheV en VBA

kan3pz

XLDnaute Occasionnel

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

DoubleZero

XLDnaute Barbatruc

kan3pz

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency