RECHERCHEV en VBA

[jip31]

Bonjour


Dans le fichier joint, je souhaite qu'en colonne F2 à F100, je souhaite récupérer la valeur de la colonne AB en fonction des éléments se trouvant dans les colonnes E et AA.
Pour résumé, je souhaite faire une fonction me permettant de dire que si dans la colonne AA se trouve un élément identique à la colonne E alors la fonctionne récupére la valeur de la colonne AB correspondante.
Il s'agit du premier point, le second étant que je souhaite ecrire cette fonction en VBA
En gros il me faut un code me permettant d'écrire cette fonction dans F2:F100
Quelqu'un peut t'il m'aider SVP?? 😱

 

[mapomme]

Re : RECHERCHEV en VBA

Bonsoir jip31,

Essayez ce code:

Sub Completer()
Dim plage As Range
Set plage = Sheets("Feuil1").Range("E2", Sheets("Feuil1").Cells(Rows.Count, "e").End(xlUp))
plage.Offset(0, 1).FormulaR1C1 = "=IF(ISNA(VLOOKUP(RC[-1],R1C27:R200C28,2,FALSE)),"""",VLOOKUP(RC[-1],R1C27:R200C28,2,FALSE))"
plage.Offset(0, 1) = plage.Offset(0, 1).Value
End Sub

edit: Modif suite aux pertinentes remarques de Job75

 

[job75]

Re : RECHERCHEV en VBA

Bonjour jip31, mapomme 🙂

@ mapomme : si Feuil1 n'est pas la feuille active, il y aura problème.

Ecrire plutôt :

Set plage = Sheets("Feuil1").Range("E2", Sheets("Feuil1").Cells(Rows.Count, "e").End(xlUp))

A+

 

[mapomme]

Re : RECHERCHEV en VBA

Bonjour à tous,

Bonjour jip31, mapomme 🙂
@ mapomme : si Feuil1 n'est pas la feuille active, il y aura problème.
A+

Merci d'avoir relevé ma bévue, Job75 . Mea culpa, mea culpa, mea maxima culpa 😱

 

[job75]

Re : RECHERCHEV en VBA

Re mapomme,

Tu as mal copié (interprété) mon code :

Set plage = Range(Sheets("Feuil1").Range("E2"), Sheets("Feuil1").Cells(Rows.Count, "e").End(xlUp))

risque encore de poser problème car la feuille n'est pas définie pour le 1er Range...

Edit : non ça ne posera pas de problème, mais ce 1er Range est bien lourd.

A+

 

[mapomme]

Re : RECHERCHEV en VBA

bonsoir job75 🙂

Re mapomme,
mais ce 1er Range est bien lourd.A+

Il est à mon image que je ne divulguerai pas! 😉

 

[job75]

Re : RECHERCHEV en VBA

Bonjour mapomme, le fil,

non ça ne posera pas de problème

Il y aura quand même problème si la macro n'est pas dans un Module Standard ou en Feuil1.

A+

 

[mapomme]

Re : RECHERCHEV en VBA

Bonjour job75 🙂

C'est pas faux! 🙁 Bon je m'en retourne jouer avec mon seau et ma pelle dans le bac à sable. 😱

 

[jip31]

Re : RECHERCHEV en VBA

Bonjour à tous

merci pour votre aide ca marche nickel 😀
derniere question est ce que quelqu un pourrait m ecrire la formule de recherche en mode normal (pas en VBA)
ex : =recherchev(......)
encore merci à tous!

 

[job75]

Re : RECHERCHEV en VBA

Re,

Si dans la macro de mapomme vous supprimez la dernière ligne :

plage.Offset(0, 1) = plage.Offset(0, 1).Value

vous verrez les formules en colonne F.

A+

 

[jip31]

Re : RECHERCHEV en VBA

merci beaucoup job75 😀