Gestion de filtre suivant valeur Combobox

  • Initiateur de la discussion Initiateur de la discussion Minus
  • Date de début Date de début
M

Minus

XLDnaute Nouveau
Type : Microsoft office Excel 2003

Bonjour,

Je suis certain qu'il y a moyen de simplifier cette macro. Etant novice, je fais appel à vos connaissances.

J'ai testé avec des variables... mais je ne suis pas un expert.

En vous remerciant,



Private Sub ComboBox4_Change()

ListBox1.Clear

If ComboBox4.Text = "" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
End If

If ComboBox4.Text = "7" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=7"
End If

If ComboBox4.Text = "8" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=8"
End If

If ComboBox4.Text = "9" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=9"
End If

If ComboBox4.Text = "10" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=10"
End If

If ComboBox4.Text = "11" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=11"
End If

If ComboBox4.Text = "12" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=12"
End If

If ComboBox4.Text = "13" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=13"
End If

If ComboBox4.Text = "14" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=14"
End If

If ComboBox4.Text = "15" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=15"
End If

If ComboBox4.Text = "16" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=16"
End If

If ComboBox4.Text = "17" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=17"
End If

If ComboBox4.Text = "18" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=18"
End If

If ComboBox4.Text = "19" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=19"
End If

If ComboBox4.Text = "20" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=20"
End If

If ComboBox4.Text = "21" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=21"
End If

If ComboBox4.Text = "22" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=22"
End If

If ComboBox4.Text = "23" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=23"
End If

If ComboBox4.Text = "24" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=24"
End If

If ComboBox4.Text = "25" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=25"
End If

If ComboBox4.Text = "26" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=26"
End If

If ComboBox4.Text = "27" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=27"
End If

If ComboBox4.Text = "28" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=28"
End If

If ComboBox4.Text = "29" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=29"
End If

If ComboBox4.Text = "30" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=30"
End If

If ComboBox4.Text = "31" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=31"
End If

If ComboBox4.Text = "32" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=32"
End If

If ComboBox4.Text = "33" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=33"
End If

If ComboBox4.Text = "34" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=34"
End If

If ComboBox4.Text = "35" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=35"
End If

If ComboBox4.Text = "36" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=36"
End If

If ComboBox4.Text = "37" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=37"
End If

If ComboBox4.Text = "38" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=38"
End If

If ComboBox4.Text = "39" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=39"
End If

If ComboBox4.Text = "40" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=40"
End If

If ComboBox4.Text = "41" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=41"
End If

If ComboBox4.Text = "42" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=42"
End If

If ComboBox4.Text = "43" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=43"
End If

If ComboBox4.Text = "44" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=44"
End If

If ComboBox4.Text = "45" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=45"
End If

If ComboBox4.Text = "46" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=46"
End If

If ComboBox4.Text = "47" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=47"
End If

If ComboBox4.Text = "48" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=48"
End If

If ComboBox4.Text = "49" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=49"
End If

If ComboBox4.Text = "50" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=50"
End If

Dim Cell As Range
Dim Unique As New Collection
Dim Valeur As Range
Dim i As Integer
i = Range("B65536").End(xlUp).Row

On Error Resume Next
For Each Cell In Range("B2:B" & i)
If Not Cell.EntireRow.Hidden Then Unique.Add Cell, CStr(Cell)
Next Cell
On Error GoTo 0
For Each Valeur In Unique
Me.ListBox1.AddItem Valeur
Next Valeur


End Sub
 
Trier par date Trier par votes
skoobi

skoobi

XLDnaute Barbatruc
Re : Gestion de filtre suivant valeur Combobox

Bonsoir,

effectivement, il y a plus court!!!, voici:

Code: 
Private Sub ComboBox4_Change()

ListBox1.Clear
Dim Cell As Range
Dim Unique As New Collection
Dim Valeur As Range
Dim i As Integer

If ComboBox4.Text = "" Then
ListBox1.Clear
Selection.AutoFilter Field:=5
End If

For v = 7 To 50
    If ComboBox4.Text = CStr(v) Then
    ListBox1.Clear
    Selection.AutoFilter Field:=5
    Selection.AutoFilter Field:=5, Criteria1:="<=" & CStr(v)
    Exit For
    End If
Next v

i = Range("B65536").End(xlUp).Row

On Error Resume Next
For Each Cell In Range("B2:B" & i)
If Not Cell.EntireRow.Hidden Then Unique.Add Cell, CStr(Cell)
Next Cell
On Error GoTo 0
For Each Valeur In Unique
Me.ListBox1.AddItem Valeur
Next Valeur


End Sub

Remarque: les variables se déclarent en début de code ;)
 
Vote positif 0 Vote négatif
JNP

JNP

XLDnaute Barbatruc
Re : Gestion de filtre suivant valeur Combobox

Bonjour Minus :),
J'essayerais :

Private Sub ComboBox4_Change()
ListBox1.Clear
If ComboBox4.Text = "" Then
Selection.AutoFilter Field:=5
End If
If CInt(ComboBox4.Text) >= 7 and CInt(ComboBox4.Text) <= 50 Then
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=5, Criteria1:="<=" & Combo4.Text
End If
Dim Cell As Range
Dim Unique As New Collection
Dim Valeur As Range
Dim i As Integer
i = Range("B65536").End(xlUp).Row
On Error Resume Next
For Each Cell In Range("B2:B" & i)
If Not Cell.EntireRow.Hidden Then Unique.Add Cell, CStr(Cell)
Next Cell
On Error GoTo 0
For Each Valeur In Unique
Me.ListBox1.AddItem Valeur
Next Valeur
End Sub

A te lire :cool:
 
Vote positif 0 Vote négatif
M

Minus

XLDnaute Nouveau
Re : Gestion de filtre suivant valeur Combobox

hehe merci à vous deux ! C'est fou comme on se sent petit face à des formules aussi radicalement simplifiée :rolleyes:

Skoobi, rien à redire ! Ca fonctionne.

JNP, 2 soucis :

1 - (binaire...) :

Selection.AutoFilter Field:=5, Criteria1:="<=" & Combobox4.Text
Cliquez pour agrandir...

2 - plus dérangeant :

Erreur de codage lorsque je selectionne l'option "".
Renvoie sur la ligne :
If CInt(ComboBox4.Text) >= 7 and CInt(ComboBox4.Text) <= 50 Then

Il n'apprécie pas le fait de revenir sur la variable vide.
 
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

S
  • Résolu(e)
XL 2016 problème de filtre dans listbox
2 3 4
Réponses
51
Affichages
2 K
saidoush
S
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
449
guiyom
G
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
643
Mody200
M
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
Dranreb
L
  • Résolu(e)
XL 2019 VBA - Autofilter - Prob: Copie toute la plage sans prendre en compte le filtre
Réponses
8
Affichages
780
Lolexcel
L
X
  • Question Question
XL 2016 Souci copier/coller avec un filtre.
2 3 4
Réponses
55
Affichages
4 K
Xender
X
cathodique
  • Résolu(e)
XL 2010 Masque de saisie textbox Téléphone Public
Réponses
8
Affichages
706
cathodique
cathodique
S
  • Question Question
XL 2013 recherche intuitif semi automatique dans Combobox (trié et avec valeur unique) inseré en UserForm VBA
2
Réponses
18
Affichages
1 K
Sghaier Chafaa
S
S
  • Question Question
XL 2016 Masquer des lignes + 2 lignes supplémentaires
Réponses
6
Affichages
909
Stéfane
S
G
  • Question Question
Microsoft 365 Transfert de données
Réponses
7
Affichages
698
GClaire
G
G
  • Résolu(e)
XL 2016 VBA : Copie d'une ligne après application d'un filtre
Réponses
7
Affichages
1 K
gfgghbhg
G
P
  • Question Question
XL 2010 résultat de somme multiple dans texbox
Réponses
2
Affichages
522
Pensinf4204
P
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
748
bérylion
B
mromain
Génération de QR Codes
Réponses
1
Affichages
784
Cousinhub
Cousinhub
D
  • Question Question
XL 2010 Comptage du nombre de ligne avec commentaire dans un tableau filtré
Réponses
2
Affichages
1 K
Hasco
Hasco
R
  • Question Question
XL 2016 userform / remplir combobox suivant une autre combobox
Réponses
3
Affichages
545
ChTi160
ChTi160
A
  • Question Question
XL 2016 Combobox Saisie Date
Réponses
12
Affichages
779
aurelio.ewane
A
T
  • Question Question
Microsoft 365 Problème affichage multipage dans un tabstrip
Réponses
1
Affichages
510
troki74
T
Nicolas JACQUIN
  • Résolu(e)
XL 2021 Doublons, Colorer partie de ligne en fonction de valeur dans colonne défini
Réponses
2
Affichages
454
Nicolas JACQUIN
Nicolas JACQUIN
S
  • Question Question
XL 2019 Problème exécution VBA
Réponses
1
Affichages
402
Phil69970
Phil69970

Membres actuellement en ligne

30 membres et 401 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 268
Messages
2 117 908
Membres
113 375
dernier inscrit
FRUG33