Simplification VBA

Le
Didier NOVARIN
Bonsoir,
Je souhaite simplifier cela afin de ne pas sélectionner le tableau.
Je vous remercie
Didier

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:=""
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Modeste
Le #6719481
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
Le #6719471
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" de news: 483c4682$0$21146$
Bonsoir,
Je souhaite simplifier cela afin de ne pas sélectionner le tableau.
Je vous remercie
Didier

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:=""




Michel Pierron
Le #6720291
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" de news:483c4682$0$21146$
Bonsoir,
Je souhaite simplifier cela afin de ne pas sélectionner le tableau.
Je vous remercie
Didier

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:=""





Didier NOVARIN
Le #6720261
OK merci beaucoup à tous
Didier

"Michel Pierron"
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" de news:483c4682$0$21146$
Bonsoir,
Je souhaite simplifier cela afin de ne pas sélectionner le tableau.
Je vous remercie
Didier

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:=""









Publicité
Poster une réponse
Anonyme