XL 2019 Erreur 1004 propriété vlookup

Dominique-evrard · 30 Mai 2022

Bonjour à tous les membres du forum,

Je tenais à vous remercier pour l'occasion que vous nous donner d'exprimer nos soucis à travers cette plateforme.

Mon souci est le suivant, j'ai une base de donnée avec laquelle je veux exécuter une recherche V dans un userform. A chaque fois que je lance le code, j'obtiens le message figurant ci-dessous.

Comment le résoudre s'il vous plaît ?

PS: je suis débutant dans la programmation VBA

je vous mets le fichier en PJ

Phil69970 · 30 Mai 2022

Le fil

@Dominique-evrard

Dominique-evrard à dit:
Bonjour Phil69970

Merci pour ton aide, mais le problème persiste toujours

Tu es sur ?

Car chez moi cela fonctionne avec ma modif du post # 2 merci de préciser comment tu arrives à ton erreur

*Merci de ton retour

@Phil69970

Phil69970 · 30 Mai 2022

Bonjour @Dominique-evrard

Je te propose ceci :

VB:

Private Sub Tb1_AfterUpdate()
If WorksheetFunction.CountIf(Sheets("BD").Range("A:A"), Me.Tb1.Value) <> 0 Then
    With Me
        .Tb2 = Application.WorksheetFunction.VLookup(CStr(Me.Tb1), Sheets("BD").Range("Tbase"), 2, 0)
        .Tb3 = Application.WorksheetFunction.VLookup(CStr(Me.Tb1), Sheets("BD").Range("Tbase"), 3, 0)
        .Tb4 = Application.WorksheetFunction.VLookup(CStr(Me.Tb1), Sheets("BD").Range("Tbase"), 4, 0)
        .Tb5 = Application.WorksheetFunction.VLookup(CStr(Me.Tb1), Sheets("BD").Range("Tbase"), 5, 0)
        .Tb6 = Application.WorksheetFunction.VLookup(CStr(Me.Tb1), Sheets("BD").Range("Tbase"), 6, 0)
    End With
Else
    MsgBox "Cette immat n'existe pas", vbInformation + vbOKOnly, "Avertissement"
End If
End Sub

*Merci de ton retour

@Phil69970

Dominique-evrard · 30 Mai 2022

Phil69970 à dit:

Bonjour @Dominique-evrard

Je te propose ceci :

VB:

Private Sub Tb1_AfterUpdate()
If WorksheetFunction.CountIf(Sheets("BD").Range("A:A"), Me.Tb1.Value) <> 0 Then
    With Me
        .Tb2 = Application.WorksheetFunction.VLookup(CStr(Me.Tb1), Sheets("BD").Range("Tbase"), 2, 0)
        .Tb3 = Application.WorksheetFunction.VLookup(CStr(Me.Tb1), Sheets("BD").Range("Tbase"), 3, 0)
        .Tb4 = Application.WorksheetFunction.VLookup(CStr(Me.Tb1), Sheets("BD").Range("Tbase"), 4, 0)
        .Tb5 = Application.WorksheetFunction.VLookup(CStr(Me.Tb1), Sheets("BD").Range("Tbase"), 5, 0)
        .Tb6 = Application.WorksheetFunction.VLookup(CStr(Me.Tb1), Sheets("BD").Range("Tbase"), 6, 0)
    End With
Else
    MsgBox "Cette immat n'existe pas", vbInformation + vbOKOnly, "Avertissement"
End If
End Sub

*Merci de ton retour

@Phil69970

Bonjour Phil69970

Merci pour ton aide, mais le problème persiste toujours

Dominique-evrard · 30 Mai 2022

Deadpool_CC à dit:
Bonjour,
Suis pas un spécialiste vba mais
1) dans ton fichier je ne retrouve pas ce code et tbl ... est null part ... sur une feuille que t'as suppr. pour l'anonymisation?)
2) Par contre sur ta capture tu as pour la valeur cherchée "me.tbl" ... je ne suis pas certain que cela te renvoie une valeur unique ... t'as mis un espion sur cette valeur en mode débogage pour voir ce qu'il y avait dedans ?
et tu passes ton code en faisant F8 pour exécuter ligne à ligne
A+

1- Ce code est dispo en cliquant sur la 1ère Textbox de l'userform
2- Non non je n'ai pas mis d'espion sur cette valeur
j'essaie ce que tu m'as dis

Deadpool_CC · 30 Mai 2022

Après ton message d'erreur ajoute un Else

Dominique-evrard · 30 Mai 2022

Deadpool_CC à dit:
Après ton message d'erreur ajoute un Else
Regarde la pièce jointe 1140836

J'ai ajouté le "Else" mais le débogage m'emmène sur la ligne en jaune

Phil69970 · 30 Mai 2022

Le fil

@Dominique-evrard

Dominique-evrard à dit:
Bonjour Phil69970

Merci pour ton aide, mais le problème persiste toujours

Tu es sur ?

Car chez moi cela fonctionne avec ma modif du post # 2 merci de préciser comment tu arrives à ton erreur

*Merci de ton retour

@Phil69970

Deadpool_CC · 30 Mai 2022

en faisant du "pas à Pas" (F8) on s'apercevait que si la plaque est connu tu sortait direct du If. et si inconnu, tu tentais le remplisassage avec ... Erreur Vlookup

Dominique-evrard · 30 Mai 2022

Deadpool_CC à dit:
en faisant du "pas à Pas" (F8) on s'apercevait que si la plaque est connu tu sortait direct du If. et si inconnu, tu tentais le remplisassage avec ... Erreur Vlookup
Regarde la pièce jointe 1140839

Excuse tu peux mieux expliquer ? je saisi pas bien ton commentaire

Deadpool_CC · 30 Mai 2022

Tu testes avec quelle valeur ?
Et en Vba je sais pas mais en formule incluse dans la cellule cette fonction nécéssite que ta matrice dans laquelle tu cherche soit triée par ordre croissant (colonne contenant les données comparées à celle que tu cherche) ... car un fois qu'il a dépassé la valeur, il s'arrete et te renvoie une erreur , même si la valeur est plus bas.

Phil69970 · 30 Mai 2022

Le fil

@Deadpool_CC
Ta solution est exactement celle que je propose au post #1
J'ai simplement modifié

If WorksheetFunction.CountIf(Sheets("BD").Range("A:A"), Me.Tb1.Value) <> 0 Then

et donc l'ordre du "else "

CQFD

@Dominique-evrard n'a surement pas vu la subtilité et n'a surement pas recopié toute la solution que je proposais au post #2 sinon il aurait vu que ma solution fonctionnait !!!

@Phil69970

Deadpool_CC · 30 Mai 2022

@Phil69970 mais dans ce cas le msbbox d'erreur sort à tort ... enfin si j'ai bien compris la logique de ce qu'il voualait faire

Phil69970 · 30 Mai 2022

@Deadpool_CC

Fais l'essai avec mon fichier tu verras bien !

@Phil69970

Dominique-evrard · 30 Mai 2022

Deadpool_CC à dit:
Tu testes avec quelle valeur ?
Et en Vba je sais pas mais en formule incluse dans la cellule cette fonction nécéssite que ta matrice dans laquelle tu cherche soit triée par ordre croissant (colonne contenant les données comparées à celle que tu cherche) ... car un fois qu'il a dépassé la valeur, il s'arrete et te renvoie une erreur , même si la valeur est plus bas.

Je recherche avec la valeur "815"

Deadpool_CC · 30 Mai 2022

@Phil69970 : Dsl ... j'avais pas téléchargé ta solution ... j'avais pas vu que t'avais mis le else plus bas ... lol

@Dominique-evrard : dans le ficher du post #10 cela fonctionne car j'ai trié ton tableau sur la feuille BD

XL 2019 Erreur 1004 propriété vlookup

Dominique-evrard

XLDnaute Nouveau

Pièces jointes

Phil69970

Phil69970

XLDnaute Barbatruc

Dominique-evrard

XLDnaute Nouveau

Dominique-evrard

XLDnaute Nouveau

Deadpool_CC

XLDnaute Accro

Dominique-evrard

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Pièces jointes

Deadpool_CC

XLDnaute Accro

Dominique-evrard

XLDnaute Nouveau

Deadpool_CC

XLDnaute Accro

Pièces jointes

Phil69970

XLDnaute Barbatruc

Deadpool_CC

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

Dominique-evrard

XLDnaute Nouveau

Deadpool_CC

XLDnaute Accro

Discussions similaires