[XL-2007] rechercheV avec colonne variable [Résolu]

[lokura]

bonjour experts,
je suis débutant en vba et j'éssaie de faire une rechercheV avec une colonne variable mé ça ne marche pas;
ci dessous le code que j'ai ecrit

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub neto()
Dim variable As Range
Dim source As Range
Dim K As String
Dim i As Integer
Sheets("B").Activate
K = Sheets("B").Cells(1, A).End(xlToRight).Column + 1
Set variable = Sheets("B").Range("A2:A6")
Set source = Sheets("A").Range("A2:B6")
For i = 2 To 6
With Application.WorksheetFunction
Cells(i, K).Value = Application.VLookup(variable, source, 2, False)
End With
Next i
End Sub

mecri de votre aide

[jfontaine]

Bonjour,

Le premier argument d'un VLookup ne peut etre une page de cellule.
La formule attend une valeur à chercher

Code :

Cells(i, K).Value = Application.VLookup(Sheets("B").Range("A" & i).Value, source, 2, False)

[lokura]

ça marche maintenant
je vous remercie de votre collaboration