Derniere ligne non vide vers ligne vide
Résolu/Fermé
yanndebretagn
Messages postés
100
Date d'inscription
dimanche 28 mai 2017
Statut
Membre
Dernière intervention
2 mai 2020
-
11 nov. 2019 à 14:32
yanndebretagn Messages postés 100 Date d'inscription dimanche 28 mai 2017 Statut Membre Dernière intervention 2 mai 2020 - 12 nov. 2019 à 22:03
yanndebretagn Messages postés 100 Date d'inscription dimanche 28 mai 2017 Statut Membre Dernière intervention 2 mai 2020 - 12 nov. 2019 à 22:03
A voir également:
- Derniere ligne non vide vers ligne vide
- Hors ligne instagram - Guide
- Aller à la ligne excel - Guide
- Vente en ligne particulier - Guide
- En ligne sur messenger alors que non ✓ - Forum Facebook
- Formate pour taxer client frigo vide - Forum Loisirs / Divertissements
1 réponse
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
11 nov. 2019 à 16:16
11 nov. 2019 à 16:16
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
12 nov. 2019 à 22:03
a bientôt