Macro coiper/coller puis effacer

Résolu
Mad -  
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   -
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

Réponse 1 / 2
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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 !
0
Réponse 2 / 2
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Merci, content pour vous.
0