A voir également:
- VBA : Déterminer la dernière ligne d'un nombre de colonne prédéf
- Triez la liste comme sur cette illustration (attention, on ne voit que le début …). quel est le mot formé par les 6 dernières lettres de la colonne code ? - Forum Excel
- Déplacer une colonne excel - Guide
- Aller à la ligne excel - Guide
- Erreur 1004 vba ✓ - Forum VB / VBA
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
3 réponses
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
22 mars 2015 à 18:50
22 mars 2015 à 18:50
Bonsoir Marine, bonsoir le forum,
Peut-être comme ça (si j'ai bien compris...) :
Peut-être comme ça (si j'ai bien compris...) :
Sub Macro1()
Dim DLA As Integer 'déclare la variable DLA (Dernière Ligne de la colonne A)
Dim DLD As Integer 'déclare la variable DLA (Dernière Ligne de la colonne D)
Dim B As Worksheet 'déclare la variable B (Onglet "Base CP Semaine)
Set B = Sheets("Base CP Semaine") 'définit l'onglet C
DLA = B.Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée DLA de la colonne 1 (=A) de l'onglet B
DLD = B.Cells(Application.Rows.Count, 4).End(xlUp).Row 'définit la dernière ligne éditée DLD de la colonne 4 (=D) de l'onglet B
B.Cells(DLA, 1).Resize(1, 3).Copy B.Range(B.Cells(DLA + 1, 1), B.Cells(DLD, 3)) 'copie/colle la dernière ligne éditée en A
End Sub
Frenchie83
Messages postés
2239
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
28 janvier 2023
335
22 mars 2015 à 18:52
22 mars 2015 à 18:52
Bonjour
En considérant que les colonnes A à C sont remplies au même niveau, idem pour les colonnes C et D
Cdlt
En considérant que les colonnes A à C sont remplies au même niveau, idem pour les colonnes C et D
DerLigneC = [A65000].End(xlUp).Row DerLigneD = [D65000].End(xlUp).Row Range(Cells(DerLigneC, 1), Cells(DerLigneC, 3)).Copy Range(Cells(DerLigneC + 1, 1), Cells(DerLigneD, 3)).PasteSpecial
Cdlt