Macro filtre auto avec critère variable

[yann_160]

Bonjour à tous,
Voici mon problème; J'aimerai créer une macro avec un bouton qui filtrerai par exemple la colonne F en fonction de la cellule "J2".
Merci d'avance de votre aide.
Bon après midi
Yann

 

[SergiO]

Re : Macro filtre auto avec critère variable

Bonjour Yann

Essaie ceci:

Sub Macro1()
Selection.AutoFilter Field:=6, Criteria1:=Range("J2")
End Sub

 

[yann_160]

Re : Macro filtre auto avec critère variable

Merci SergiO, ça marche bien, mais si je veux que le filtre soit supérieur ou égal à xx.
Que dois je ajouter à
Selection.AutoFilter Field:=6, Criteria1:=Range("J2")
Merci

 

[Staple1600]

Re : Macro filtre auto avec critère variable

Bonsoir


Ca doit fonctionner théoriquement de la sorte

Sub test()
Dim LE_CRIT As String
LE_CRIT = Range("J2")
Selection.AutoFilter Field:=6, Criteria1:=">=" & LE_CRIT
End Sub

Sur XL2000 (testok) ainsi

Sub test_II()
Dim LE_CRIT
LE_CRIT = ActiveSheet.Range("J2").Value
Selection.AutoFilter
Selection.AutoFilter 6, ">" & LE_CRIT, xlAnd
End Sub

 

[Staple1600]

Re : Macro filtre auto avec critère variable

Re


Pour le fun ( )

Sub test_IV()
Dim LE_CRIT
LE_CRIT = ActiveSheet.Range("J2").Value
If MsgBox("Si Click OUI | Le critère est : >= " _
& LE_CRIT & Chr(13) & "  Click NON | Le critère est : <= " _
& LE_CRIT, vbQuestion + vbYesNo, "Filtrage") = vbYes Then
Selection.AutoFilter
Selection.AutoFilter 6, ">=" & LE_CRIT
Else
Selection.AutoFilter
Selection.AutoFilter 6, "<=" & LE_CRIT
End If
End Sub

Au préalable il faut avoir sélectionner ton entête de plage à filtrer

 

[yann_160]

Re : Macro filtre auto avec critère variable

Merci SergiO,