DL = Cells(Application.Rows.Count, 2).End(xlUp).Row
Sub Macro1()
Dim y As Range
Set y = Feuil1.ListObjects(1).ListColumns(2).DataBodyRange.Find("*", , xlValues, , 1, 2, 0)
MsgBox y.Row
End Sub
Sub test()
Dim DL As Integer
DL = Range("Tableau1")(Range("Tableau1").Rows.Count, 2).End(xlUp).Row
MsgBox (DL)
End Sub
N'étant pas chez moi, je ne peux retrouvrer mon fichier pour savoir si j'avais trouvé ou non. je crois bien que non...
On Error Resume Next
DL = 0: DL = Application.WorksheetFunction.Match("zzzz", Columns(maCol), 1)
D2 = 0: D2 = Application.WorksheetFunction.Match(1E+99, Columns(maCol), 1)
On Error GoTo 0: If D2 > DL Then DL = D2 + 1 Else DL = DL + 1
'[Tableau1].Rows.Count : nombre le lignes du tableau
'[Tableau1].Rows(0).Row : numéro de la ligne des titres du tableau
Dl1 = [Tableau1].Rows.Count + [Tableau1].Rows(0).Row
Sub Macro1()
Dim DL1&, DL2&, DL&
On Error Resume Next
DL1 = Application.Match("zzz", Columns(2))
DL2 = Application.Match(9 ^ 9, Columns(2))
DL = IIf(DL1 > DL2, DL1, DL2)
MsgBox DL
End Sub
DL1 = Application.Match("zzz", Columns(2))
[/CODE]
Dim col%, t, DL&
col = 2 'n° de colonne du tableau
t = [Tableau1].Resize(, col + 1) 'au moins 2 éléments
For DL = UBound(t) To 1 Step -1
If Not IsEmpty(t(DL, col)) Then Exit For
Next
DL = DL + [Tableau1].Row - 1
MsgBox DL
Range(Tableau1) (Range((Tableau1).Rows.count,2).End(xlup).Row
With Feuil1.ListObjects(1)
DL = .Range.Row - .ShowHeaders + .ListRows.Count - .ShowTotals - 1
End With
With Feuil1.ListObjects(1)
DerLigneTableau = .DataBodyRange.Row + .DataBodyRange.Rows.Count - 1 - .ShowTotals
End With