Discussion :

[Scrabblouille]

Bonjour,

Je dispose d'un fichier (Ajout_ref ci-joint) dans lequel je souhaite compléter la colonne "Imputation" avec les valeurs de la colonne 4 d'un autre fichier (References également ci-joint).
J'ai pensé qu'il serait plus simple d'utiliser vlookup que de faire des find en recopiant les valeurs trouvées mais je coince malgré des recherches sur le web.
Voici le code que j'ai écrit

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
16
17
Option Explicit
Sub Ajout_ref()
 
Dim references As Workbook
Dim L As Integer
 
Set references = Workbooks.Open("d:\vba\references.xls")
references.Sheets("Imputation compta").Columns("A:D").Name = "BaseNumeros"
 
For L = 2 To 6 Step 1
    Cells(L, 4) = Application.WorksheetFunction.VLookup(Cells(L, 1), references.Range("BaseNumeros"), 4, False)
Next L
 
references.Close savechanges:=False
Set references = Nothing
 
End Sub

Quelqu'un saurait-il m'éclairer sur ce qui ne va pas ?

Amicalement