Filtre VBA avec nombre de lignes variable

Version imprimable

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:

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

25/01/2016, 17h49
Menhir
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:

1 2 Sheets("Feuil3").Select Selection.AutoFilter
Peut s'écrire plus simplement

Code:

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:

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

Bonjour, merci pour ta réponse,

Du coup mon code est devenue:

Code:

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

Malheureusement cela ne fonctionne toujours j'ai un débogage sur la première ligne du programme ..

26/01/2016, 21h23
clementmarcotte

Bonjour,

Citation:

Malheureusement cela ne fonctionne toujours j'ai un débogage sur la première ligne du programme ..

Si ta copie de code est identique, il te manque un K