XL 2010 Sélection d'une plage de donnée

[Damess]

Bonjour,
je viens vers vous car cela fait 2 jours que je n'arrive pas à écrire un code pour sélectionner une plage de donnée.

Voici ce que j'ai écrit :

Private Sub Transfert_Click()
ActiveSheet.Range("A:L").SpecialCells(xlCellTypeVisible).Select
End Sub

Ceci sélectionner toute les cellules visible de la colonne A à L, j'aimerais que ma sélection s'arrête à la dernière ligne non vide.
En un deuxième temps, il faudrait que cette sélection soit copié puis coller dans une autre feuille après la dernière cellule non vide. En gros j'ai un document "modèle" que je remplie puis le transfert à la suite du document final.

Merci pour votre aide.

 

[etpisculrien]

Salut Damess,

Essaie ça (en espérant avoir répondu à ta demande)

Sheets("Feuil1").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
Selection.End(xlDown).Select
Derligne = Selection.Row + 1
Cells(Derligne, 1).Select
ActiveSheet.Paste

A+

 

[Paf]

Bonjour Damess, etpisculrien,

C'est toujours plus facile de répondre en ayant connaissance du classeur .....

à adapter et à tester:

Private Sub Transfert_Click()
Dim W1 As Worksheet, W2 As Worksheet, Plage As Range
Set W1 = Worksheets("Modele") ' à adapter
Set W2 = Worksheets("Autre Feuille") ' à adapter
Set Plage = W1.Range("A1:L" & W1.Range("A" & Rows.Count).End(xlUp).Row)
Plage.SpecialCells(xlCellTypeVisible).Copy W2.Range("A" & W2.Range("A" & Rows.Count).End(xlUp).Row + 1)
End Sub

A+