[XL-2010] Automatiser un RechercheV en VBA

J'ai essayé cela mais j'obtiens une erreur :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Test()

Dim SourceLastRow As Long
Dim OutputLastRow As Long
Dim fichierARemplir As Worksheet
Dim fichierBase As Worksheet

'Nom des feuilles
Set fichierARemplir = Worksheets("Feuil1")
Set fichierBase = Worksheets("Feuil2")

'Dernière ligne du fichier d'entrée
With fichierARemplir
    SourceLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
End With

With fichierBase
    'Détermine dernière ligne dans la colonne B
   OutputLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
    .Range("B & SourceLastRow").Formula = _
   "=VLOOKUP(B2,'" & fichierBase & "'!$A$2:$B$" & OutputLastRow & ",2,0)"
End With


End Sub

"Erreur d'exécution 438 : Propriété ou méthode non gérée par cet objet".

Je n'arrive pas à savoir comment faire pour appliquer la formule pour récupérer les valeurs de la colonne de l'autre feuille sur toute ma colonne jusqu'à la dernière ligne...

Edit : j'arrive désormais à afficher uniquement des "0" dans ma colonne. Ca ne récupère pas les valeurs mais ça ne m'affiche plus d'erreurs :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub MakeFormulas()
 
Dim SourceLastRow As Long
Dim OutputLastRow As Long
Dim fichierARemplir As Worksheet
Dim fichierBase As Worksheet
 
'Nom des feuilles
Set fichierARemplir = Worksheets("Feuil1")
Set fichierBase = Worksheets("Feuil2")
 
'Dernière ligne du fichier d'entrée
With fichierBase
    SourceLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
End With
 
' MsgBox SourceLastRow
 
With fichierARemplir
    'Détermine dernière ligne dans la colonne B
   OutputLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
    .Range("B2:B" & SourceLastRow).Formula = _
   "=VLOOKUP(B2,'" & fichierBase.Name & "'!$A$2:$B$" & OutputLastRow & ",2,0)"
End With
 
 
End Sub

Edit n°2 : Problème résolu ! Pour ceux que ça pourrait aider voici le code..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub MakeFormulas()
 
Dim SourceLastRow As Long
Dim OutputLastRow As Long
Dim fichierARemplir As Worksheet
Dim fichierBase As Worksheet
 
'Nom des feuilles
Set fichierARemplir = Worksheets("Feuil1")
Set fichierBase = Worksheets("Feuil2")
 
'Dernière ligne du fichier d'entrée
With fichierBase
    SourceLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
End With
 
' MsgBox SourceLastRow
 
With fichierARemplir
    'Détermine dernière ligne dans la colonne B
   OutputLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
 
    .Range("B2:B" & OutputLastRow).Formula = _
   "=VLOOKUP(A2,'" & fichierBase.Name & "'!$A$2:$B$" & SourceLastRow & ",2,0)"
End With
 
 
End Sub

J'avais mis le mauvais référentiel en commun dans la formule et avais inversé les 2 longueurs de colonnes. Il me reste plus qu'à trouver un moyen pour que je puisse réaliser cela même si je supprime/rajoute des colonnes.