rechercheV en vba

[mic41]

Bonjour,

Je tente d'utiliser un rechercheV sur Un TCD qui va contenir de plus en plus de colonnes.
Je recherche la valeur qui est située dans la colonne A de ce TCD et j'utilise ce code qui ne marche pas :

Cells.Find(What:="Total général").Activate
ActiveCell.Offset(1, 1).Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(.range(A3).Value,HISTO!C[-18]:C[-17],2,FALSE)"

Le problème se trouve dans le Vlookup pour lui indiquer que je veut selectionner la cellule A3.
Pourriez vous me donner un petit coup de main?

Merci a toutes et à tous.

 

[Pierrot93]

Re : rechercheV en vba

Bonjour,

essaye peut être ainsi, non testé...

ActiveCell.FormulaR1C1 = "=VLOOKUP(" & .range(A3).Value & ",HISTO!C[-18]:C[-17],2,FALSE)"

Attention le point devant le "range" suppose que tu es dans un bloc "with", nous ne devons pas avoir tout le code...

bon après midi
@+

 

[mic41]

Re : rechercheV en vba

petite rectification.
La recherchev ne s'effectue pas dans un TCD mais dans un feuillet simple.

 

[mic41]

Re : rechercheV en vba

bonjour pierrot,

je n'utilise pas de with dans mon code. Le point est présent car j'ai testé toutes les solutions possibles et imaginables!

En tout cas merci pour ton aide car ton code me permet d'utiliser la valeur de la colonne A donc voilà pour ceux que ça intéresse (ya juste à rajouter les guillements"):

ActiveCell.FormulaR1C1 = "=VLOOKUP(" & Range("A3").Value & ",HISTO!C[-18]:C[-17],2,FALSE)"

bonne aprem egalement et encore merci 🙂

mic