XL 2019 Erreur 1004 propriété vlookup

[Dominique-evrard]

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]

Bonjour @Dominique-evrard

Je te propose ceci :

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]

Bonjour @Dominique-evrard

Je te propose ceci :

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]

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]

Après ton message d'erreur ajoute un Else

 

[Dominique-evrard]

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]

Le fil

@Dominique-evrard

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]

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]

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]

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]

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]

@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]

@Deadpool_CC

Fais l'essai avec mon fichier tu verras bien !

@Phil69970

 

[Dominique-evrard]

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]

@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