selection de plage en VBA

[sebrougier]

Bonjour au forum,

après un long moment d'absence je constate avec plaisir que le forum est toujours aussi actif.

J'ai un petit souci concernant une selection de plage.
Je veux repérer la dernière cellule vide d'une colonne et la première cellule vide d'une autre colonne , ce que je sais faire par contre je ne parviens pas à former avec ces deux cellules une nouvelle plage qui me servira par la suite.

Dim l As Integer, k As Integer

Dim plage As Range

l = Sheets('detail').Range('A65536').End(xlUp).Select
k = Sheets('detail').Range('a1').End(xlDown).Select

Set plage = Sheets('detail').Range('A'& k & ':J' & l)
plage.Select
Selection.Copy

Sheets('calcul').Select
Cells.ClearContents
ActiveSheet.Paste


j'ai toujours le même message d'erreur concernant la partie rouge.

Merci d'avance si vous trouvez une solution simple.
J'ai cherché dans les fichiers en ligne mais après avoir tout essayé je ne vois toujours pas de solution.

Bonne journée.

 

[PascalXLD]

Bonjour

et si tu fais simplement

Sheets('detail').Range('A'& k & ':J' & l).select
Selection.Copy

Bon courage

 

[CBernardT]

Bonjour Sebrougier, Pascal76 et le forum,

Si j'ai bien compris le transfert de plage que tu souhaites réaliser, cela donne une macro de ce style :

Sub Transfert()
Dim l As Integer, k As Integer
Dim plage As Range
Sheets('calcul').UsedRange.ClearContents
l = Sheets('detail').Range('A65536').End(xlUp).Row
k = Sheets('detail').Range('J1').End(xlDown).Row
Set plage = Sheets('detail').Range('A' & k, 'J' & l)
plage.Copy Sheets('calcul').Range('A1')
End Sub

Cordialement

CBernardT

Message édité par: CBernardT, à: 11/04/2005 12:20