Taille Fichier Excel après vba

Bonjour,

J'ai effectué un enregistrement de macro (voir ci-dessous) pour me permettre après avoir sélectionné le filtre OK de ma colonne C de copier les colonnes B-I-J et Z et les coller sur une autre feuille via un Bouton de commande

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Macro1()   ' Macro1 Macro     ActiveSheet.Range("$C$1:$C$2000").AutoFilter Field:=1, Criteria1:="OK" Range("B:B,I:I,J:J").Select Range("J1").Activate Range("B:B,I:I,J:J,Z:Z").Select Range("Z1").Activate Selection.Copy Sheets("Feuille2").Select ActiveSheet.Paste End Sub

---

Pas de soucis, c'est fonctionnel.
Sauf que, je passe d'un fichier de 270 Ko à un bon gros 16 Mo.
Ma question étant donc, comment avoir le même résultat sans quadrupler la taille de mon tableau?

Merci ++

Bonjour La Taupe,


En copiant des colonnes entières, tu copie également la valeur des cellules vides, donc il est normal pour ton fichier excel de grossir.


Également l'enregistreur de macro réagis à ce que tu fais mais pas a ce que tu veux faire. Il est un bon dépanneur, certes mais pas nécessairement la solution.


Au lieu de faire une sélection, une copie et un coller, tu peux faire le tout en une seule et unique étape.


Pense a ceci en code : premier cellule utilisé de la première colonne en code à la dernière cellule utilisé de la dernière colonne.


Lire ceci qui est indispensable

https://docs.microsoft.com/fr-be/off...cel.range.copy

Bonjour JPVBA,

Merci pour ton lien, j'ai trafiqué mon code qui effectivement garde sa taille initiale, effectue bien les copier-coller des colonnes souhaitées mais par contre ne prend pas en considération mon filtre sur la valeur "OK".
Je dois manquer quelque chose et ne suis pas loin du résultat...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Macro1()     Sheets("Feuille 1").Select FinalRow = Cells(Rows.Count, 1).End(xlUp).Row ' Loop through each row For X = 2 To FinalRow ' Decide if to copy based on column C ThisValue = Cells(X, 3).Value If ThisValue = "OK" Then Range("B:B,I:I,J:J,Z:Z").Select Selection.Copy Sheets("Feuille 2").Select ActiveSheet.Paste End If Next X End Sub

---

Merci !

Salut,

une fois les solutions proposées par mes compères t'auront apporté satisfaction, tu peux également voir les pistes de diminution de taille des fichiers avec le format xlsb :)

https://jpcheck.developpez.com/tutor...binaires-xlsb/

Ton code ne permets pas de déterminer la cellule de destination de ta copie.
Si ce n'est pas A1 de Feuille2, modifie le code :

Code:

---

1 2 3 4

Sub Macro1() Columns("C").AutoFilter Field:=1, Criteria1:="OK" Union(Columns("B"), Columns("I:J"), Columns("Z")).SpecialCells(xlCellTypeVisible).Copy Sheets("Feuille2").Range("A1") End Sub

---

C'est du code tapé directement sur le forum et non testé. Tu auras donc peut-être du débugage à faire.

Jean-Philippe André, merci pour ton conseil.
Toutefois si je comprends bien, il y aurait des problèmes de compatibilités avec le format XML.
Cela risque donc de ne pas convenir pour mon projet actuel.
Mais en tout cas, c'est une excellente chose à savoir.

Menhir,
Pardon, je n'avais pas vu ton message. Un grand merci.
Ton code a l'air de fonctionner parfaitement et en plus est super light.
Jje comprends ta remarque mais la copie se faisait naturellement en A1 sur ma feuille 2 (un heureux hasard).
C'était plutôt le critère qui n'était pas pris en compte (et ça je ne comprends pas).