Derniere ligne non vide vers ligne vide
Résolu
yanndebretagn
Messages postés
104
Statut
Membre
-
yanndebretagn Messages postés 104 Statut Membre -
yanndebretagn Messages postés 104 Statut Membre -
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
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
A voir également:
- Derniere ligne non vide vers ligne vide
- Partager photos en ligne - Guide
- Supprimer page word vide - Guide
- Caractere vide - Guide
- Mètre en ligne - Guide
- En ligne sur messenger alors que non ✓ - Forum Facebook
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