Je possede un tableau avec 5 colonnes.
Certaines lignes de la 5 e colonne contient uniquement des "0", et je
voudrai faire une macro qui me selectionne automatiquement toutes les lignes
qui contiennent un "0" dans la 5e colonne, afin de les masquer.
Est-ce possible?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
Sub zzzz() x = [E65536].End(3).Row With Range("E1:E" & x) .AutoFilter Field:=1, Criteria1:="0" .SpecialCells(xlCellTypeVisible).Select End With [A1].AutoFilter Selection.EntireRow.Hidden = True End Sub
AV
Sub zzzz()
x = [E65536].End(3).Row
With Range("E1:E" & x)
.AutoFilter Field:=1, Criteria1:="0"
.SpecialCells(xlCellTypeVisible).Select
End With
[A1].AutoFilter
Selection.EntireRow.Hidden = True
End Sub
Sub zzzz() x = [E65536].End(3).Row With Range("E1:E" & x) .AutoFilter Field:=1, Criteria1:="0" .SpecialCells(xlCellTypeVisible).Select End With [A1].AutoFilter Selection.EntireRow.Hidden = True End Sub
AV
Nico
je vais essayer ca merci! "AV" a écrit dans le message de news:%
Sub zzzz() x = [E65536].End(3).Row With Range("E1:E" & x) .AutoFilter Field:=1, Criteria1:="0" .SpecialCells(xlCellTypeVisible).Select End With [A1].AutoFilter Selection.EntireRow.Hidden = True End Sub
AV
je vais essayer ca merci!
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de
news:%23Pqzchd3EHA.1396@tk2msftngp13.phx.gbl...
Sub zzzz()
x = [E65536].End(3).Row
With Range("E1:E" & x)
.AutoFilter Field:=1, Criteria1:="0"
.SpecialCells(xlCellTypeVisible).Select
End With
[A1].AutoFilter
Selection.EntireRow.Hidden = True
End Sub
je vais essayer ca merci! "AV" a écrit dans le message de news:%
Sub zzzz() x = [E65536].End(3).Row With Range("E1:E" & x) .AutoFilter Field:=1, Criteria1:="0" .SpecialCells(xlCellTypeVisible).Select End With [A1].AutoFilter Selection.EntireRow.Hidden = True End Sub
AV
Nico
j'ai quelques bugs bizarre mais ca a marché "Nico" a écrit dans le message de news:
je vais essayer ca merci! "AV" a écrit dans le message de news:%
Sub zzzz() x = [E65536].End(3).Row With Range("E1:E" & x) .AutoFilter Field:=1, Criteria1:="0" .SpecialCells(xlCellTypeVisible).Select End With [A1].AutoFilter Selection.EntireRow.Hidden = True End Sub
AV
j'ai quelques bugs bizarre mais ca a marché
"Nico" <nmalick@telecominter.ch> a écrit dans le message de
news:OZLVy4d3EHA.1296@TK2MSFTNGP10.phx.gbl...
je vais essayer ca merci!
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de
news:%23Pqzchd3EHA.1396@tk2msftngp13.phx.gbl...
Sub zzzz()
x = [E65536].End(3).Row
With Range("E1:E" & x)
.AutoFilter Field:=1, Criteria1:="0"
.SpecialCells(xlCellTypeVisible).Select
End With
[A1].AutoFilter
Selection.EntireRow.Hidden = True
End Sub
j'ai quelques bugs bizarre mais ca a marché "Nico" a écrit dans le message de news:
je vais essayer ca merci! "AV" a écrit dans le message de news:%
Sub zzzz() x = [E65536].End(3).Row With Range("E1:E" & x) .AutoFilter Field:=1, Criteria1:="0" .SpecialCells(xlCellTypeVisible).Select End With [A1].AutoFilter Selection.EntireRow.Hidden = True End Sub