Macro qui fait des VLOOKUP successifs renvoie une erreur "1004"

Jerem356

XLDnaute Nouveau
Bonjour a tous,

J'ai à peu près exposé le problème dans le titre, voici le code.

Code:
Sub VLOOKUPAuto()

Application.ScreenUpdating = False

' compte le nombre de lignes
Dim nbLignes As Integer
nbLignes = Application.WorksheetFunction.CountA(Range("A9:A65536"))

' boucles qui remplissent le tableau
For i = 9 To nbLignes
    For j = 15 To 29
        If CStr(Cells(i, j).Value) = "" Or CStr(Cells(i, j).Value) = "0" Then
            Cells(i, j).Select
            ActiveCell.Formula = "=VLOOKUP($A" & i & ";'C:\compilation\[valeurs_test.xls]AO'!$A$9:$AC$9085;" & j & ";FALSE)"
        End If
    Next j
Next i

Application.ScreenUpdating = True

End Sub

EDIT : l'erreur est à la ligne "ActiveCell.Formula..."

Merci d'avance,
Jérémy
 

Pierrot93

XLDnaute Barbatruc
Re : Macro qui fait des VLOOKUP successifs renvoie une erreur "1004"

Re,

bah... si tu ne mets pas le = cela ne doit pas fonctionner.... un code qui fonctione chez moi :
Code:
    Target.Offset(0, 1).Formula = "=VLOOKUP(A" & i & ",Feuil2!A2:B8,2,FALSE)"
A noter, pourquoi ne pas utiliserla méthode "Find", native de vba.... renverra le résultat directement dans la cellule...
 

Jerem356

XLDnaute Nouveau
Re : Macro qui fait des VLOOKUP successifs renvoie une erreur "1004"

J'ai modifié mes fichiers afin de pouvoir les poster. J'espère qu'ils vous éclaireront sur mon problème.
 

Pièces jointes

  • exemple forum.xls
    52 KB · Affichages: 44
  • valeurs_test forum.xls
    33.5 KB · Affichages: 25
  • exemple forum.xls
    52 KB · Affichages: 36
  • exemple forum.xls
    52 KB · Affichages: 35

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 871
Messages
2 093 102
Membres
105 627
dernier inscrit
jean-marc.brillant