filtrer en utilisant un array

Bonjour,

j'ai un classeur que je dois repartir en plusieurs puis les envoyer.
je dois filtrer sur des noms que j'ai mis dans un array.
j'essaye de faire une boucle ensuite mais le filtre ne fonctionne pas sur la partie: Criteria1:=myarray(i)
, le code entier ci dessous:

Code:

---

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

Sub filtertest() Dim myrng As Range Dim wkb As Workbook Dim myarray(2) As String Dim i As Integer   myarray(0) = "WCIG" myarray(1) = "WCIA" myarray(2) = "WHBP"   For i = 0 To 2 Worksheets(1).Range("a1").AutoFilter _ Field:=10, Criteria1:=myarray(i) Set myrng = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible) myrng.Copy Set wkb = Workbooks.Add ActiveWorkbook.Sheets(1).Paste wkb.SaveAs Filename:=myarray(i) wkb.Close Next i   End Sub

---

une idée??
merci

Bonjour,

si tu es amené à filtrer une plage pour ensuite copier les résultat ailleurs, je te conseille de t'orienter sur le filtre avancé plutôt que le filtre automatique

il dispose d'une option de copy/export du résultat


voici un exemple adapté à ta procédure, il faut juste indiquer le dossier d'enregistrement, et le nom de la feuille source

Code:

---

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

Sub filtertest() Dim myarray(2) As String Dim i As Integer Dim MonChemin As String Dim MaFeuilleSource As Worksheet   MonChemin = "c:\users\toto\" myarray(0) = "WCIG" myarray(1) = "WCIA" myarray(2) = "WHBP" Set MaFeuilleSource = ThisWorkbook.Worksheets("MaFeuille")   For i = 0 To 2 With Workbooks.Add With .Sheets(1) .Cells(1, 1).Value = MaFeuilleSource.Range("J1").Value .Cells(2, 1).Value = myarray(i)   MaFeuilleSource.Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, .Cells(1, 1).CurrentRegion, .Cells(4, 1) .Cells(1, 1).Resize(3, 1).EntireRow.Delete .SaveAs MonChemin & myarray(i) .Close End With End With Next i

---

Documentation sur le filtre avancé : http://philippetulliez.developpez.co...dvancedfilter/

ok je vais regarder , entre temps j'ai trouvé mon soucis il faut à la fin de chaque boucle remettre mon premier filtre à 0 pour pouvoir refiltrer sur la boucle suivante.
merci :)