Application.WorksheetFunction.VLookup erreur 1004

chris6999

XLDnaute Impliqué
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
 

Pièces jointes

  • test Application.WorksheetFunction.VLookup.xlsm
    334.9 KB · Affichages: 45

jpb388

XLDnaute Accro
Bonjour à tous
Code:
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
 

Discussions similaires

Réponses
1
Affichages
173
Réponses
5
Affichages
165

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib