fonct° vlookup() et address() ???

Mr Bizon · 21 Octobre 2005

Bonjour tout le monde,

j'essaye désespéremment de faire une combinaison de deux
fonction vlookup() et address() et visiblement la syntaxe n'est pas bonne :
j'ai deux tableaux dans deux feuilles différentes et je veux automatiser la recherche verticale.

Le mieux c'est de donner un exemple

worksheets('feuil1').activate
Set a = range('A1').currentregion 'tableau 1 où je cherche les données
worksheets('feuil2').activate
Set b = range('A1').currentregion 'tableau 2 où je compare les données
Set c = range('A15').entirerows(b.count)

c.formula = '=vlookup('&a.address,b.address,2, faux&')'

visiblement il ya un pb de syntaxe dans cette dernière équation !??

merci pour les conseils avisés!!!!!

:ermm:

Robert · 21 Octobre 2005

Bonsoir Mr Bizon, bonsoir le forum,

Je n'ai pas compris ce qu'étais la plage c... Alors, dans le doute, je t'envoie cette proposition :

Sub Macro1()
Dim a As Range, b As Range, c As Range
Dim cel As Range

Worksheets('feuil1').Activate
Set a = Range('A1').CurrentRegion 'tableau 1 où je cherche les données
Worksheets('feuil2').Activate
Set b = Range('A1').CurrentRegion 'tableau 2 où je compare les données
b.Name = 'tableau' 'nomme la plage b
Set c = Range('A15') 'définit la plage c
'boucle sur toutes le cellules de la plage a
For Each cel In a
c.Formula = '=vlookup(Feuil1!' & cel.Address & ',tableau,2,false)'
Set c = c.Offset(0, 1) 'redéfinit la plage c
Next cel
End Sub

fonct° vlookup() et address() ???

Mr Bizon

Guest

Robert

XLDnaute Barbatruc

Discussions similaires