Filtre VBA

Le
guy boily
Bonjour à vous tous

Depuis pluisieurs jours que je bute sur un problème :

Je voudrais filtrer ma liste avec un critère choisi dans une liste
déroulante placée dans la cellule $e$1 que j'ai nommée "choixress" avec
l'aide menu insertion,nom,champ,définir. Cette liste contient tous les noms
que peut contenir la colonne A.

Ma feuille sur laquelle je voudrais appliquée le filtre ne comprend que
quelques colonnes (7) et plusieurs lignes qui sont complétés par les
utilisateurs. Les en-têtes de colonne débute à la position A1 et les données
à la position A2. C'est sur cette colonne que je voudrais filtrer ma liste .
Ma feuille se nomme "tous(2)"

Une aide serait fort appréciée.

Merci
--
boily_SLSJ
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #4852621
bonjour Guy,

copie cette macro sur la page code de la feuille,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$1" Then _
[A1].AutoFilter Field:=1, Criteria1:=Range("$E$1")
End Sub


isabelle


Bonjour à vous tous

Depuis pluisieurs jours que je bute sur un problème :

Je voudrais filtrer ma liste avec un critère choisi dans une liste
déroulante placée dans la cellule $e$1 que j'ai nommée "choixress" avec
l'aide menu insertion,nom,champ,définir. Cette liste contient tous les noms
que peut contenir la colonne A.

Ma feuille sur laquelle je voudrais appliquée le filtre ne comprend que
quelques colonnes (7) et plusieurs lignes qui sont complétés par les
utilisateurs. Les en-têtes de colonne débute à la position A1 et les données
à la position A2. C'est sur cette colonne que je voudrais filtrer ma liste .
Ma feuille se nomme "tous(2)"

Une aide serait fort appréciée.

Merci


guy boily
Le #4852601
Bonjour Isabelle,

c'est fantastique...Tu ne peux savoir combien j'ai cherché partout
pour obtenir ce résultat ...c'est renversant qu'il y a de la compétence sur
ce forum....surtout que j'avais besoin de ce code pour préparer ma réunion du
personnel demain...

Merci mille fois
--
boily_SLSJ



bonjour Guy,

copie cette macro sur la page code de la feuille,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$1" Then _
[A1].AutoFilter Field:=1, Criteria1:=Range("$E$1")
End Sub


isabelle


Bonjour à vous tous

Depuis pluisieurs jours que je bute sur un problème :

Je voudrais filtrer ma liste avec un critère choisi dans une liste
déroulante placée dans la cellule $e$1 que j'ai nommée "choixress" avec
l'aide menu insertion,nom,champ,définir. Cette liste contient tous les noms
que peut contenir la colonne A.

Ma feuille sur laquelle je voudrais appliquée le filtre ne comprend que
quelques colonnes (7) et plusieurs lignes qui sont complétés par les
utilisateurs. Les en-têtes de colonne débute à la position A1 et les données
à la position A2. C'est sur cette colonne que je voudrais filtrer ma liste .
Ma feuille se nomme "tous(2)"

Une aide serait fort appréciée.

Merci





guy boily
Le #4852491
Re-bonjour Isabelle,

J'aurais un autre dépanage à te demander.

Voici: ma liste contient une ligne laissée en blanc(aucune donnée) je
voudrais lorsque je sélectionnne cet item dans la liste que le filtre soit
retiré.

Est-ce possible ?

Merci à l'avance de ta collaboration
--
boily_SLSJ



bonjour Guy,

copie cette macro sur la page code de la feuille,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$1" Then _
[A1].AutoFilter Field:=1, Criteria1:=Range("$E$1")
End Sub


isabelle


Bonjour à vous tous

Depuis pluisieurs jours que je bute sur un problème :

Je voudrais filtrer ma liste avec un critère choisi dans une liste
déroulante placée dans la cellule $e$1 que j'ai nommée "choixress" avec
l'aide menu insertion,nom,champ,définir. Cette liste contient tous les noms
que peut contenir la colonne A.

Ma feuille sur laquelle je voudrais appliquée le filtre ne comprend que
quelques colonnes (7) et plusieurs lignes qui sont complétés par les
utilisateurs. Les en-têtes de colonne débute à la position A1 et les données
à la position A2. C'est sur cette colonne que je voudrais filtrer ma liste .
Ma feuille se nomme "tous(2)"

Une aide serait fort appréciée.

Merci





isabelle
Le #4852361
bonjour Guy,

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.FilterMode = True And Target = "" Then
[A1].AutoFilter
Exit Sub
End If
If Target.Address = "$C$1" Then _
[A1].AutoFilter Field:=1, Criteria1:=Range("$C$1")
End Sub


isabelle

Re-bonjour Isabelle,

J'aurais un autre dépanage à te demander.

Voici: ma liste contient une ligne laissée en blanc(aucune donnée) je
voudrais lorsque je sélectionnne cet item dans la liste que le filtre soit
retiré.

Est-ce possible ?

Merci à l'avance de ta collaboration


guy boily
Le #4852251
Bonjour Isabelle

WOW ..."c'est nec plus Ultra" Je ne sais plus comment te remercier

Chapeau!

--
boily_SLSJ



bonjour Guy,

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.FilterMode = True And Target = "" Then
[A1].AutoFilter
Exit Sub
End If
If Target.Address = "$C$1" Then _
[A1].AutoFilter Field:=1, Criteria1:=Range("$C$1")
End Sub


isabelle

Re-bonjour Isabelle,

J'aurais un autre dépanage à te demander.

Voici: ma liste contient une ligne laissée en blanc(aucune donnée) je
voudrais lorsque je sélectionnne cet item dans la liste que le filtre soit
retiré.

Est-ce possible ?

Merci à l'avance de ta collaboration





isabelle
Le #4852241
au plaisir Guy,

amicalement,
isabelle

Bonjour Isabelle

WOW ..."c'est nec plus Ultra" Je ne sais plus comment te remercier

Chapeau!



jps
Le #4852201
moi, je sais : tu lui offres un bon repas quand elle sera en france, guy ;
si tu es seul, prévois quand même une table pour trois
jps

"guy boily" news:
Bonjour Isabelle

Je ne sais plus comment te remercier

Chapeau!


guy boily
Le #4852131
Bonjour JPS...

Une table pour trois ...HUMMM..un table pour deux et un repas qu'on te fera
livrer chez-toi ...à nos frais bien sur.
Je t'informe que le repas va me couter un 'bras' p-c-q je demeure au
Québec,Canada...

Sans rancune


--
boily_SLSJ



moi, je sais : tu lui offres un bon repas quand elle sera en france, guy ;
si tu es seul, prévois quand même une table pour trois
jps

"guy boily" news:
Bonjour Isabelle

Je ne sais plus comment te remercier

Chapeau!







jps
Le #4965681
:-))))
mais c'est quoi un "bras", guy?
jps

"guy boily" news:
Bonjour JPS...

Une table pour trois ...HUMMM..un table pour deux et un repas qu'on te
fera
livrer chez-toi ...à nos frais bien sur.
Je t'informe que le repas va me couter un 'bras' p-c-q je demeure au
Québec,Canada...

Sans rancune


--
boily_SLSJ



moi, je sais : tu lui offres un bon repas quand elle sera en france, guy
;
si tu es seul, prévois quand même une table pour trois
jps

"guy boily" de
news:
Bonjour Isabelle

Je ne sais plus comment te remercier

Chapeau!









guy boily
Le #4965461
Bonjour JPS

Une expression consacrée au Québec :
"Ca va me coûter un Bras" = "Ca va me coûter cher, ca va être coûteux¸
onéreux, ruineux" ou encore "Ca va me coûter la peau des fesses".
Je me dit que ca vaut peut-être le coup......

Bye JPS
--
boily_SLSJ



:-))))
mais c'est quoi un "bras", guy?
jps

"guy boily" news:
Bonjour JPS...

Une table pour trois ...HUMMM..un table pour deux et un repas qu'on te
fera
livrer chez-toi ...à nos frais bien sur.
Je t'informe que le repas va me couter un 'bras' p-c-q je demeure au
Québec,Canada...

Sans rancune


--
boily_SLSJ



moi, je sais : tu lui offres un bon repas quand elle sera en france, guy
;
si tu es seul, prévois quand même une table pour trois
jps

"guy boily" de
news:
Bonjour Isabelle

Je ne sais plus comment te remercier

Chapeau!














Publicité
Poster une réponse
Anonyme