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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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" 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
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.
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" 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
JB
http://cjoint.com/?gnipanWMOf
JB
On 13 juin, 08:05, JB 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" 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 -
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 -
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" 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 -
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 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
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
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
Lignes vides supprimées:
http://cjoint.com/?gnjx4e0eJZ
JB
On 13 juin, 09:02, "gerald" 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
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 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
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
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".
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
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" a écrit dans le message de news: 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
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".
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" a écrit dans le message de news: 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".