Discussion :

[ericparis]

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 :

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

[joe.levrai]

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 :

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

[ericparis]

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