Sujet Précédent Sujet Suivant

Macro coiper/coller puis effacer

Résolu/Fermé
Mad - Modifié le 30 oct. 2021 à 16:07
Le Pingou Messages postés 12230 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 15 janvier 2025 - 30 oct. 2021 à 19:28
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 12230 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 15 janvier 2025 1 454
30 oct. 2021 à 16:28
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
30 oct. 2021 à 18:53
Merci, que dire ? c'est top ! Bonne soirée !
0
Réponse 2 / 2
Le Pingou Messages postés 12230 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 15 janvier 2025 1 454
30 oct. 2021 à 19:28
Merci, content pour vous.
0