Copier A2:A7 et coller à la suite colonne A
Fermé
jean300
Messages postés
374
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
13 janvier 2020
-
13 mars 2018 à 09:33
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - 13 mars 2018 à 12:02
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - 13 mars 2018 à 12:02
A voir également:
- Copier A2:A7 et coller à la suite colonne A
- Copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
- Copier texte pdf - Guide
- Copier disque dur - Guide
- Httrack website copier - Télécharger - Aspirateurs de sites
3 réponses
thev
Messages postés
1851
Date d'inscription
lundi 7 avril 2008
Statut
Membre
Dernière intervention
15 avril 2024
681
13 mars 2018 à 10:14
13 mars 2018 à 10:14
Bonjour,
Exemple de code :
Exemple de code :
Dim cell As Range With ActiveSheet Set cell = .Columns("A").Find("", after:=.Range("A7")) .Range("A2:A7").Copy cell End With
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
13 mars 2018 à 10:22
13 mars 2018 à 10:22
Bonjour
un petit code vite fait
cordialement
un petit code vite fait
Sub coller()
With Sheets("feuil1")
DL = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A2:A7").Copy
.Range("A" & DL + 1).Select
ActiveSheet.Paste
End With
End Sub
cordialement
jean300
Messages postés
374
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
13 janvier 2020
14
13 mars 2018 à 12:02
13 mars 2018 à 12:02
Bonjour thev, Julia
Je vous remercie beaucoup
Bonne journée à vous
Je vous remercie beaucoup
Bonne journée à vous