Discussion :

[Moïen]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ,

[Thautheme]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Moïen]

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 ...