Derniere ligne non vide vers ligne vide
Résolu
yanndebretagn
Messages postés
100
Date d'inscription
Statut
Membre
Dernière intervention
-
yanndebretagn Messages postés 100 Date d'inscription Statut Membre Dernière intervention -
yanndebretagn Messages postés 100 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Derniere ligne non vide vers ligne vide
- Partager photos en ligne - Guide
- Supprimer page word vide - Guide
- Mètre en ligne - Guide
- Caractere vide - Guide
- Aller à la ligne excel - Guide
1 réponse
Bonjour Yann bonjour le forum
Essaie comme ça :
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
a bientôt