[Résolu]Se placer sur la dernière cellule ne renvoyant pas "" (formule)

=MAX(SI(NBCAR(A1:A1000);LIGNE(A1:A1000)))+1

Sub DerLigne()
Dim lig As Long
lig = Evaluate("MAX(IF(LEN(A1:A1000),ROW(A1:A1000)))+1")
MsgBox lig 'pour tester
Cells(lig, 1).Select
End Sub

=MAX(SIGNE(NBCAR(A1:A1000))*LIGNE(A1:A1000))+1

=MAX(SIGNE(NBCAR(DECALER(A1;;;NBVAL(A:A))))*LIGNE(DECALER(A1;;;NBVAL(A:A))))+1

Sub DerLigne()
Dim lig As Long
lig = Evaluate("MAX(SIGN(LEN(OFFSET(A1,,,COUNTA(A:A))))*ROW(OFFSET(A1,,,COUNTA(A:A))))+1")
MsgBox lig 'pour tester
Cells(lig, 1).Select
End Sub

=EQUIV(99;LN(NBCAR(DECALER(A1;;;NBVAL(A:A)))))+1

Sub DerLigne()
Dim lig As Long
lig = Evaluate("MATCH(99,LN(LEN(OFFSET(A1,,,COUNTA(A:A)))))+1")
MsgBox lig 'pour tester
Cells(lig, 1).Select
End Sub

Sub select_vide()
For n = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
 If Range("A" & n) <> "" Then
   Range("A" & n + 1).Select
   Exit Sub
 End If
Next
End Sub

Sub DerLigne()
Dim plage As Range, lig As Long
Set plage = Intersect(ActiveCell.EntireColumn, Range("A1", ActiveSheet.UsedRange))
On Error Resume Next 'si la colonne est vide
lig = Evaluate("MATCH(99,LN(LEN(" & plage.Address & ")))+1")
Rows(lig).Select
End Sub

Sub DerLigne()
Dim plage As Range
On Error Resume Next 'si la colonne est vide
Set plage = Intersect(ActiveCell.EntireColumn, Range("A1", ActiveSheet.UsedRange))
If plage.Count = 1 Then Set plage = plage.Resize(2) 'il faut au moins 2 éléments
Rows(Evaluate("MATCH(99,LN(LEN(" & plage.Address & ")))+1")).Select
If Err Then MsgBox "Colonne vide..."
End Sub