Erreur fonction Vlookup

Signaler
Messages postés
18
Date d'inscription
mercredi 9 février 2011
Statut
Membre
Dernière intervention
27 juin 2012
-
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
Bonjour à tous,

J'utilise depuis peu VBA, et j'essaye de faire une fonction qui recherche une celulle une feuille puis écrit dans une autre feuille le résultat.

J'utilise donc une fonction "VLookup" qui doit me renvoyer le résultat j'ai testé sur un petit tableau sa marche.
Le problème lorsque j'essaye de l'utiliser sur le vrai tableau (environ 20 colonne et environ 500 ligne) sa me met une erreur au lancement:

Erreur d'éxecution '1004':

Erreur définie par l'application ou par objet

Quelqu'un peut t-il me dire d'ou vien le problème ?

je met le code de la fonction vous verez peut-être mieux ^^

Function RechercheV()
    Dim libelle As String
    Dim ressource As String

    For i = DEBUT_TAB To LIGNE_MAX Step 1
        If (Not IsEmpty(Cells(i, 2))) Then
            libelle = Worksheets("Grille de Saisie").Cells(i, 3).Value
        Else
            ressource = Worksheets("Grille de Saisie").Cells(i, 8).Value

            For j = DEBUT_TAB2 To LIGNE_MAX2 Step 1
                If Worksheets("Import Clarity").Range("B" & j).Value ressource And Worksheets("Import Clarity").Range("C" & j).Value libelle Then
                    Worksheets("Grille de Saisie").Cells(i, NUM_COLONNE).Value = Application.WorksheetFunction.VLookup(j, Worksheets("Import Clarity").Range("A7:G500"), 7)
                End If
            Next j
        End If
    Next i
End Function


Merci.

1 réponse

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
236
Réponse donnée dans ton doublon


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ