Discussion :

[La_Taupe]

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 :

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

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

[jpvba]

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

[La_Taupe]

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 :

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

[Jean-Philippe André]

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/

[La_Taupe]

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.

[La_Taupe]

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

[Menhir]

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 :

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

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.