OVH Cloud OVH Cloud

Filtre via VBA

2 réponses
Avatar
GoThi
Salut à tous et ... Bonne et heureuse année 2007 !

Soit le code suivant :
Range("B4").Select
Selection.AutoFilter Field:=1, Criteria1:="<>OK", Operator:=xlAnd,
Criteria2:="<>Null"
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.ShowAllData
Range("B4").Select

Je souhaite afficher les valeurs non "OK" et non vide.
Pas de problème pour le OK mais je n'arrive pas pour les non vides :-(

Merci d'avance pour votre aide.

@+
GoThi

2 réponses

Avatar
Daniel
Bonjour.
Criteria2:="<>"
Cordialement.
Daniel
"GoThi" a écrit dans le message de news:
45a24140$0$27373$
Salut à tous et ... Bonne et heureuse année 2007 !

Soit le code suivant :
Range("B4").Select
Selection.AutoFilter Field:=1, Criteria1:="<>OK", Operator:=xlAnd,
Criteria2:="<>Null"
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.ShowAllData
Range("B4").Select

Je souhaite afficher les valeurs non "OK" et non vide.
Pas de problème pour le OK mais je n'arrive pas pour les non vides :-(

Merci d'avance pour votre aide.

@+
GoThi



Avatar
GoThi
Pffffff ... trop simple pour que je trouve lol

Merci Daniel !


"Daniel" a écrit dans le message de news:
O%
Bonjour.
Criteria2:="<>"
Cordialement.
Daniel
"GoThi" a écrit dans le message de news:
45a24140$0$27373$
Salut à tous et ... Bonne et heureuse année 2007 !

Soit le code suivant :
Range("B4").Select
Selection.AutoFilter Field:=1, Criteria1:="<>OK", Operator:=xlAnd,
Criteria2:="<>Null"
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.ShowAllData
Range("B4").Select

Je souhaite afficher les valeurs non "OK" et non vide.
Pas de problème pour le OK mais je n'arrive pas pour les non vides :-(

Merci d'avance pour votre aide.

@+
GoThi