Filtre: sélection en un click ?

Le
gerald
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 les prix
pour le fruit "Banane")
(si besoin le fichier excel est disponible ici :
http://cjoint.com/?gmnobqhIdl )

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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4917101
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"
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


JB
Le #4917091
http://cjoint.com/?gnipanWMOf

JB

On 13 juin, 08:05, JB
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"


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 -



gerald
Le #4917061
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
JB
Le #4917041
Lignes vides supprimées:

http://cjoint.com/?gnjx4e0eJZ

JB

On 13 juin, 09:02, "gerald"
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


gerald
Le #4917011
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
gerald
Le #4916531
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" 466fa519$0$19830$
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



Publicité
Poster une réponse
Anonyme