Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Simplification de procédure de filtrage

Simplification de procédure de filtrage

2 réponses
Avatar
Didier NOVARIN
Bonsoir,
Je souhaite simplifier ma procédure en effet :
Au départ, j'ai cela, je souhaite pouvoir supprimer le Select
Je vous remercie
Didier

Range("A2:R" & Range("A5000").End(xlUp).Row).Select
Selection.AutoFilter Field:=12, Criteria1:="<>"
Selection.AutoFilter Field:=13, Criteria1:=""
Selection.AutoFilter Field:=14, Criteria1:=""
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
MichDenis
with Range("A2:R" & Range("A5000").End(xlUp).Row)
.AutoFilter Field:, Criteria1:="<>"
.AutoFilter Field:, Criteria1:=""
.AutoFilter Field:, Criteria1:=""
End with
Avatar
Didier NOVARIN
Merci beaucoup
Bonne journée
Didier

"MichDenis" a écrit dans le message de news:
uN7s%
with Range("A2:R" & Range("A5000").End(xlUp).Row)
.AutoFilter Field:, Criteria1:="<>"
.AutoFilter Field:, Criteria1:=""
.AutoFilter Field:, Criteria1:=""
End with