Microsoft 365 VBA filtre plusieurs colonne a partir d'une donnée (sous combobox)

Dranreb

XLDnaute Barbatruc

• 17 Août 2023

• #2

Bonjour.
Un essai avec mon fameux module de service MSujetCBx.

 

Pièces jointes

• SujMulticolonDeeRose.xlsm

  43 KB · Affichages: 13

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Août 2023

• #3

Bonsoir DeeRose, Bernard,

Avec le filtre avancé c'est vraiment très simple, le code de la feuille :

VB:

Private Sub ComboBox1_Change()
If FilterMode Then ShowAllData 'affiche tout
If ComboBox1.ListIndex = -1 Then Exit Sub
ThisWorkbook.Names.Add "CB", Val(ComboBox1) 'nom défini
[M2] = "=OR(I2=CB,J2=CB,K2=CB)" 'critère
[A1].CurrentRegion.AdvancedFilter xlFilterInPlace, [M1:M2] 'filtre avancé
[M2] = ""
End Sub

Bonne nuit.

 

Pièces jointes

• Filtre avancé(1).xlsm

  20.5 KB · Affichages: 6

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Août 2023

• #4

Bonjour le forum,

Avec NB.SI c'est plus simple :

VB:

[M2] = "=COUNTIF(I2:K2,CB)" 'critère avec NB.SI

A+

 

Pièces jointes

• Filtre avancé(2).xlsm

  21 KB · Affichages: 1
• Filtre avancé(2 bis).xlsm

  21.3 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Août 2023

• #5

Si les données peuvent être des nombres ou des textes on utilisera SOMMEPROD :

VB:

Private Sub ComboBox1_Change()
If FilterMode Then ShowAllData 'affiche tout
If ComboBox1.ListIndex = -1 Then Exit Sub
ThisWorkbook.Names.Add "CB", "=""" & ComboBox1 & """" 'nom défini
[M2] = "=SUMPRODUCT(N(""""&I2:K2=CB))" 'critère avec SOMMEPROD
[A1].CurrentRegion.AdvancedFilter xlFilterInPlace, [M1:M2] 'filtre avancé
[M2] = ""
End Sub

 

Pièces jointes

• Filtre avancé(3).xlsm

  21.3 KB · Affichages: 8

Vote positif 0 Vote négatif

D

DeeRose

XLDnaute Nouveau

• 18 Août 2023

• #6

job75 à dit:

Bonsoir DeeRose, Bernard,

Avec le filtre avancé c'est vraiment très simple, le code de la feuille :

VB:

Private Sub ComboBox1_Change()
If FilterMode Then ShowAllData 'affiche tout
If ComboBox1.ListIndex = -1 Then Exit Sub
ThisWorkbook.Names.Add "CB", Val(ComboBox1) 'nom défini
[M2] = "=OR(I2=CB,J2=CB,K2=CB)" 'critère
[A1].CurrentRegion.AdvancedFilter xlFilterInPlace, [M1:M2] 'filtre avancé
[M2] = ""
End Sub

Bonne nuit.

Cliquez pour agrandir...

MErci pour votre retour.
J'au un point bloquant au niveau : [A1].CurrentRegion.AdvancedFilter xlFilterInPlace, [M1:M2] 'filtre avancé
Pouvez vous me traduire cette ligne svp ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Août 2023

• #7

Faites une recherche sur le web de ce que vous ne comprenez pas.

CurrentRegion ou AdvancedFilter ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Août 2023

• #8

Ma fonction SujMultiCol a l'avantage de proposer pour la ComboBox une liste classée et sans doublon des différentes valeurs trouvées dans les colonnes concernées.
Avec seulement de quoi filtrer la liste d'après le choix, il faut préalablement constituer cette liste par une autre voie.

 

Vote positif 0 Vote négatif