Bonjour à tous,
Je souhaite optimiser un code VBA rendu assez long vu mes maigres connaissance sur le sujet. Ce que j'essai de faire c'est de remplacer ce bout de code :
Range('B1:B250').AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
('J1:J2'), CopyToRange:=Range('J4:J52'), Unique:=True
Range('B1:B250').AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
('K1:K2'), CopyToRange:=Range('K4:K52'), Unique:=True
Range('B1:B250').AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
('L1:L2'), CopyToRange:=Range('L4:L52'), Unique:=True
par une boucle, sachant qu'il y a entre 20 et 30 codes quasi identiques à la suite.
Est ce que c'est possible, si oui pouvez vous m'aider ?
Est ce que les boucles ralentissent ou au contraire accélèrent le fonctionnement d'une macro?
Merci à tous de l'aide que vous pourrez m'apporter.
Jacques
Je souhaite optimiser un code VBA rendu assez long vu mes maigres connaissance sur le sujet. Ce que j'essai de faire c'est de remplacer ce bout de code :
Range('B1:B250').AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
('J1:J2'), CopyToRange:=Range('J4:J52'), Unique:=True
Range('B1:B250').AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
('K1:K2'), CopyToRange:=Range('K4:K52'), Unique:=True
Range('B1:B250').AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
('L1:L2'), CopyToRange:=Range('L4:L52'), Unique:=True
par une boucle, sachant qu'il y a entre 20 et 30 codes quasi identiques à la suite.
Est ce que c'est possible, si oui pouvez vous m'aider ?
Est ce que les boucles ralentissent ou au contraire accélèrent le fonctionnement d'une macro?
Merci à tous de l'aide que vous pourrez m'apporter.
Jacques