WorksheetFunction.VLookup pb [Résolu]

Signaler
-
 yumat -
Bonjour,

Pour éviter les boucles, j'utilise WorksheetFunction.VLookup. Impécable! Sauf que, sauf que si l'élément recherché n'est pas dans la liste, la macro passe en bug avec erreur d'éxécution 1004.
Une solution?
Merci

5 réponses

Messages postés
12177
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
26 juin 2020
2 449
Bonjour,

Utiliser, au préalable, WorksheetFunction.CountIf :
https://docs.microsoft.com/fr-fr/office/vba/api/excel.worksheetfunction.countif
Messages postés
12177
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
26 juin 2020
2 449
Tu testes, d'abord, s'il y a 15 dans ta colonne R, grâce à CountIf...
Simplement :
Sub essai()
Dim numligne As Long
If WorksheetFunction.CountIf(Range("R75:R110"), 15) > 0 Then
    numligne = WorksheetFunction.VLookup(15, ActiveSheet.Range("R75:U110"), 4, False)
Else
    MsgBox "15 n'est pas trouvé en colonne R"
End If
End Sub

désolé pijaku mais en me rendant à cette adresse je ne vois absolument pas comment procéder!!!
voila la ligne de code :
numligne = WorksheetFunction.VLookup(15, ActiveSheet.Range("R75:U110"), 4, False)

si le nb 15 n'est pas dans la liste j'ai l'erreur
Peux tu me corriger stp
Un grand merci
Et oui ............ comme tjrs pijaku tu es un génie !!!!!
Cela marche admirablement bien. Si j'ai bien compris je place le contenu de ta macro essai avant ma recherche. Si le N° existe, je continue autrement msgbox d'avertissement et je quitte.

Bon c'est décidé malgré mes 80 ans, quand je serais grand je ferais le même métier que toi c'est tellement beau (mdr)
Un grand merci pijaku tu ne peux t'imaginer le service que tu viens de me rendre.
Je vais pouvoir m'endormir sereinement
Bonne journée et, au risque de me répéter, un grand merci à toi
Messages postés
12177
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
26 juin 2020
2 449
En fait, dans ta macro, remplace ta ligne de VLookup par :

If WorksheetFunction.CountIf(Range("R75:R110"), 15) > 0 Then
    numligne = WorksheetFunction.VLookup(15, ActiveSheet.Range("R75:U110"), 4, False)
Else
    MsgBox "15 n'est pas trouvé en colonne R"
End If
effectivement !!!! je n'avais fait qu'un essai
Bien je modifie mon prg en conséquence
Félicitations pour ta réactivité et, bien sûr, encore merci à toi