B
Bat
Guest
Bonjour
Je souhaite revoir un code VBA que j'ai et le réadapter :
Application.ScreenUpdating = False
x = [A65536].End(3).Row
[C2] = '=and(A2<>''N'')'
Range('A1:A' & x).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=[C1:C2]
Range('A2:A' & x).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.ShowAllData
- Normalement ce code permet de supprimer toutes les lignes de la colonne A, à partir de la cellule A2. Le code fait le test dans la cellule C2.
Dans mon cas, je veux que ce code supprime toutes les lignes de la colonne E à partir de E4. Le teste pouvant se faire en D4. Mais ç bug !!! C'est probablement à cause des Range('A1:A' & x) et Range('A2:A' & x) que je n'arrive pas à adapter.
Si vous connaissez ce code, merci d'avance!
Je souhaite revoir un code VBA que j'ai et le réadapter :
Application.ScreenUpdating = False
x = [A65536].End(3).Row
[C2] = '=and(A2<>''N'')'
Range('A1:A' & x).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=[C1:C2]
Range('A2:A' & x).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.ShowAllData
- Normalement ce code permet de supprimer toutes les lignes de la colonne A, à partir de la cellule A2. Le code fait le test dans la cellule C2.
Dans mon cas, je veux que ce code supprime toutes les lignes de la colonne E à partir de E4. Le teste pouvant se faire en D4. Mais ç bug !!! C'est probablement à cause des Range('A1:A' & x) et Range('A2:A' & x) que je n'arrive pas à adapter.
Si vous connaissez ce code, merci d'avance!
