Derniere ligne du talbeau

[vidou]

BOnjour,

J'ai repris ce code pour selectionner la dernier ligne non vide d'un tableau
Ce code selectionne toute la ligne et je voudrais qu'il selectionne toujours la derniere ligne mais uniquement avec les colonnes avec des données

Exemple si donneés ligne 14 de A a F, il selectionne A14 : F14

La derniere ligne et la derniere colonne etant variable

Sub selection()

Dim L  As Long

    L = Range("a65436").End(xlUp).Row
    Rows(L).Select

End Sub

Vous remerciant par avance

Cordialement

 

[pierrejean]

Re : Derniere ligne du talbeau

Bonjour vidou

A tester:

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

 

[vidou]

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

VBA c'est un vrai plaisir

Bon dimanche

 

[Staple1600]

Re : Derniere ligne du talbeau

Bonjour vidou, pierrejean

Une autre façon

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

 

[hamcec]

Re : Derniere ligne du talbeau

Bonsoir,

Nouvelle option possible :

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

Cdt, Hamcec.