XL 2010 RechercheV VBA via Offset

[Profane]

Bonjour à tous,
voila je souhaites renseigner les cellules d'une plage via une boucle
la colonne de référence n'etant pas forcément la même, je me référe à un offset
mais malheureusement ca ne fonctionne pas
d'avance merci.

Code:
Sub RechercheEquivalenceCode()
Set WS1 = Sheets(Feuil2.Name)

With WS1
For Each c In Range("EG_Calcul")
c.Value = WorksheetFunction.VLookup(.Range("c.Offset(, -1)").Value, ER, 2, False)
Next c
End With
End Sub

 

[pierrejean]

Bonjour Profane

A tester:
c.Value = WorksheetFunction.VLookup(c.Offset(, -1).Value, ER, 2, False)

 

[Profane]

Bonjour Pierrejean
oui j'avais trouvé entre temps sur le forum, mea culpa
j'ai avancé sur le soucis
le code fonctionne ainsi MAIS il ne fait pas ce que je veux au niveau de l offset
je m explique
ce que je voudrais c'est qu'il fasse référence à sa colonne de gauche pour le paramètre de valeur cherchée
je pensais (a tort) que (c.Offset(, -1).Value était la solution
Mais en fait la formule se colle sur la colonne "regardée"

Sub RechercheEquivalenceCode()
Set WS1 = Sheets(Feuil2.Name)
Set WS2 = Sheets(Feuil5.Name)

With WS1
For Each c In Range("EG_Calcul")
c.Value = Application.VLookup(c.Offset(, -1).Value, ER, 2, False)
Next c
End With
End Sub

 

[pierrejean]

Avec un fichier exemple on y verrait plus clair !!!

 

[Profane]

re Pierrejean
j'ai trouvé d'où ca vient, la déclaration en auto dans le gestionnaire de nom de certaines colonnes , ca doublonne ce qui explique l'erreur
merci Pierrejean pour ta patience
Cordialement