Filtre automatique en fonction d'une cellule

[jooris]

Bonjour à tous,
petite question sans doute très simple pour la majorité d'entre vous..

Sub tri()
Range("B11:E150").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=">2", Operator:=xlAnd
End Sub

Ci dessus une macro de filtre auto, réglé sur 2.
Est ce qu'il serait possible de remplacer le 2 par l'adresse d'une cellule?
Merci de votre aide en tout cas!!!

 

[Pierrot93]

Re : Filtre automatique en fonction d'une cellule

Bonsoir,

essaye ceci :

Selection.AutoFilter Field:=2, Criteria1:=">" & Range("A1").value , Operator:=xlAnd

bonne soirée
@+

 

[jooris]

Re : Filtre automatique en fonction d'une cellule

Merci ça marche bien!
Du moins tant qu'on ne travaille pas avec des pourcentages, ce qui est mon cas..
Quelqu'un aurait une idée?

 

[Pierrot93]

Re : Filtre automatique en fonction d'une cellule

Bonjour,

essaye en modifiant comme suit :

Selection.AutoFilter Field:=2, Criteria1:=">" & Range("A1").[COLOR="Red"][B]Text[/B][/COLOR], Operator:=xlAnd

 

[jooris]

Re : Filtre automatique en fonction d'une cellule

c'est juste parfait
Merci, Merci, Merci!!!!!!!!!

 

[Skro]

Re : Filtre automatique en fonction d'une cellule

Ca marche super sauf que j'ai un autre souci: je recherche les valeurs commençant par ma cellule... Et non pas celles égales ou supérieures...
Merci

 

[Skro]

Re : Filtre automatique en fonction d'une cellule

Je viens de comprendre qu'il fallait un "*" pour déclarer "commence par". Le soucis est que même en déclarant une variable en amont, impossible de caler un "*"...

 

[Pierrot93]

Re : Filtre automatique en fonction d'une cellule

Bonsoir,

essaye peut être ainsi :

Selection.AutoFilter Field:=2, Criteria1:="=" & Range("A1").Text & "*"

bonne soirée
@+

 

[Skro]

Re : Filtre automatique en fonction d'une cellule

Merci beaucoup! je test ça tout de suite!
Bonne journée