Filtre VBA avec nombre de lignes variable

**hugohours1993** · 25/01/2016, 17h25

Bonjour,

Pour mon activité je dois créer un outil en VBA,
J'ai un soucis avec les filtres et le faite que mon nombre de lignes varient en fonction de l'export de données fait en amont.
Mon code se finit par un copier/coller des valeurs filtrés sur une autres feuille.

J'ai donc tenté avec ce code suivant mais cela ne fonctionne pas ..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
i = ActiveSheet.UsedRange.Rows.Count
 
    Sheets("Feuil3").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$V$" & i).AutoFilter Field:=20, Criteria1:=">=2"
    ActiveSheet.Range("$A$1:$V$" & i).AutoFilter Field:=22, Criteria1:="="
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets("Feuil4").Select
    Range("A1").Select
    ActiveSheet.Paste

En espérant que l'erreur soit seulement de la syntaxe et est simple à trouver

Merci d'avance

**Menhir** · 25/01/2016, 17h49

Ce n'est pas seulement un problème de Syntaxe.

D'abord, tu utilises de manière un peu trop direct ce qui résulte de l'enregistreur de macro. Les Select/Selection, quand on peut s'en passer, c'est toujours mieux.

Par exemple

Code :

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

1
2
    Sheets("Feuil3").Select
    Selection.AutoFilter

Peut s'écrire plus simplement

Code :

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

    Sheets("Feuil3").AutoFilter

Mais le gros problème que tu vas avoir, c'est que tu sélectionnes des zones complètes contenant des cellules maquées.
Or, même si elles ne sont pas visibles, ces cellules font quand même partie de la selection et de la copie qui en résulte.

Remplace la seconde moitié de ton code par :

Code :

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

1
2
    Sheets("Feuil3").UsedRange.SpecialCells(xlCellTypeVisible).Copy
    Sheets("Feuil4").Range("A1").PasteSpecial(xlPasteAll)

**hugohours1993** · 26/01/2016, 13h43

Bonjour, merci pour ta réponse,

Du coup mon code est devenue:

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
Sub Bouton11_Clic()
'
' Bouton11_Clic Macro
'
 
'
 
Dim i As Integer
i = ActiveSheet.UsedRange.Rows.Count
 
    Sheets("Feuil3").AutoFilter
    ActiveSheet.Range("$A$1:$V$" & i).AutoFilter Field:=20, Criteria1:=">=2"
    ActiveSheet.Range("$A$1:$V$" & i).AutoFilter Field:=22, Criteria1:="="
    Range("A1").Select
    Sheets("Feuil3").UsedRange.SpecialCells(xlCellTypeVisible).Copy
    Sheets("Feuil4").Range("A1").PasteSpecial (xlPasteAll)
 
End Sub