Application.WorksheetFunction.VLookup erreur 1004

[chris6999]

Bonjour

J'essaye de faire remonter dans dans mon USERFORM des données renseignées dans l'onglet DVD en utilisant Application.WorksheetFunction.VLookup. (recherche V)

Je ne comprends pas pourquoi j'ai une erreur de type 1004. Comme s'il ne trouvait pas de mach!

A priori ce problème est souvent évoqué sur les forums mais je n'ai pas trouvé la solution qui correspond.
Pourtant j'ai testé pas mal de choses..

J'espère que vous pourrez y voir plus clair que moi :

Le principe je pars de la feuille TEST je clique sur le bouton pour que l'USF s'affiche.
Je saisis le code dans mon textbox nommé MAJ_CODE.
Ce code correspond aux données de ma feuille DVD colonne B
Je clique sur le bouton pour faire remonter les données :
dans mon exemple le nom du DVD dans le textbos MAJ_NOM_DVD

Merci d'avance pour votre aide

 

[Chris24]

Bonjour

un essai sur ton fichier

Cdt

 

[jpb388]

Bonjour à tous

Private Sub RECUPERER_DONNEES_Click()

'si CODE renseigné fait remonter

'vérifie que le code existe
Dim code$, P As Range, R&, myRange As Range
R = MAJ_CODE.Value
Set P = Sheets("DVD").Range("B3:B5000") '=====>>> définis ici TA plage
N = Application.WorksheetFunction.CountIf(P, R)

If N = 0 Then
MsgBox ("ce code est inconnu. Veuillez essayer avec un nouveau code.")
MAJ_CODE = ""
Exit Sub
End If


Set myRange = Sheets("DVD").Range("BD_DVD")
MAJ_NOM_DVD = Application.WorksheetFunction.VLookup(R, myRange, 2, False)
'MAJ_NOM_DVD = Application.WorksheetFunction.VLookup(MAJ_CODE.Value, Sheets("DVD").Range("BD_DVD"), 2, 0)

End Sub

le r était en string

 

[chris6999]

Merci à tous les deux.
Vos propositions fonctionnent nickel.
Trsè bon week end