Hello,
Petite astuce de copier/coller rapide de cellule, trouvée sur le Net Anglo, qui permet de copier une cellule en 1 ligne de code !
Astuce trouvée ici (dzikosoft) : http://www.dzikosoft.com/gmexcel/tips-01.html
Comme l'indique le site, si on suit le code de l'enregistreur de macro, on devrait gérer 4 lignes de code, hors dans le cadre d'une boucle devant parcourir plusieurs centaines ou milliers de ligne, cela prendrait du temps (4 lignes à lire au lieu d'1 et gérer la sélection cellule prend encore + de temps) :
Par exemple le code vanille serait, de copier la plage A1:B2 pour la coller sur A5 :
Range("A1:B2").Select
Selection.Copy
Range ("A5").Select
ActiveSheet.Paste
L'astuce est d'utiliser ce codage en 1 ligne, sans utiliser de sélection et .Paste :
Range("A1:B2").Copy Range("A5")
Et bonus, il y'a même une démo reprenant le principe dans le cadre d'une animation, assez impréssionnant à voir.
