VBA - VLOOKUP - Propriété ou méthode non géré par cet objet

Bonsoir,

J'essaie tout simplement d'utilise la fonction VLOOKUP dans Excel, j'ai systématiquement un message d'erreur.

Que ce soit en partant de rien ou en essayant d'adapter des codes trouvés sur internet j'ai des erreurs 1004 ou ou 438.

J'essaie de rechercher la chaque valeur présente dans la 'feuille Regroupement' [Colonne A] dans la feuille 'Formulaire bota' Plage [C:D] en prenant comme résultat ce qui est renseigné dans la [colonne C].

En l'occurrence voici les codes que teste et modifie :

Dim fb As Worksheet, sa As Worksheet, re As Worksheet

Private Sub CommandButton1_Click()

Dim lrsa As Long, lrre As Long

Set fb = Worksheets("Formulaire bota")
Set sa = Worksheets("Saisie")
Set re = Worksheets("Regroupement")

re.Cells(1, 2) = fb.Cells(1, 4).Value
lrre = re.Cells(Rows.Count, 1).End(xlUp).Row

Dim i As Integer, v As Variant
With Worksheets("Regroupement")
For i = 2 To lrre
  v = Application.WorksheetFunction.VLookup(.Cells(i, 1), .Sheets("Formulaire bota").Range("C:D"), 2, 0)
  .Cells(i, 2) = IIf(IsError(v), 0, v)
Next
End With

For i = 2 To lrre
On Error Resume Next
re.Range("B" & i).Value = Application.WorksheetFunction.VLookup(re.Range("A" & i).Value, fb.Range("C:C"), 3, False)
Next

End sub

'Dim Plage01 As Range, res01 As Range
'With Sheets("Regroupement")
'    Set Plage01 = .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp))
'End With
'With Sheets("Formulaire bota")
'    For Each res01 In Plage01
'        res01.Offset(, 1) = Application.VLookup(res01.Value, .Range(.[C1], .Cells(.Rows.Count, 1).End(xlUp)), 1, 0)
'    Next res01
'End With

Vous sauriez ce qui cloche ?

J'ai mis un fichier en PJ qui montre bien les erreurs...

Bonne fin de journée !

Bonjour,

il y a un point en trop,

v = Application.WorksheetFunction.VLookup(.Cells(i, 1), .Sheets("Formulaire bota").Range("C:D"), 2, 0)

remplacer par

v = Application.WorksheetFunction.VLookup(.Cells(i, 1), Sheets("Formulaire bota").Range("C:D"), 2, 0)

Bonsoir,

Merci pour votre aide ! Visiblement si la recherche n’aboutit pas, Excel renvoi la même erreur visiblement

Edit :

On Error Resume Next

...

Merci beaucoup !