Filtre complexe avec macro

DoubleZero

XLDnaute Barbatruc

• 5 Mars 2014

• #2

Re : Filtre complexe avec macro

Bonjour, mat7775, le Forum,

Une suggestion en pièce jointe.

A bientôt 🙂

 

Pièces jointes

• 00 - mat7775 - Filtrer.xls

  60.5 KB · Affichages: 56

Vote positif 0 Vote négatif

M

mat7775

Guest

• 5 Mars 2014

• #3

Re : Filtre complexe avec macro

Merci doublezero

Ca marche bien, mais y a-t'il une solution pour que le filtre s'applique directement sur la table d'origine (sans créer de nouvelle table ailleurs sur la même feuille ou sur une autre feuille)?

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 5 Mars 2014

• #4

Re : Filtre complexe avec macro

Re-bonjour,

mat7775 à dit:

... y a-t'il une solution pour que le filtre s'applique directement sur la table d'origine...

Cliquez pour agrandir...

Je ne sais comment procéder 😕.

Attendons la venue des artistes VBA.

A bientôt 🙂

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Mars 2014

• #5

Re : Filtre complexe avec macro

Bonjour.

VB:

Sub Macro1()
With Intersect([G2:G60000], ActiveSheet.UsedRange)
   .FormulaR1C1 = "=MATCH(LEFT(RC2,3)&LEFT(RC4,3),{""234222"";""444123"";""666555""},0)"
   .SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden = True ' .Delete ' ?
   .ClearContents: End With
End Sub

 

Vote positif 0 Vote négatif

M

mat7775

Guest

• 6 Mars 2014

• #6

Re : Filtre complexe avec macro

Merci beaucoup, ça marche très bien!

 

Vote positif 0 Vote négatif