recopier une plage de cellules

[anthoYS]

Bonjour,

Je veut en fait recopier une plage de cellules vers le bas jusqu'à 1 000 000.
Cette plage comprends 6 lignes et va jusqu'à la colonne AT.

Mais manuellement ce serait trop long comment faire pour la recopier par une astuce plus simple (En conservant la mise en forme).

Le classeur pesera t-il beaucoup plus même si les cellules ne sont pas complétés?

Merci à vous par avance.

 

[Papou-net]

Re : recopier une plage de cellules

Bonjour anthoYS,

Cette macro recopie les 6 premières lignes vers le bas.

Sub CopieLignes()

Application.ScreenUpdating = False
For lg = 1 To 65526 Step 6
  Rows(lg & ":" & lg + 5).Copy
  Cells(lg + 6, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
Next
Application.ScreenUpdating = True

End Sub

Mais attention, tu ne peux pas recopier 1000000 de lignes, la limite (en Excel 2003) étant de 65536 lignes.
Si tu es sous XL2007, tu peux adapter la valeur de la boucle.
Ne sois pas surpris, il faut un certain temps pour que la macro s'exécute. Les instructions Application.ScreenUpdating sont là pour raccourcir le temps total en évitant la mise à jour de l'écran à chaque passage de la boucle.

Il est certain également, que le poids de ton fichier va sérieusement augmenter par la mise en forma de la totalité des lignes.

Espérant avoir répondu.

Cordialement.

 

[anthoYS]

Re : recopier une plage de cellules

Merci, trés bien.