selectionner un filtre avec un repere different

[mefis]

Bonsoir à tous,
Je suis nouveau sur le site et je n'ai que peut de connaissance sur Excel,
Je vais essayer d'expliquer mon problème du mieux possible.
J’ai un certain nombre de repère sur Feuil1 que je veux sélectionner sur l'onglet "donnees" avec un filtre automatique.
Je n'arrive pas a trouver une solution pour avoir le même résultat mais avec un repère différent.
Avec la macro ci-dessous qui est basique je ne remonte que le repère 10
Je vais essayer de transmettre un fichier joint à ce message.

Merci d'avance à ceux qui voudrons bien jeter un oeil à mon problème.
Bonne soirée à tous





Sub recherche_repere()
'
' Macro1 Macro
' Macro enregistrée le 02/07/2007 par MEFIS
'

'
Range("B9").Select
Selection.Copy
Sheets("donnees").Select
Selection.AutoFilter Field:=3, Criteria1:="=10", Operator:=xlAnd
Range("A1").Select
End Sub

 

[Staple1600]

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

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

 

[Staple1600]

Re : selectionner un filtre avec un repere different

Re

voir fichier joint

 

[mefis]

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?

 

[Staple1600]

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

 

[mefis]

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.

 

[Staple1600]

Re : selectionner un filtre avec un repere different

Re

A tester

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

 

[mefis]

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

 

[Staple1600]

Re : selectionner un filtre avec un repere different

Re

désole

il faut retirer les ()

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

 

[mefis]

Re : selectionner un filtre avec un repere different

Merci pour ton aide précieuse
bon forum
@+

 

[gbinforme]

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.

 

[mefis]

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

 

[gbinforme]

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