copie d'une plage de cellule

[ottomar]

Bonjour et merci de m'acceuillir

j'ouvre avec excel un fichier texte de données de 4 colonnes mais le nombre de lignes est variable
je veux importer par copier-coller les données dans un autre classeur (obligé puisque le fichier texte s'ouvre dans un nouveau classeur), il faut donc que je sélectionne de A2 (j'ai une entête) à la dernière cellule non vide de la 4eme colonne
j'ai trouvé ici :

Dim F As Worksheet
Set F = ActiveSheet
DerLiGne = F.Range("D65536").End(xlUp).Row
Cellule = Cells(DerLiGne, 2).Address(False, False)

là où je bloque, c'est pour copier la plage A2:dernière cellule ??

Range("A2:😕").Copy

Windows("mbSa-paiement.xls").Activate
Range("A2").Select
ActiveSheet.Paste

merci pour votre aide

 

[ERIC S]

Re : copie d'une plage de cellule

Bonjour

a regarder

range("A2😀" & derligne).copy

ou plus directement

range("A2😀" & F.Range("D65536").End(xlUp).Row).copy

les smileys sont des "deux points" bien sûr

 

[Catrice]

Re : copie d'une plage de cellule

Bonjour,

En copie directe en une ligne :

Sub Test()
Range("A2:" & Range("D65536").End(xlUp).Address).Copy (Workbooks("mbSa-paiement.xls").Sheets("Feuil1").Range("A2"))
End Sub

Chez moi : range("A2:" & F.Range("D65536").End(xlUp).Row).copy
ne fonctionne pas ...
le smiley doit remplacer les 2 points et le "D" non ?

 

[ottomar]

Re : copie d'une plage de cellule [résolu]

Merci à vous deux. Extra : pourquoi faire compliqué quand on peut faire simple, hein ?

 

[ERIC S]

Re : copie d'une plage de cellule

Bien vu Catrice

comme on dit:
"vous aviez rectifié de vous même"

🙂 😉
Note : ci-dessus ce sont de vrais smileys