XL 2016 Filtre élaboré vba

Staple1600

XLDnaute Barbatruc

• 14 Février 2018

• #2

Bonsoir le fil, le forum

@tinet

Mon idée serait c'est possible d'avoir dans une feuille un tableau où j' indiquerai mes différents critères

Cliquez pour agrandir...

Mon idée, c'est possible d'avoir un fichier Excel joint par le demandeur où je pourrais tester mes différentes macros 😉

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 15 Février 2018

• #3

bonjour Staple1600

voici un fichier

 

Pièces jointes

• Classeur2.xlsm

  15.8 KB · Affichages: 41

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Février 2018

• #4

Bonsoir le fil, le forum

Comme ceci

VB:

Sub sup_Lignes()
Range("C1:C34").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets("Feuil2").Range("A1:A5"), Unique:=False
Set pf = [_FilterDataBase]
Application.DisplayAlerts = False
If WorksheetFunction.Subtotal(3, pf.Offset(1).Resize(pf.Rows.Count - 1, 1)) > 0 Then
    pf.Offset(1).Resize(pf.Rows.Count - 1).EntireRow.Delete
End If
ActiveSheet.ShowAllData
End Sub

Attention: en Feuil2 (en A1:A5)
code
lapin1
lapin2
lapin3
lapin4

 

Dernière édition: 15 Février 2018

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 15 Février 2018

• #5

bonsoir,

je viens de tester mais pas de résultat

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Février 2018

• #6

RE

Relis mon message précédent attentivement
(notamment la fin de celui-ci)

NB: J'ai évidemment testé avant de poster et cela fonctionne parfaitement sur mon PC.
Et cela parce que je respecte tout ce que j'ai décris dans mon précédent message 😉

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 15 Février 2018

• #7

ok désolé
louper code en A1 dans la liste

Et pour différent de liste en feuil2

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Février 2018

• #8

Re,

@tinet
Donc cela marche désormais chez toi, alors ?

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 15 Février 2018

• #9

oui c'est bon merci
avec ce code c'est possible de faire différent de la liste

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Février 2018

• #10

Re

C'est à dire?
Tu veux mettre un critère par formule comme précédemment?

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 15 Février 2018

• #11

la même chose mais supprime les lignes de la feuil1 si différent de la liste de la feuil2

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Février 2018

• #12

Re

C'est déjà ce que fait ma macro, non??
En tout cas, c'est ce qu'elle fait sur mon PC.

 

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 17 Février 2018

• #13

Bonjour Staple1600, le forum

Le code supprime les lignes qui correspond à la liste de la feuil2
Ma demande est
supprime toutes les lignes qui ne correspond pas à la liste de la feuil2

a+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Février 2018

• #14

Bonjour le fil, le forum

Ceci devrait faire l'affaire
1) Les critères sont agencés comme ci-dessous:


2) et la macro modifiée comme suit:

VB:

Sub Suppr_Lignes_II()
Dim a As Worksheet, b As Worksheet
Set a = Sheets("Feuil1"): Set b = Sheets("Feuil2")
a.Range(a.Cells(1, "C"), a.Cells(Rows.Count, "C").End(xlUp)).AdvancedFilter _
    Action:=1, CriteriaRange:=b.Range("A1:D2"), Unique:=False
Set pf = [_FilterDataBase]
Application.DisplayAlerts = False
If WorksheetFunction.Subtotal(3, pf.Offset(1).Resize(pf.Rows.Count - 1, 1)) > 0 Then
    pf.Offset(1).Resize(pf.Rows.Count - 1).EntireRow.Delete
End If
a.ShowAllData
End Sub

 

Dernière édition: 17 Février 2018

Vote positif 0 Vote négatif

tinet

XLDnaute Impliqué

• 17 Février 2018

• #15

Merci Staple1600

Tous bon pour moi🙂

 

Vote positif 0 Vote négatif