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
Pas de soucis, c'est fonctionnel.
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
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 ++
Partager