XL 2010 Macro simple pour copier/couper/coller des lignes à la suite des autres d'une feuille à une autre

[débutantplus]

Bonjour à tous et à toutes,
J'aurais besoin d'une petite aide sur une macro plutôt basique.
Je souhaiterais que la macro copie/coupe/colle des lignes d'une feuille à une autre sur le même classeur.
J'ai commencé une macro mais je me perds facilement.
J'aurais souhaité avoir un petit exemple pour pouvoir continuer de mon coté.
Je vous laisse un fichier joint où vous pouvez créer une macro.

Sur la feuille "Suivi broyage semaine" la ligne 2 à partir de B2 doit se copier sur la feuille "Suivi broyage 2022" à partir de la cellule A2 (si pas d'autre ligne précédente)
Sur la feuille "Calcul kpi broyage" de la colonne U jusqu'à AI doit se copier sur la feuille "Suivi broyage 2022" à partir de la celulle U2 ( si pas d'autre ligne précédente)

Merci beaucoup pour votre aide 🙂

 

[st007]

Bonjour,

Sub couperColler()
  Dim shsem As Worksheet, shan As Worksheet
  Dim dlsem As Integer, dlan As Integer
 
  Set shsem = Sheets("Suivi broyage semaine")
  Set shan = Sheets("Suivi Broyage 2022")
  dlan = shan.Cells(Rows.Count, 1).End(xlUp).Row + 1
  dlsem = shsem.Cells(Rows.Count, 2).End(xlUp).Row + 1
  shsem.Range("B2:U" & dlsem).Cut shan.Range("A" & dlan)
 
End Sub

 

[débutantplus]

Bonjour,
Merci pour votre aide, la macro fonctionne bien.
Est-il possible que la macro ne copie que les valeurs et que la mise en forme et les formules éventuels ne soit pas effacer ?
Cordialement

 

[st007]

Comme la macro du mois d'avril, on peut copier B2:U et coller en valeur.
le soucis principal des macros, c'est de savoir et comprendre le résultat final
ce que faisait Fanfan, il copiait les cellules en valeur, les collait en valeur, puis efface les cellules en dur,( les valeurs fixes). Les cellules contenant des formules n'ayant pas à être effacées puisqu'elles renvoient "" en l'absence de résultats.
Si l'on copie, la mise en forme ne bouge pas, ici, je coupais et collais, donc perte de mise en forme de l'origine, mais je n'avais plus à effacer....