Discussion :

[jamal.b]

Voilà, je cherche à faire une macro qui permet de faire un filtre selon une valeur saisie sur une cellule.

Comment faire car le filtre de base ne permet pas de s'asscocier à une cellule???


En bref : voilà ma macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.AutoFilter Field:=14, Criteria1:=">0,35", Operator:=xlAnd

Comment avoir le criètre de filtre (0,35) liée à une cellule?

Merci d'avance !!!

[SfJ5Rpw8]

ben je crois que la solution passe par une macro événementielle qui sur changement d'état de ta "cellule liés" ... met à jour le filtre..

du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim st
  If Target.Address = "$P$1" Then ' Supposon que le critére de filtre est en P1
   st = ">" & Replace(Target.Value, ",", ".")
    Range("A1").AutoFilter Field:=14, Criteria1:=st
  End If
End Sub

[jamal.b]

Ma cellule ce nome : E14
elle se trouve sur une autre feuille appelé : "MENU"

Mais je vois pas comment la mettre en application (elle n'aparait pas quand je fait lecture de macro) ???

[jamal.b]

Je viens de comprendre le liens entre st et la macro mais j'ai fait une connerie car ça marche pas !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Macro5()
'
' Macro5 Macro
 
    Range("N1").Select
    Selection.AutoFilter Field:=14, Criteria1:=st, Operator:=xlAnd
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
  Dim st
  If Target.Address = Sheets("MENU").select "$E$14" Then
   st = ">" & Replace(Target.Value, ",", ".")
    Range("N1").AutoFilter Field:=14, Criteria1:=st
  End If
End Sub

[SfJ5Rpw8]

si tu as 2 feuilles il va falloir adapter le code ..., ce code est à mettre dans le code associé à la feuille Menu .. voir explorateur de projet (à gauche), affichage explorateur de projet ,puis clic droit sur la feuille..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim st as string 'variable temporaire..
  If Target.Address = ""$E$14"  Then ' Supposon que le critére de filtre est en E14
   st = ">" & Replace(Target.Value, ",", ".")
    sheets("FEUILLEAFILTRE").Range("N1").AutoFilter Field:=14, Criteria1:=st
  End If
End Sub

Remplace le nom FEUILLEAFILTRE par le nom de ta feuille

[jamal.b]

T vraiement un bosse toi !

T'en as pas marre d'avoir toujours les bonne réponse !!!





En tout cas tout roule sur des roulettes...