Rapport de message :*
 

Macro pour reproduire les données d'une plage sur d'autres

Titre du sujet : Macro pour reproduire les données d'une plage sur d'autres
par floka61 le 19/09/2011 11:54:32

Dim DernLig As Long, L As Long
Dim ma_plage_a_copier As Range
  Set ma_plage_a_copier = Range("A15:G18")
Application.ScreenUpdating = False
With Sheets("Feuil1")
DernLig = .Range("A65536").End(xlUp).Row + 1
For L = DernLig To 54 Step -1
.Rows(L - 1 & ":" & L).Insert Shift:=xlDown
.Copy Destination:=Range("A" & ma_plage_a_copier.Row + L * ma_plage_a_copier.Rows.Count)
Next L
End With
Application.ScreenUpdating = True
Bonjour le forum

je ne suis pas nouveau dans ce site simplement j'ai perdu mes identifiants et mot de passe j'étais obligé de me réinscrire par la meme occasion je salut chaleureusement Didier MDF que j'ai eu souvent l'ocassion de le croisé sur d'autre forum.

Je vous éxpose mon probléme j'ai une feuille excel qui contiene 794 formulaires déstinée a étre imprimer je voudrais opérer a des modification sur le 1° formulaire ses modifications seront portées sur l'ensemble des autres formulaires pour cela je doit sauter 59 lignes j'ai fait ce petit code inspiré d'un code de Didier mais il bloque au niveau cette ligne.
.Copy Destination:=Range("A" & ma_plage_a_copier.Row + L * ma_plage_a_copier.Rows.Count)
je vous remercie d'avance pour vos réponses.