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
Modeste
Bonsour® Didier NOVARIN avec ferveur ;o))) vous nous disiez :
Je souhaite simplifier cela afin de ne pas sélectionner le tableau. Range("A2:AD2000").Select Selection.AutoFilter Field:=5, Criteria1:="<>" Selection.AutoFilter Field:=6, Criteria1:="<>" Selection.AutoFilter Field:=7, Criteria1:="" Selection.AutoFilter Field:=8, Criteria1:="" Selection.AutoFilter Field:=9, Criteria1:=""
???? peut-etre : With Range("A1:AD2000") .AutoFilter Field:=5, Criteria1:="<>" .AutoFilter Field:=6, Criteria1:="<>" .AutoFilter Field:=7, Criteria1:="" .AutoFilter Field:=8, Criteria1:="" .AutoFilter Field:=9, Criteria1:="" End With
-- -- @+ ;o)))
Bonsour® Didier NOVARIN avec ferveur ;o))) vous nous disiez :
Je souhaite simplifier cela afin de ne pas sélectionner le tableau.
Range("A2:AD2000").Select
Selection.AutoFilter Field:=5, Criteria1:="<>"
Selection.AutoFilter Field:=6, Criteria1:="<>"
Selection.AutoFilter Field:=7, Criteria1:=""
Selection.AutoFilter Field:=8, Criteria1:=""
Selection.AutoFilter Field:=9, Criteria1:=""
????
peut-etre :
With Range("A1:AD2000")
.AutoFilter Field:=5, Criteria1:="<>"
.AutoFilter Field:=6, Criteria1:="<>"
.AutoFilter Field:=7, Criteria1:=""
.AutoFilter Field:=8, Criteria1:=""
.AutoFilter Field:=9, Criteria1:=""
End With
Bonsour® Didier NOVARIN avec ferveur ;o))) vous nous disiez :
Je souhaite simplifier cela afin de ne pas sélectionner le tableau. Range("A2:AD2000").Select Selection.AutoFilter Field:=5, Criteria1:="<>" Selection.AutoFilter Field:=6, Criteria1:="<>" Selection.AutoFilter Field:=7, Criteria1:="" Selection.AutoFilter Field:=8, Criteria1:="" Selection.AutoFilter Field:=9, Criteria1:=""
???? peut-etre : With Range("A1:AD2000") .AutoFilter Field:=5, Criteria1:="<>" .AutoFilter Field:=6, Criteria1:="<>" .AutoFilter Field:=7, Criteria1:="" .AutoFilter Field:=8, Criteria1:="" .AutoFilter Field:=9, Criteria1:="" End With
-- -- @+ ;o)))
Tatanka
Essaie ceci :
Sub essai() With Range("A2:AD2000") .AutoFilter Field:=5, Criteria1:="<>" .AutoFilter Field:=6, Criteria1:="<>" .AutoFilter Field:=7, Criteria1:="" .AutoFilter Field:=8, Criteria1:="" .AutoFilter Field:=9, Criteria1:="" End With End Sub
Srge
"Didier NOVARIN" a écrit dans le message de news: 483c4682$0$21146$
Bonsoir, Je souhaite simplifier cela afin de ne pas sélectionner le tableau. Je vous remercie Didier
Sub essai()
With Range("A2:AD2000")
.AutoFilter Field:=5, Criteria1:="<>"
.AutoFilter Field:=6, Criteria1:="<>"
.AutoFilter Field:=7, Criteria1:=""
.AutoFilter Field:=8, Criteria1:=""
.AutoFilter Field:=9, Criteria1:=""
End With
End Sub
Srge
"Didier NOVARIN" <didier.novarin@club-internet.fr> a écrit dans le message
de news: 483c4682$0$21146$7a628cd7@news.club-internet.fr...
Bonsoir,
Je souhaite simplifier cela afin de ne pas sélectionner le tableau.
Je vous remercie
Didier
Sub essai() With Range("A2:AD2000") .AutoFilter Field:=5, Criteria1:="<>" .AutoFilter Field:=6, Criteria1:="<>" .AutoFilter Field:=7, Criteria1:="" .AutoFilter Field:=8, Criteria1:="" .AutoFilter Field:=9, Criteria1:="" End With End Sub
Srge
"Didier NOVARIN" a écrit dans le message de news: 483c4682$0$21146$
Bonsoir, Je souhaite simplifier cela afin de ne pas sélectionner le tableau. Je vous remercie Didier
Why not ? Dim i%, Crit$: Crit = "<>" With Range("A2:AD2000") For i = 5 To 9 If i > 6 Then Crit = "" .AutoFilter Field:=i, Criteria1:=Crit Next i End With
MP
"Didier NOVARIN" a écrit dans le message de news:483c4682$0$21146$
Bonsoir, Je souhaite simplifier cela afin de ne pas sélectionner le tableau. Je vous remercie Didier
Why not ?
Dim i%, Crit$: Crit = "<>"
With Range("A2:AD2000")
For i = 5 To 9
If i > 6 Then Crit = ""
.AutoFilter Field:=i, Criteria1:=Crit
Next i
End With
MP
"Didier NOVARIN" <didier.novarin@club-internet.fr> a écrit dans le message
de news:483c4682$0$21146$7a628cd7@news.club-internet.fr...
Bonsoir,
Je souhaite simplifier cela afin de ne pas sélectionner le tableau.
Je vous remercie
Didier
Why not ? Dim i%, Crit$: Crit = "<>" With Range("A2:AD2000") For i = 5 To 9 If i > 6 Then Crit = "" .AutoFilter Field:=i, Criteria1:=Crit Next i End With
MP
"Didier NOVARIN" a écrit dans le message de news:483c4682$0$21146$
Bonsoir, Je souhaite simplifier cela afin de ne pas sélectionner le tableau. Je vous remercie Didier
Why not ? Dim i%, Crit$: Crit = "<>" With Range("A2:AD2000") For i = 5 To 9 If i > 6 Then Crit = "" .AutoFilter Field:=i, Criteria1:=Crit Next i End With
MP
"Didier NOVARIN" a écrit dans le message de news:483c4682$0$21146$
Bonsoir, Je souhaite simplifier cela afin de ne pas sélectionner le tableau. Je vous remercie Didier
"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de news:
OqdBbJDwIHA.704@TK2MSFTNGP05.phx.gbl...
Why not ?
Dim i%, Crit$: Crit = "<>"
With Range("A2:AD2000")
For i = 5 To 9
If i > 6 Then Crit = ""
.AutoFilter Field:=i, Criteria1:=Crit
Next i
End With
MP
"Didier NOVARIN" <didier.novarin@club-internet.fr> a écrit dans le message
de news:483c4682$0$21146$7a628cd7@news.club-internet.fr...
Bonsoir,
Je souhaite simplifier cela afin de ne pas sélectionner le tableau.
Je vous remercie
Didier
Why not ? Dim i%, Crit$: Crit = "<>" With Range("A2:AD2000") For i = 5 To 9 If i > 6 Then Crit = "" .AutoFilter Field:=i, Criteria1:=Crit Next i End With
MP
"Didier NOVARIN" a écrit dans le message de news:483c4682$0$21146$
Bonsoir, Je souhaite simplifier cela afin de ne pas sélectionner le tableau. Je vous remercie Didier
