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

Damess

XLDnaute Nouveau
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Bonjour Damess, etpisculrien,

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

à adapter et à tester:

VB:
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+
 

Discussions similaires

Statistiques des forums

Discussions
312 801
Messages
2 092 245
Membres
105 314
dernier inscrit
SABER ABD