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

[Jerem356]

Bonjour a tous,

J'ai à peu près exposé le problème dans le titre, voici le 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

 

[Jerem356]

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

J'ai fait quelques tests, et sans le "=" avant le VLOOKUP, la macro écrit bien dans mes cellules. Quelqu'un aurait une idée sur ce problème ? Merci.

 

[Pierrot93]

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

Bonjour,

remplace peut être les ; par des ,

bon après midi
@+

 

[Jerem356]

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

Bonjour Pierrot,

Avec les , cela me renvoie la même erreur... j'ai vraiment l'impression que le = avant le VLOOKUP provoque l'erreur, mais pourquoi ?

 

[Pierrot93]

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 :

    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]

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

Pierrot, à quoi fait référence le "Target" dans votre code ?

Et merci pour le Find je vais chercher une manière de l'utiliser.

 

[Pierrot93]

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

Re,

"Target.Offset(0, 1)" représente la cellule de destination...

 

[Jerem356]

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.