D&terminer valeur dans selection

Bonjour,

J'ai une question, par rapport à mon bout de programme ci-dessous :

Columns("C:C").Select

LastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, ActiveCell.Column).End(xlUp).Row

Range("AO10").Select

ActiveSheet.Range("$A:$FL").AutoFilter Field:=40, Criteria1:=""

Rows("2:" & LastRow).Select <--------------------------------------- ma question : comment déterminer la valeur (2 ici) car des fois cela peut-être 10 ou 453 par exemple.

Merci d'avance

Bonjour,

Si tu disposes d'une cellule qui se trouve toujours sur la première ligne de la plage, tu peux nommer cette cellule qui deviendra la référence dans ton programme.

Exemple avec une cellule nommée PremLigne.

Dim LastRow As Long
    With ThisWorkbook.ActiveSheet
        LastRow = .Cells(Rows.Count, 3).End(xlUp).Row
        .Range("$A:$FL").AutoFilter Field:=40, Criteria1:=""
        .Rows(Range("PremLigne").Row & ":" & LastRow).Select
    End With

A+

Rechercher des sujets similaires à "terminer valeur selection"