Copie d'1 plage à la suite dans un même tableau

[Evgueny]

Bonjour, le forum 😉

J'ai un petit problème, je cherche à copie les valeur d'une plage d'un tableau (C6:M6) et les coller à la suite sous cette plage à chaque fois que j'appuie sur un bouton.

J'ai écrit un code, mais celui écrase la ligne copier.

Comment modifier le code pour arrivé au résultat escompter.

Dim Plage As Integer


Range('C6:M6').Select
Selection.Copy
Plage = Sheets('Feuil1').Range('C18').End(xlUp).Row + 1
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Merci

 

[pierrejean]

bonjour Evgueny

Comme cela peut-etre

Sub copie()
Dim ligne As Integer
ligne = ActiveSheet.Range('C65536').End(xlUp).Row + 1
ActiveSheet.Range('C6:M6').Copy Destination:=ActiveSheet.Range('C' & ligne)
End Sub

 

[ERIC S]

bonjour

essaie

Dim Plage As Integer, derligne As Single


Range('C6:M6').Copy
derligne = Sheets('Feuil1').Range('c65536').End(xlUp).Row + 1
Range('C' & derligne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

A+

 

[Evgueny]

Merci PierreJean

Cela fonctionne bien

😉

 

[Evgueny]

Merci Eric S 😉

Cela fonctionne bien.