Erreur suite à Recherche V

Résolu/Fermé

thyroox Messages postés 34 Date d'inscription jeudi 27 juillet 2017 Statut Membre Dernière intervention 25 février 2022 - 15 sept. 2017 à 10:00
thyroox Messages postés 34 Date d'inscription jeudi 27 juillet 2017 Statut Membre Dernière intervention 25 février 2022 - 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

A voir également:

Erreur suite à Recherche V
Erreur 0x80070643 - Guide
Recherche musique - Guide
Google recherche par image - Guide
Recherche automatique des chaînes ne fonctionne pas - Guide
Recherche adresse - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
15 sept. 2017 à 11:37

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 Messages postés 34 Date d'inscription jeudi 27 juillet 2017 Statut Membre Dernière intervention 25 février 2022 1
15 sept. 2017 à 12:33

Bonjour l'ami,

Merci de ton aide :)

Cordialement

Thyroox

Discussions similaires

Instagram "Désolé, une erreur s'est produite"

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Erreur de lecture sur iptv smarters

Discussions similaires

Newsletters