Bonjour,
je débute en VBA et je bosse sur un fichier comprenant le code ci-dessous :
Sub SupLignesFiltreAuto()
[BE7].AutoFilter Field:=1, Criteria1:="FAUX"
Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
[BE7].AutoFilter
End Sub
Quelqu'un pourrait il me déchiffer ce code car il plante ?
Merci d'avance
Steph
je débute en VBA et je bosse sur un fichier comprenant le code ci-dessous :
Sub SupLignesFiltreAuto()
[BE7].AutoFilter Field:=1, Criteria1:="FAUX"
Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase"). _
Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
[BE7].AutoFilter
End Sub
Quelqu'un pourrait il me déchiffer ce code car il plante ?
Merci d'avance
Steph