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
mecri de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager