Fonction VLOOKUP avec Macro

[Cyrille68]

Bonjour à tous,

Tout d'abord Merci à Jean-Marie, Christophe, Thierry et Cathy pour leur nombreuses réponses...

Je souhaite utiliser un genre de "Recherche verticale" (VLOOKUP) avec une macro.
C'est a dire que si une valeur existe dans une série, il me faut la valeur de la colonne d'à côté.

Ca donne cela mais y'a un soucis...

Merci beaucoup pour votre aide...

Cyrille


Dim c As Range
Dim d As Range

For Each c In Worksheets("Resultat").Range("b2:b10")
For Each d In Worksheets("data").Range("b2:b10")
If c.Value = d.Value Then
d.Offset(0, 1).Copy
Sheets("Resultat").Select
c.Select
ActiveSheet.Paste

Next d
Next c

End Sub

 

[Ti]

tu supprimes un for each !

Set d = worksheets("data").Range("b2")
For Each c In Worksheets("Resultat").Range("b2:b10")
If c.Value = d.Value Then
d.Offset(0, 1).Copy c
Set d = d.Offset(1,0)
Next c

 

[Cyrille68]

Salut Ti,

Y'a un bug... Il me dit qi'il y a un problème avec le Next...

 

[Elve]

Salut,

Voila un 'tit programme qui pourrait t'aider.
IL y adeux boutons.
Le premier fait ta recherche sur 10 lignes pour 10 lignes.
le deuxieme fait ta recherche sur un nombre variable de ligne pour un nombre variable de ligne.

Elve

 

[Ti]

désolé Cyrille, il faut dire que je t'ai écrit ça directement dans la fenêtre sans tester, et j'ai oublié de mettre le test sur une seule ligne (sinon il attend un End If). Mais en modifiant comme ça ça devrait marcher -

Set d = worksheets("data").Range("b2")
For Each c In Worksheets("Resultat").Range("b2:b10")
If c.Value = d.Value Then d.Offset(0, 1).Copy c
Set d = d.Offset(1,0)
Next c

 

[lesuisse]

Bonjour Elve et Ti, le forum

Merci pour toutes ces bonnes et précieuses infos !

Bonne journée à vous

Le Suisse