macro copier coller a la suite

[chinel]

Bonjour tout le monde, je voudrais bien copier les cellules n2 jusque la cellule s2 de ma feuille (range m2:s2) puis coller dans la même feuille en c10 à i10 (range c10: i10) puis après a la suite de l'autre quand je change les données de (rage m2:s2) et mettre en (range c11:i11) etc ... jusque la fin de la feuille C1048576: i1048576

style:
sheets("feuil3").range("m2:s2").copy
range("c10:i10").select
selection.paste
puis refaire la même chose mais
range("c11:i11").select
etc...

Merci d'avance !

 

[jp14]

Re : macro copier coller a la suite

Bonjour

Un code qui devrait répondre à la question

Dim Dl1 As Long ' dernière ligne utilisé
With Sheets("Feuil1")
Dl1 = .Range("C" & .Rows.Count).End(xlUp).Row ' dernière ligne
If Dl1 < 10 Then Dl1 = 10 

.Range("m2:s2").Copy _
Destination:=.Range("c" & Dl1 + 1)
End With

A tester

JP

 

[chinel]

Re : macro copier coller a la suite

Merci mais cela ne fonctionne pas !

 

[chinel]

Re : macro copier coller a la suite

oups ! désolé très bon travail cela fonctionne très bien !!!