[résolu]filtre élaboré

Y

Yaloo

XLDnaute Barbatruc

• 27 Novembre 2013

• #2

Re : filtre élaboré

Bonsoir titooooo,

Avec le filtre élaboré, vois avec le fichier ci-dessous en feuil1, j'ai renvoyé les données en colonne P, Q et R, mais il est possible de les mettre en lieu et place de tes données initiales, mais ça va tout écraser.

En feuil2, le filtre plus classique avec affichage uniquement des données souhaitée.

A+

 

Pièces jointes

• filtre elabor.xlsm

  28.1 KB · Affichages: 26
• filtre elabor.xlsm

  28.1 KB · Affichages: 27
• filtre elabor.xlsm

  28.1 KB · Affichages: 29

Vote positif 0 Vote négatif

titooooo

XLDnaute Occasionnel

• 27 Novembre 2013

• #3

Re : filtre élaboré

merci mais si je choisi une autre activité rien n'est filtré

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 27 Novembre 2013

• #4

Re : filtre élaboré

Re,

Désolé, mais dans ta question, tu ne parlais que de la cellule H3
Tu prendrais quelle solution ? Feuil1 ou Feuil2 ?

 

Vote positif 0 Vote négatif

titooooo

XLDnaute Occasionnel

• 27 Novembre 2013

• #5

Re : filtre élaboré

re

j'aimerais avoir le choix en h3 ,i3 j3 si possible

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 27 Novembre 2013

• #6

Re : filtre élaboré

Vois avec le fichier ci-joint

A+
Martial

 

Pièces jointes

• filtre elabor.xlsm

  28.7 KB · Affichages: 40
• filtre elabor.xlsm

  28.7 KB · Affichages: 40
• filtre elabor.xlsm

  28.7 KB · Affichages: 37

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Novembre 2013

• #7

Re : [résolu]filtre élaboré

Bonjour titooooo, salut Yaloo,

Dans le code de la feuille :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [H3:J3]) Is Nothing Then Exit Sub
[E8] = "=AND(OR(B8=H$3,$H$3=""""),OR(C8=I$3,I$3=""""),OR(D8=J$3,J$3=""""))"
[B7].CurrentRegion.AdvancedFilter xlFilterInPlace, [E7:E8]
[E8] = "" 'à neutraliser pour voir la formule en E8
End Sub

Fichier joint.

A+

 

Pièces jointes

• Filtre élaboré(1).xls

  66 KB · Affichages: 38
• Filtre élaboré(1).xls

  66 KB · Affichages: 38
• Filtre élaboré(1).xls

  66 KB · Affichages: 39

Vote positif 0 Vote négatif

titooooo

XLDnaute Occasionnel

• 28 Novembre 2013

• #8

Re : [résolu]filtre élaboré

bonjour

j'ai apporté qq modif afin que le code s’adapte a mon fichier mais hélas erreur

puis je avoir une aide svp

 

Pièces jointes

• Filtre élaboré(error) (4).xls

  57 KB · Affichages: 25

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 28 Novembre 2013

• #9

Re : [résolu]filtre élaboré

Bonjour titoooo, Job,

Il suffit de mettre

[J7].CurrentRegion.AdvancedFilter xlFilterInPlace, [M6:M7]

Cliquez pour agrandir...

Avec un J

A+

 

Vote positif 0 Vote négatif

titooooo

XLDnaute Occasionnel

• 28 Novembre 2013

• #10

Re : [résolu]filtre élaboré

merci je l'es zappé , encore merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Novembre 2013

• #11

Re : [résolu]filtre élaboré

Bonjour,

Merci Yaloo, mais c'est plus logique avec J6 :

Code:

[J6].CurrentRegion.AdvancedFilter xlFilterInPlace, [M6:M7]

A+

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 28 Novembre 2013

• #12

Re : [résolu]filtre élaboré

Bonjour Job,

Oui en effet, je suis allé trop vite.

A+

 

Vote positif 0 Vote négatif