selectionner un filtre avec un repere different

Staple1600

XLDnaute Barbatruc

• 3 Juillet 2007

• #2

Re : selectionner un filtre avec un repere different

Bonsoir

En modifiant un peu le code de ta macro

Adapte ce qui est en gras à ton classeur

Code:

Sub Macro1()
Dim Valeur As String ' déclaration de Valeur
'ici on demande la valeur du critère
Valeur = InputBox("Quel critère pour le filtre?") 
If Not AutoFilterMode Then 
'on vérifie s'il n'y a pas déjà un filtre automatique
[B] Range("A1")[/B].AutoFilter Field:=3, Criteria1:="=" & Valeur, Operator:=xlAnd
' application du filtre
End If
End Sub

 

Dernière édition: 3 Juillet 2007

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Juillet 2007

• #3

Re : selectionner un filtre avec un repere different

Re

voir fichier joint

 

Dernière édition: 25 Novembre 2010

Vote positif 0 Vote négatif

M

mefis

Guest

• 3 Juillet 2007

• #4

Re : selectionner un filtre avec un repere different

merci pour ton aide mais c'est possible de lier le critere à des cellues afin d'avoir une macro par cellule sans avoir a rentrer d'info lors du déroulement de la macro?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Juillet 2007

• #5

Re : selectionner un filtre avec un repere different

Bonsoir

Il suffit de modifier
Dim Valeur As String ' déclaration de Valeur
Dim Rng As Range
Set Rng = Sheets("donnees").Range("A4")
'ici on demande la valeur du critère
'Valeur = InputBox("Quel critère pour le filtre?")
Valeur=Sheets("donnees").Range("B9")
If Not AutoFilterMode Then
'on vérifie s'il n'y a pas déjà un filtre automatique
Rng.AutoFilter Field:=3, Criteria1:="=" & Valeur, Operator:=xlAnd
' application du filtre
End If
Sheets("donnees").Select
End Sub

 

Vote positif 0 Vote négatif

M

mefis

Guest

• 3 Juillet 2007

• #6

Re : selectionner un filtre avec un repere different

merci c'est excellent mais est il possible d'avoir un message quand le repere n'existe pas dans la colonne 3.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Juillet 2007

• #7

Re : selectionner un filtre avec un repere different

Re

A tester

Code:

Sub test4()
Dim Valeur As String ' déclaration de Valeur
Dim Rng As Range
Set Rng = Sheets("donnees").Range("A4")
'ici on demande la valeur du critère
'Valeur = InputBox("Quel critère pour le filtre?")
[B]Valeur=Sheets("donnees").Range("B9")[/B]
If Not AutoFilterMode Then
[B]If IsEmpty(Valeur) Then 
MsgBox "Critère non valide", vbCritical,"Attention"
Exit sub
Else
[/B] 'on vérifie s'il n'y a pas déjà un filtre automatique
Rng.AutoFilter Field:=3, Criteria1:="=" & Valeur, Operator:=xlAnd
' application du filtre
End If
[B]End if[/B]
Sheets("donnees").Select
End Sub

 

Dernière édition: 3 Juillet 2007

Vote positif 0 Vote négatif

M

mefis

Guest

• 3 Juillet 2007

• #8

Re : selectionner un filtre avec un repere different

je peux abuser, ça ne marche pas, la ligne : MsgBox("Critère non valide",vbCritical, "Attention") j'ai un message d'erreur de compilation: attendu=

merci encore

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Juillet 2007

• #9

Re : selectionner un filtre avec un repere different

Re

désole

il faut retirer les ()

MsgBox "Critère non valide", vbCritical,"Attention"

 

Dernière édition: 4 Juillet 2007

Vote positif 0 Vote négatif

M

mefis

Guest

• 4 Juillet 2007

• #10

Re : selectionner un filtre avec un repere different

Merci pour ton aide précieuse
bon forum
@+

 

Vote positif 0 Vote négatif

G

gbinforme

XLDnaute Impliqué

• 4 Juillet 2007

• #11

Re : selectionner un filtre avec un repere different

bonsoir à tous

Permettez moi de vous proposer cette version événementielle.

Je ne c'est pas si c'est ce qui était recherché par mefis mais cela me parait simple à utiliser.

 

Pièces jointes

• filtre_reperes.xls

  24.5 KB · Affichages: 45

Vote positif 0 Vote négatif

M

mefis

Guest

• 4 Juillet 2007

• #12

Re : selectionner un filtre avec un repere different

Bonsoir gbinforme,
ta version m'interesse mais j'ai besoin de la selection dans Feuil1
peux tu me dire comment modifier ta version pour y arriver


Set flt = Sheets("donnees")?????????????? Range("A4") ' position du filtre
Set val = Sheets("Feuil1") ?????????????Range("C2") ' position de

 

Vote positif 0 Vote négatif

G

gbinforme

XLDnaute Impliqué

• 5 Juillet 2007

• #13

Re : selectionner un filtre avec un repere different

Bonjour,

Pour que cela fonctionne dans la feuil1, il te faut mettre la macro dans la "feuil1".

Private Sub Worksheet_Change(ByVal sel As Range)

Dim flt As Range ' déclaration de la position du filtre
Dim val As Range ' déclaration de la position de la cellule sélection

Set flt = Sheets("donnees").Range("A4") ' position du filtre
Set val = Range("C2") ' position de

If Not Intersect(sel, val) Is Nothing Then 'la cellule sélection est modifiée

If IsEmpty(val) Then
' suppression du filtre
flt.AutoFilter
Else
' application du filtre
flt.AutoFilter Field:=3, Criteria1:="=" & val, Operator:=xlAnd
End If
Sheets("donnees").Activate
End If
End Sub

 

Vote positif 0 Vote négatif