Macro coiper/coller puis effacer
Résolu
Mad
-
Le Pingou Messages postés 12638 Statut Contributeur -
Le Pingou Messages postés 12638 Statut Contributeur -
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
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
Bonjour,
Une solution:
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
Mad
Merci, que dire ? c'est top ! Bonne soirée !