Vider le presse papier en vba

[MicDHL]

Bonjour

SUis un peu perdu, j'ai une macro qui exécute des filtres et des copier coller sauf que cela bloque en cours d'éxécution car pb de ressources

Y aurait t-il une solution en VBA ????

J'ai fait plein de recherche mais rien trouver, ci dessous ma macro utilisé (plusieurs fois la même dans le même fichier )

Sheets("ACH").Select
ActiveSheet.Range("$A$1:$AL$51276").AutoFilter Field:=1, Criteria1:="211"
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Sheets("211").Select
Cells.Select
ActiveSheet.Paste

 

[DoubleZero]

Re : Vider le presse papier en vba

Bonjour, MicDHL, le Forum,

Des suggestions ici.

A bientôt 🙂

 

[Paf]

Re : Vider le presse papier en vba

Bonjour à tous

Cells représente l'ensemble des cellules de la feuille ! En ne sélectionnant que le nécessaire ce serait déjà moins gourmand en ressources?

Par exemple

Sheets("ACH").Range("$A$1:$AL$51276").AutoFilter Field:=1, Criteria1:="211"
Sheets("ACH").Range("$A$1:$AL$51276").SpecialCells(xlCellTypeVisible).Copy WorkSheets("211").range("A1")
Application.CutCopyMode = False

A+


edit : /!\ Sheets("ACH").Range("............Visible).Copy et WorkSheets("211").range("A1") doivent être sur la même ligne !

 

[MicDHL]

Re : Vider le presse papier en vba

Merci à vous Je test cela est vous redis

 

[MicDHL]

Re : Vider le presse papier en vba

Cela fonctionne nickel Merci