Macro coiper/coller puis effacer

Résolu
Mad -  
Bonjour,

j'ai déjà un début de code mais je suis novice en vba donc j'ai besoin de votre aide. Donc mon but est de copier les cellules de la feuille 1 et coller les données en feuille 3 et puis effacer les cellules de la feuille 1. Chaque fois que je vais faire cette manipulation, il faudrait que les collages de la feuille3 se mettent à la suite de l'autre; merci

Option Explicit

Sub copier-coller-efface()

Range("B8:O10 ").Copy Feuil3.Range("A1:N1")
Selection.End(xlDown).Select
lig = Selection.Row + 1
Range("B8:O10 ").ClearContents
End Sub

2 réponses

  • Votes
  • Date
  • Date décroissante
  1. Le Pingou
    Bonjour,
    Une solution: 
    Sub copier_coller_effacer()
    ' trouver première ligne vide de feuille 3 colonne A
    deli = Sheets("feuil3").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Range("B8:O10 ").Copy Destination:=Sheets("Feuil3").Range("A" & deli)
    Range("B8:O10 ").ClearContents
    End Sub

    1. Mad
      Merci, que dire ? c'est top ! Bonne soirée !