rechercheV avec colonne variable
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
