[VBA-E]Filtre via une macro sur Excel

Version imprimable

26/04/2006, 13h09
jamal.b

[VBA-E]Filtre via une macro sur Excel

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:

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 !!! :aie:

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:

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

26/04/2006, 15h04
jamal.b

J'ai pas trop compris??

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) ???

j'ai compris une chose

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

Code:

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

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:

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

26/04/2006, 15h35
jamal.b

T vraiement un bosse toi !

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

:lol:

En tout cas tout roule sur des roulettes...