Copier coller 1 ligne avec XLDown

niouniou -
Yoyo01000 Messages postés 1639 Date d'inscription Statut Membre Dernière intervention - 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?

Afficher la suite

A voir également:

Selection.end(xldown).select
Please select boot device - Forum Windows 7
Reboot and select proper boot device - Forum Windows
Select boot mode android - Guide
Reboot and select proper boot device or insert boot media in selected boot device and press a key ✓ - Forum PC portable
Problème de démarrage - boot device and press a key ✓ - Forum Windows 10

2 réponses

Réponse 1 / 2

Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention 1 458

Bonjour,
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

Réponse 2 / 2

Yoyo01000 Messages postés 1639 Date d'inscription Statut Membre Dernière intervention 168

Bonjour,

essayez avec ceci :

Sheets("Feuil1").Select
Range("A1").CurrentRegion.Copy
Sheets("Source").Select
Range("E2").Select
ActiveSheet.Paste

Discussions similaires

Aide Please select boot device

Select boot device première utilisation

Please select boot device

"Please select a boot device " ? ???

Asus bloqué au demarrage : reboot and select proper boot device

Votre réponse

Discussions similaires