Menu

Erreur suite à Recherche V [Résolu]

thyroox 21 Messages postés jeudi 27 juillet 2017Date d'inscription 2 mai 2018 Dernière intervention - 15 sept. 2017 à 10:00 - Dernière réponse : thyroox 21 Messages postés jeudi 27 juillet 2017Date d'inscription 2 mai 2018 Dernière intervention
- 15 sept. 2017 à 12:33
Bonjour la communauté,


Suite à mon code qui permet de réaliser une rechercheV, je me rends compte que mon code s’arrête lorsqu'il ne trouve pas de valeur et me fait donc apparaitre un message d'erreur (voir image) "erreur d'exécution 1004 : impossible de lire la propriété Vlookup de la classe WorksheetFunction."


Je souhaite donc que mon code continue malgré qu'il n'y ai pas de correspondance et me face apparaitre "aucune donnée".

Dim DL As Integer
Dim X As Integer

DL = Cells(Application.Rows.Count, "A").End(xlUp).Row
For X = 2 To DL
        
    
With Sheets("NOUVEAU")

.Range("L" & X).Value = WorksheetFunction.VLookup(.Range("K" & X).Value, Sheets("ANCIEN").Range("K1:L1000"), 2, False)

End With

Next X

End Sub 



Pouvez-vous m'apporter votre aide en expliquant chaque étape de vos corrections car je débute en VBA.


Je vous remercie pour votre aide :)


Thyroox
Afficher la suite 

Votre réponse

2 réponses

f894009 13031 Messages postés dimanche 25 novembre 2007Date d'inscription 17 mai 2018 Dernière intervention - 15 sept. 2017 à 11:37
0
Utile
Bonjour,
une facon de faire:

Dim DL As Integer
Dim X As Integer

DL = Cells(Application.Rows.Count, "A").End(xlUp).Row
For X = 2 To DL
    With Sheets("NOUVEAU")
        VL = WorksheetFunction.VLookup(.Range("K" & X).Value, Sheets("ANCIEN").Range("K1:L1000"), 2, False)
        If Not IsError(VL) Then     'traitement erreur
            .Range("L" & X).Value = VL
        End If
    End With
Next X
thyroox 21 Messages postés jeudi 27 juillet 2017Date d'inscription 2 mai 2018 Dernière intervention - 15 sept. 2017 à 12:33
Bonjour l'ami,


Merci de ton aide :)


Cordialement


Thyroox
Commenter la réponse de f894009