[résolu]filtre élaboré

[titooooo]

bonjour


je veut faire un filtre élaboré


si je chois en H3 la valeur b1 , je veut qi'il m(affiche en tableau vert que lescellule ayant centre "b1"

 

[Yaloo]

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+

 

[titooooo]

Re : filtre élaboré

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

 

[Yaloo]

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 ?

 

[titooooo]

Re : filtre élaboré

re

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

 

[Yaloo]

Re : filtre élaboré

Vois avec le fichier ci-joint

A+
Martial

 

[job75]

Re : [résolu]filtre élaboré

Bonjour titooooo, salut Yaloo,

Dans le code de la feuille :

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+

 

[titooooo]

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

 

[Yaloo]

Re : [résolu]filtre élaboré

Bonjour titoooo, Job,

Il suffit de mettre

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

Avec un J

A+

 

[titooooo]

Re : [résolu]filtre élaboré

merci je l'es zappé , encore merci

 

[job75]

Re : [résolu]filtre élaboré

Bonjour,

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

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

A+

 

[Yaloo]

Re : [résolu]filtre élaboré

Bonjour Job,

Oui en effet, je suis allé trop vite.

A+