Titre du sujet : Re: Macro pour reproduire les données d'une plage sur d'autres
par JeanMarie le 20/09/2011 07:15:02
Bonjour Floka, Didier, le forum
Ci-joint un exemple de code qui permet de faire ce que tu souhaites.
Sub Floka_mdf_Xlpages()
'Pas de rafraichissement de l'écran pendant la copie
Application.ScreenUpdating = False
'copie des données dans le presse-papier
Range("A15:A18").Copy
For I = 1 To 794
'collage spécial des données copier (794 fois) par décalage de 54 lignes
'l'objet Range n'ayant pas de function Paste, je passe par la function de collage.spécial de l'objet
Range("A" & (I * 54) + 15).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next I
'boucle terminée
'la fonction de copy de l'objet range n'a été faite qu'une seule fois
'Réactivation du rafraichissement de l'écran
Application.ScreenUpdating = True
End Sub
@+Jean-Marie
|
Didier FOURGEOT