Copier Range plus 1 ligne

[féfé]

Bonjour le forum

Je vous sollicite une nouvelle fois, car j'ai créer un petit bout de code et ce grace à la recherche du forum, mon aide Excel ne marche plus.
Mon problème est que je veux copier un plage de cellule de la feuille 1 uniquement mais ceci en la décallent avec une ligne d'espace. Je sais faire le copier coller, mais pas la décaller de la derniere ligne ou il y a du texte.

Voici mon code :

Private Sub CommandButton1_Click()


Sheets("Feuil1").Select
Range("A23:f28").Select
Selection.Copy
Sheets("Feuil1").Select
Range("A30:f35").Select
Sheets("Feuil1").Paste

Application.CutCopyMode = False

End Sub

Comme vi ici ma selection s'arrète à F28 pour repartir en A30 jusqu'à 35. Le prochain copier devrai donc être en A37, et la je bloque car je n'arrive pas à créer cette fameuse ligne de décallage automatique.

Comment puis je écrire que je copie ("A23:F28") et qu'avec chaque fois que je clique mon commandbutton cela créer un nouveau copier depuis la derniere ligne ecrite.

Espérant avoir été assez clair, je vous remercie d'avance pour votre aide.

@micallment , Féfé

 

[Pierrot93]

Re : Copier Range plus 1 ligne

Bonjour Féfé, le forum

Si j'ai bien compris, ton problème essais la ligne de code ci dessous et dis nous :

Range("A30:F35").Copy Range("A65536").End(xlUp).Offset(1, 0)

Bonne journée
@+

 

[féfé]

Re : Copier Range plus 1 ligne

Bonjour Pierrot,

Merci c'est bien ça que je cherchais, mais je ne me rappellais plus de cette ligne de code

Merci encore à toi

S@lutations à tous