Filtre: sélection en un click ?

Bonjour,


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target <> "" Then
[A1].AutoFilter Field:=1, Criteria1:=Target
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
[A1].AutoFilter Field:=1
End Sub

JB

On 13 juin, 07:55, "gerald" <sdfs...@s.neo> wrote:

Bonjour à tous,

Serait-il possible d'accélérer e processus de sélection à l'int érieur d'un
filtre ?

Voici une image plus parlante:http://cjoint.com/?gmnllkrKL3
J'aimerai savoir s'il serait possible de cliquer directement sur le fruit
choisis (Banane) pour n'afficher que les résultats désirés (tous le s prix
pour le fruit "Banane")
(si besoin le fichier excel est disponible ici :http://cjoint.com/?gmnobq hIdl)

En fait j'ai plusieurs dizaines de fruits différents et trouver le bon fruit
dans la fenetre de défilement (bizarrement la molette de ma souris ne le
fait pas défiler) devient un peu trop fastidieux au bout d'un moment à mon
gout.

Une précision: je dispose d'Excel 2003 sous XP.

Merci d'avance pour votre aide ;)
Gerald

http://cjoint.com/?gnipanWMOf

JB

On 13 juin, 08:05, JB <boisgont...@hotmail.com> wrote:

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target <> "" Then
[A1].AutoFilter Field:=1, Criteria1:=Target
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
[A1].AutoFilter Field:=1
End Sub

JB

On 13 juin, 07:55, "gerald" <sdfs...@s.neo> wrote:

Bonjour à tous,

Serait-il possible d'accélérer e processus de sélection à l'int érieur d'un
filtre ?

Voici une image plus parlante:http://cjoint.com/?gmnllkrKL3
J'aimerai savoir s'il serait possible de cliquer directement sur le fru it
choisis (Banane) pour n'afficher que les résultats désirés (tous les prix
pour le fruit "Banane")
(si besoin le fichier excel est disponible ici :http://cjoint.com/?gmno bqhIdl)

En fait j'ai plusieurs dizaines de fruits différents et trouver le bo n fruit
dans la fenetre de défilement (bizarrement la molette de ma souris ne le
fait pas défiler) devient un peu trop fastidieux au bout d'un moment à mon
gout.

Une précision: je dispose d'Excel 2003 sous XP.

Merci d'avance pour votre aide ;)
Gerald- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Bonjour JB,

Merci beaucoup. ;)
Toutefois, quand j'adapte ton fichier excel au mien (*) le tri a l'air de se
faire mais il ne me reste plus que la première ligne de visible ainsi que
les lignes vides en dessous de 3400 dans mon cas, mais aucune ligne pleine
du dessus!

J'ai essayé plusieurs fois de recréer cette erreur dans le fichier que tu
m'a très gentiment posté mais je n'y suis pas arrivé. (je sais pas si çà
peut aider mais le seul petit bug que je trouve c'est en cliquant sur "alp":
deux autres lignes apparaissent).
http://cjoint.com/?gnjcxr6r4J

Merci d'avance,
Gérald


(* dans la bonne 'feuil1' pour moi)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([H2:H65000], Target) Is Nothing And Target.Count = 1 Then
If Target <> "" Then
[H1].AutoFilter Field:=1, Criteria1:=Target
End If
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
[H1].AutoFilter Field:=1
End Sub

Lignes vides supprimées:

http://cjoint.com/?gnjx4e0eJZ

JB

On 13 juin, 09:02, "gerald" <sdfs...@s.neo> wrote:

Bonjour JB,

Merci beaucoup. ;)
Toutefois, quand j'adapte ton fichier excel au mien (*) le tri a l'air de se
faire mais il ne me reste plus que la première ligne de visible ainsi q ue
les lignes vides en dessous de 3400 dans mon cas, mais aucune ligne pleine
du dessus!

J'ai essayé plusieurs fois de recréer cette erreur dans le fichier qu e tu
m'a très gentiment posté mais je n'y suis pas arrivé. (je sais pas si çà
peut aider mais le seul petit bug que je trouve c'est en cliquant sur "al p":
deux autres lignes apparaissent).http://cjoint.com/?gnjcxr6r4J

Merci d'avance,
Gérald

(* dans la bonne 'feuil1' pour moi)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([H2:H65000], Target) Is Nothing And Target.Count = 1 Then
If Target <> "" Then
[H1].AutoFilter Field:=1, Criteria1:=Target
End If
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
[H1].AutoFilter Field:=1
End Sub

Merci JB ;)

Je pense avoir réussi à peut-être recréer mon bug:
http://cjoint.com/?gnkdn40lBY

Lorsque je clique sur H3, le tri ne se fait pas en H (alors que j'ai changé
ce qu'il y a d'écrit dans le module de "feuil2".

Merci d'avance,
Gérald


"JB" a écrit
Lignes vides supprimées:

http://cjoint.com/?gnjx4e0eJZ

JB

Mille mercis JB,

J'ai trouvé où je me trompais! En fait je ne savais pas que je devais changé
"AutoFilter Field:=1" en "AutoFilter Field:=8" pour la huitieme colonne!
Heureusement la tatonage et ton aide précieuse ont répondu présents! ;)


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([H2:H65000], Target) Is Nothing And Target.Count = 1 Then
If Target <> "" Then
[H1].AutoFilter Field:=8, Criteria1:=Target
End If
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
[H1].AutoFilter Field:=8
End Sub


Merci encore, c'est trop excellent! ;)
Gérald




"gerald" <sdfsdfd@s.neo> a écrit dans le message de news:
466fa519$0$19830$426a74cc@news.free.fr...

Merci JB ;)

Je pense avoir réussi à peut-être recréer mon bug:
http://cjoint.com/?gnkdn40lBY

Lorsque je clique sur H3, le tri ne se fait pas en H (alors que j'ai
changé ce qu'il y a d'écrit dans le module de "feuil2".

Merci d'avance,
Gérald


"JB" a écrit
Lignes vides supprimées:

http://cjoint.com/?gnjx4e0eJZ

JB