Derniere ligne du talbeau

pierrejean

XLDnaute Barbatruc

• 19 Juin 2011

• #2

Re : Derniere ligne du talbeau

Bonjour vidou

A tester:

Code:

Sub selection()
Dim L  As Long
Dim C As Long
    L = Range("A65436").End(xlUp).Row
    C = Cells(L, 256).End(xlToLeft).Column
    Range(Cells(L, 1), Cells(L, C)).Select
End Sub

 

Vote positif 0 Vote négatif

V

vidou

Guest

• 19 Juin 2011

• #3

Merci pierre jean, c'est excatement ce qu'il me fallait

VBA c'est un vrai plaisir

Bon dimanche

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Juin 2011

• #4

Re : Derniere ligne du talbeau

Bonjour vidou, pierrejean 😉

Une autre façon

Code:

Sub a()
Range("A65536").End(xlUp).SpecialCells(2).Select
End Sub

 

Vote positif 0 Vote négatif

H

hamcec

Guest

• 19 Juin 2011

• #5

Re : Derniere ligne du talbeau

Bonsoir,

Nouvelle option possible :

VB:

Sub P_Selection()
Range(Cells(1, 1), Cells(Cells(1, 1).CurrentRegion.Rows.Count, 1)).Select
End Sub

Cdt, Hamcec.

 

Vote positif 0 Vote négatif