Derniere ligne non vide vers ligne vide [Résolu]

Signaler
Messages postés
70
Date d'inscription
dimanche 28 mai 2017
Statut
Membre
Dernière intervention
30 novembre 2019
-
yanndebretagn
Messages postés
70
Date d'inscription
dimanche 28 mai 2017
Statut
Membre
Dernière intervention
30 novembre 2019
-
Bonjour, la communauté,
petite question:
quel est le code pour copier la dernière ligne non vide de la feuille 1
vers la première ligne vide de la feuille 2 ?

cordialement,
yann

3 réponses

Messages postés
4612
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
11 décembre 2019
118
Bonjour Yann bonjour le forum

Essaie comme ça :
Sub Macro1()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim DL As Integer 'déclare la variable DL (Denière Ligne)
Dim PLV As Integer 'déclare la variable PLV (Première Ligne Vide)

Set OS = Worksheets("Feuil1") 'définit l'onglet OS
Set OD = Worksheets("Feuil2") 'définit l'onglet OD
DL = OS.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée Dl de la colonne A de l'onglet OS
PVI = OD.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1 'définit la première ligne vide PLV de la colonne A de l'onglet OD
OS.Rows(DL).Copy OD.Cells(PLV, "A") 'copie la ligne Dl de l'onglet OS et la colle dans la cellule ligne PLV colonne A de l'onglet OD
End Sub

yanndebretagn
Messages postés
70
Date d'inscription
dimanche 28 mai 2017
Statut
Membre
Dernière intervention
30 novembre 2019

merci, c'est sympa
a bientôt