D
denis
Guest
Bonsoir à tous
et-il possible aprés un autofilter de revenir a la liste complete
une question bête bien sur mais je nage dans le brouillard
d'avance merci
Private Sub ini()
Dim WB As Workbook
Dim WS As Worksheet
Dim Cell As Range
Dim r As Range
Dim i As Integer
Dim L As Integer
Dim tabd() As String
Set WB = ThisWorkbook
With WB
Set WS = .Worksheets(4)
End With
Listnom.Clear
If WS.AutoFilterMode Then
WS.AutoFilterMode = False
WS.Range("A8").AutoFilter 2, TextNsm
Else
WS.Range("A8").AutoFilter 2, TextNsm
End If
L = WS.Range("A65536").End(xlUp).Row
If L = 8 Then
et-il possible aprés un autofilter de revenir a la liste complete
une question bête bien sur mais je nage dans le brouillard
d'avance merci
Private Sub ini()
Dim WB As Workbook
Dim WS As Worksheet
Dim Cell As Range
Dim r As Range
Dim i As Integer
Dim L As Integer
Dim tabd() As String
Set WB = ThisWorkbook
With WB
Set WS = .Worksheets(4)
End With
Listnom.Clear
If WS.AutoFilterMode Then
WS.AutoFilterMode = False
WS.Range("A8").AutoFilter 2, TextNsm
Else
WS.Range("A8").AutoFilter 2, TextNsm
End If
L = WS.Range("A65536").End(xlUp).Row
If L = 8 Then