message erreur

Question

message erreur

Anonyme

Bonjour,

pour une recherche utilise la fonctiion VLookup :

Application.WorksheetFunction.VLookup(cherch, tabl, colo, False)

je veux envoyer un message d'erreur lorsqu'il n'y a pas de valeur correspondante. Ai essayé :

If IsError(Application.WorksheetFunction.VLookup(cherch, tabl, colo, False)) Then MsgBox....

mais j'ai le message suivant : <Impossible de lire la propriété VLookup de la classe WorksheetFunction.>

pourquoi ? Que mettre

merci, cordialement

Richard

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires

Réponse acceptée par l’auteur de la question

DanielCo 107.7K

Bonjour,

Au lieu d'utiliser la fonction "WorksheetFunction.VLookup" (qui est la fonction Excel RECHERCHEV), tu peux utiliser la fonction VLookup de la bibliothèque VBA "Application.VLookup". Tu peux alors utiliser "IsError" :

If IsError(Application.VLookup(cherch, tabl, colo, False)) Then

Daniel

0 commentaires

3 réponses supplémentaires

Answer 1

Anonyme

parfait comme d'hab

merci

richard

0 commentaires

Answer 2

Anonyme

merci pour ta réponse, mais cela ne fonctionne pas, quand le pgr arrive sur Valeur = ai le message :

0 commentaires

Answer 3

Hecatonchire 53,870 Modérateur bénévole

Bonjour

Sub test()

On Error Resume Next 

Valeur = Application.WorksheetFunction.VLookup(3, Range("A1:B4"), 2, False) 

If Err.Number = 1004 Then 

    MsgBox "Pas trouvé" 

Else 

    MsgBox "Trouvé : " & Valeur 

End If 

On Error GoTo 0

End Sub

0 commentaires