error 1004 unable to get the vlookup property

Bonjour,

je cherche à faire une boucle qui va chercher une données par un code vba vlookup après un filtre automatique selon la valeur d'une cellule d'une colonne, cependant mon code vba n'arrête pas de sortir en error 1004, or en controlant manuellement ma formule doit me ressortir une valeur

pouvez-vous m'aider ci-dessous mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Macro2()   Worksheets("flatfile").Select   i = 3   While Cells(i, 1) <> "" Sheets("flatfile").Select ActiveSheet.Range(Range("$A$2:$AD$2"), Selection.End(xlDown)).AutoFilter Field:=1, Criteria1:=Sheets("Mov flatfile").Cells(i, 1)   Worksheets("Mov flatfile").Select If Cells(i, 16).EntireRow.Hidden = True Then i = i + 1 Else Cells(i, 38) = WorksheetFunction.VLookup(Cells(i, 16), Worksheets("flatfile").Range("M:AD").SpecialCells(xlCellTypeVisible), 18, False) End If i = i + 1 Wend End Sub

---

Merci de votre aide :D,

Bonjour Moïen, bonjour le forum,

Quand on travaille sur plusieurs worksheets je recommande toujours de les spécifier dans des variables, puis, d'utiliser ces variables sans les Select ou autre Activate qui ne font que ralentir l 'exécution du code et sont source de plantages.
Ton code modifié :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Macro1() Dim F As Worksheet Dim M As Worksheet Dim DL As Integer Dim I As Integer   Set F = Worksheets("flatfile") Set M = Worksheets("Mov flatfile") DL = F.Cells(Application.Rows.Count, "A").End(xlUp).Row For I = 3 To DL F.Range("A2:AD" & DL).AutoFilter Fiedl:=1, Criteria1:=M.Cells(I, 1).Value If M.Rows(I).Hidden = False Then M.Cells(I, 38) = Application.WorksheetFunction.VLookup(M.Cells(I, 16).Value, F.Range("M:AD").SpecialCells(xlCellTypeVisible), 18, False) Next I End Sub

---

Non testé... Le SpecialCells m'inqiète un peu...

Merci pour ta réponse,

Je pense que c'est le specialcells qui fait bugger ma macro,cependant j'en ai besoin car je cherche une valeur parmi celles encore actives lorsque je fais mon filtre, mais je n'ai pas trouvé d'autre solution ...