jey1319
Messages postés18Date d'inscriptionmercredi 9 février 2011StatutMembreDernière intervention27 juin 2012
-
13 juin 2012 à 18:20
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018
-
13 juin 2012 à 18:38
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
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 13 juin 2012 à 18:38
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