Discussion :

[solongo]

Bonjour chers developpeurs VBA,

J'essaie de developper des macros qui me permettront de filtrer mes données (un sheet) et les enregistrer dans 6 différents fichiers en basant sur mes filtres.

Mais, je rencontre avec un error. Pourriez-vous, s'il vous plait, m'aider à debugger cet error et suggérer d'autres solutions pour améliorer mes codes. Ps: je suis débutante en VBA et c'est pas toujours évident

Le worksheet sur lequel je travaille contient 3 sheets:
data-les données sur lequels je fait mon tri
criteria-les critère de filtre sont enregistré
fram-sheet dans lequel je souhaite mettre mes données filtrés


du coup, quand j'execute le macro, une erreur type 448 "argument nommé introuvable" s'affiche sur la partie

Code :

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

1
2
  Sheets("data").AutoFilter Field:=12, Criteria1:="=fram1", _
           Operator:=xlOr, Criteria2:="=fram2"

Voici les codes que j'ai écrit:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Option Explicit
 
Sub filter()
 
'Clear previous data that might me be on local_data
    Sheets("fram").Select
    Range(Range("A1"), Range("EU6000")).ClearContents
 
'Set the criteria of filter
 
Dim fram1 As Range
Set fram1 = Sheets("criteria").Range("B2")
 
 
Dim fram2 As Range
Set fram2 = Sheets("criteria").Range("B3")
 
'filter throught this criteria
 
 
    Sheets("data").AutoFilter Field:=12, Criteria1:="=fram1", _
           Operator:=xlOr, Criteria2:="=fram2"
 
 
'copy the filtered data into corresponding worksheet
 
 Sheets("data").Select
    Selection.Cut
 
 
'Paste the right data in the right tab
    Sheets("Fram").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
 
    Cells.Select
    'ActiveSheet.Paste
    Selection.AutoFilter
 
End Sub

Je vous remercie beaucoup par avance pour votre aide qui sera très précieux pour moi

[mercatog]

Autofilter tel s'applique à une plage et non à une feuille

Code :

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

1
2
3
4
5
6
7
8
Dim Fram1 As Range, Fram2 As Range
 
With Worksheets("criteria")
    Set Fram1 = .Range("B2")
    Set Fram2 = .Range("B3")
End With
 
Worksheets("data").Range("L:L").AutoFilter Field:=1, Criteria1:=Fram1.Value, Operator:=xlOr, Criteria2:=Fram2.Value

[solongo]

Merci beaucoup pour votre réponse Mercatog

Mais ça marche toujours pas

Ce que je dois faire, c'est filtrer mes datas(A-EW, biensur la ligne 1 est pour les titres) par le column L qui contient le nom du department. Je sais pas s'il faut utiliser autofilter ou bien advanced filter. apres je dois copier mes données filtrées dans une autre sheet. je dois répeter pour 6 departements.

J'arrive pas à trouver où est l'erreur dans le syntaxe.....

Merci encore par avance pour votre aide

[solongo]

en effet, les codes que vous m'aviez donné marche, je l'ai testé sur un autre fichier le beug vient d'ailleurs je pense.

En effet, je me demandais si c'était une bonne idée d'utiliser l'autofilter car ce dont j'ai besoin est séparer des mes données par la valeur d'un column et les stocker dans différents workbooks dedié pour chaque département afin de les envoyer.

auriez-vous d'autres suggestions de synthèse comme if value= , copy,paste?

En vous remerciant.

Bien cordialement,

[mercatog]

Bonjour
1. Si tu as une liste de départements, tu peux toujours la parcourir et filtrer ta base en conséquence. Tu copie dès lors les lignes visibles dans une nouvelle feuille ou nouveau classeur.
2. Sinon, tu peux aussi créer, à partir de ta base, la liste sans doublons des département et ensuite tu fais le 1.