VBA simplier macro

Version imprimable

VBA simplier macro

Bonjour à tous,

je fais appel a vos connaissances,

J'ai une macro qui filtre dans un premier temps, puis copie les données et les colles dans un nouveaux fichier,

puis enregistre sous le nouveau fichier et supprime les données, et ceci doit recommencer 38 fois,

J'ai fait ma macro sur un test et donc faire cette commande 3 a 4 fois,

Mais du coup ma macro est très lente et longue,

est ce que quelqu'un peu m'aider à simplifier ma macro,

merci de votre aide

voici ma macro test :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
   Windows("XECHS MATRICE.xlsx").Activate
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$Q$11635").AutoFilter Field:=2, Criteria1:="10"
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Copy
        Windows("Balance Agee VIDE.xlsx").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ChDir "E:\BALANCE\IDF"
    ActiveWorkbook.SaveAs Filename:="E:\BALANCE\IDF\Balance Agee 10.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Cells.Select
    Selection.ClearContents
    Windows("XECHS MATRICE.xlsx").Activate
    ActiveWindow.LargeScroll ToRight:=-1
    ActiveSheet.Range("$A$1:$Q$11635").AutoFilter Field:=2, Criteria1:="12"
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Windows("Balance Agee 10.xlsx").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ChDir "E:\BALANCE\SUD"
    ActiveWorkbook.SaveAs Filename:="E:\BALANCE\SUD\Balance Agee 12.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Selection.ClearContents
    Sheets("Données Arcole Détaillées").Select
    Windows("XECHS MATRICE.xlsx").Activate
    ActiveWindow.LargeScroll ToRight:=-1
    ActiveSheet.Range("$A$1:$Q$11635").AutoFilter Field:=2, Criteria1:="13"
    ActiveWindow.SmallScroll Down:=285
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollRow = 2378
    ActiveWindow.ScrollRow = 11889
    ActiveWindow.ScrollRow = 14266
    ActiveWindow.ScrollRow = 35665
    ActiveWindow.ScrollRow = 33288
    ActiveWindow.ScrollRow = 21399
    ActiveWindow.ScrollRow = 1
    Selection.Copy
    Windows("Balance Agee 12.xlsx").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ChDir "E:\BALANCE\IDF"
    ActiveWorkbook.SaveAs Filename:="E:\BALANCE\IDF\Balance Agee 13.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Selection.ClearContents
    Windows("XECHS MATRICE.xlsx").Activate
    ActiveSheet.Range("$A$1:$Q$11635").AutoFilter Field:=2, Criteria1:="=45", _
        Operator:=xlOr, Criteria2:="=46"
    Selection.Copy
    Windows("Balance Agee 13.xlsx").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ChDir "E:\BALANCE\ES OUEST"
    ActiveWorkbook.SaveAs Filename:="E:\BALANCE\ES OUEST\Balance Agee 46.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Selection.ClearContents
    Windows("XECHS MATRICE.xlsx").Activate
    ActiveSheet.Range("$A$1:$Q$11635").AutoFilter Field:=2, Criteria1:="36"
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Windows("Balance Agee 46.xlsx").Activate
    Range("A1").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=507
    Windows("XECHS MATRICE.xlsx").Activate
    ActiveWindow.SmallScroll Down:=27
    ActiveWindow.LargeScroll ToRight:=-1
    ActiveWindow.SmallScroll Down:=75
    Windows("Balance Agee 46.xlsx").Activate
    ActiveWindow.SmallScroll Down:=-99
    Application.CutCopyMode = False
    ChDir "E:\BALANCE"
    ActiveWorkbook.SaveAs Filename:="E:\BALANCE\Balance Agee 36.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
End Sub

Merci de votre aide

04/06/2016, 17h45
Philippe Tulliez

Bonjour,
Le plus simple est l'utilisation de la méthode AdvancedFilter de l'objet Range (filtre avancé)
A lire Les filtres avancés ou élaborés dans Excel

Plusieurs exemples
http://www.developpez.net/forums/d12...l/#post7032573
Splitter les données dans différentes feuilles
Exporter des données suivant critères
Supprimer des lignes suivant critères avec la méthode AdvancedFilter
04/06/2016, 17h47
casefayere
Bonjour,
ton code me brule les yeux, mais c'est normal avec l'enregistreur
Reprenons à la base

Citation:

J'ai une macro qui filtre dans un premier temps, puis copie les données et les colles dans un nouveaux fichier

dans quel fichier est la macro parce que je vois tu ouvres un "Xlsx" ?

que copies-tu exactement, des données filtrées, ok !, mais les valeurs ?, les valeurs et formules ?, tout (avec les formats) ?
quand je vois le début
Code:

1 2 3 4 .... Windows("Balance Agee VIDE.xlsx").Activate Range("A1").Select ....
sur quelle feuille colles-t'on les données ?

au départ, je me contenterai de ces informations, la suite....après!
04/06/2016, 17h57
andré502
Citation:
Envoyé par casefayere

Bonjour,
ton me brule les yeux, mais c'est normal avec l'enregistreur
Reprenons à la base

dans quel fichier est la macro parce que je vois tu ouvres un "Xlsx" ?

que copies-tu exactement, des données filtrées, ok !, mais les valeurs ?, les valeurs et formules ?, tout (avec les formats) ?
quand je vois le début

Code:

1 2 3 4 .... Windows("Balance Agee VIDE.xlsx").Activate Range("A1").Select ....

sur quelle feuille colles-t'on les données ?

au départ, je me contenterai de ces informations, la suite....après!
Ma Macro est dans un fichier excel,
Oui je copie avec les même format, je conserve les formules,
et je colle dans un autre fichier excel

Je sais pas si c'est claire, je débute dans les macros,

En tout cas un grand merci pour l'aide
04/06/2016, 18h08
andré502

Citation:

Envoyé par Philippe Tulliez

Bonjour,
Le plus simple est l'utilisation de la méthode AdvancedFilter de l'objet Range (filtre avancé)
A lire Les filtres avancés ou élaborés dans Excel

Plusieurs exemples
http://www.developpez.net/forums/d12...l/#post7032573
Splitter les données dans différentes feuilles
Exporter des données suivant critères
Supprimer des lignes suivant critères avec la méthode AdvancedFilter

Merci de la réponse je vais étudier tout sa ,

Merci pour tout
04/06/2016, 18h08
casefayere

tu ne réponds pas à tout : sur quelle feuille colles-t-on les données ?

Maintenant, je viens de voir la réponse à Philippe, alors fais un peu de lecture sur son lien et dis-nous tout
04/06/2016, 18h33
Philippe Tulliez

Bonjour,

Citation:

Oui je copie avec les même format, je conserve les formules,
et je colle dans un autre fichier excel

Quand tu écris que tu conserves les formules, cela signifie-t-il que tu exportes les formules dans la feuille cible ?
Si c'est le cas, le filtre avancé ne peut pas t'aider car l'exportation ne garde que les données par contre le format est conservé.
05/06/2016, 17h34
andré502

Bonjour,

Merci de l'aide, et des conseils, j'ai retravaillé le fichier de destination pour pourvoir faire un filtre avancé,

et du coup ma macro est beaucoup plus légère et rapide,

Merci de votre aide