Copier coller 1 ligne avec XLDown
Fermé
niouniou
-
26 oct. 2021 à 16:20
Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 - 26 oct. 2021 à 17:21
Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 - 26 oct. 2021 à 17:21
bonjour, j'ai fait une macro qui copie tout une colonne au nombre de lignes aléatoire dans une autre feuille qui fonctionne parfaitement sauf quand j'ai une seule ligne.
voici la partie de la macro qui bug avec une ligne:
Sheets("Feuil1"). Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Source").Select
Range("E2").Select
ActiveSheet.Paste (BUG)
Quelqu'un aurait il une idée svp?
voici la partie de la macro qui bug avec une ligne:
Sheets("Feuil1"). Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Source").Select
Range("E2").Select
ActiveSheet.Paste (BUG)
Quelqu'un aurait il une idée svp?
A voir également:
- Copier coller 1 ligne avec XLDown
- Copier coller pdf - Guide
- Historique copier-coller android - Guide
- Copier-coller - Accueil - Informatique
- Symbole clavier copier coller - Guide
- Partager photos en ligne - Guide
2 réponses
Le Pingou
Messages postés
12241
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
19 février 2025
1 458
26 oct. 2021 à 17:17
26 oct. 2021 à 17:17
Bonjour,
Essayer cette solution:
Essayer cette solution:
Sub test()
deli = Cells(Rows.Count, 1).End(xlUp).Row
Range("A" & 1 & ":A" & deli).Copy Destination:=Sheets("Source").Range("E2")
End Sub
Yoyo01000
Messages postés
1639
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
7 mars 2022
167
26 oct. 2021 à 17:21
26 oct. 2021 à 17:21
Bonjour,
essayez avec ceci :
essayez avec ceci :
Sheets("Feuil1").Select Range("A1").CurrentRegion.Copy Sheets("Source").Select Range("E2").Select ActiveSheet.Paste