Filtre avec optionbutton & Listbox

[vmax67]

Bonjour à tous,

J'aurai besoin de votre aide pour finaliser mon projet. J’ai mis en place des OptionButton qui correspondent
à des filtres. Les filtres fonctionnent bien sur l'onglet mais ne sont pas pris en comptes dans la listbox.
En sachant que le textbox doit continnuer d'affiner la recherche par intuition.

Par avance merci.

VMAX

 

[BOISGONTIER]

Bonjour,

Exemple avec option dans ComboBox.

JB

 

[vmax67]

Bonjour

merci pour votre réponse, mais dans mon cas cela ne fonctionnera pas. Votre fichier filtre sur une seule colonne (Pays), alors que mes optionbutton filtre chacun une colonne bien distincte (X).
Vmax

 

[BOISGONTIER]

Cf PJ

JB

 

[vmax67]

Bonsoir

c'est parfait

VMAX

 

[vmax67]

Bonjour JB

comment faire pour que le combobox1 trie les données.

Par avance merci.

Vmax

 

[BOISGONTIER]

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormRechercheModifAjoutSup3Option.xls

'-- combobox option
  Me.LabelOption.Caption = f.Cells(Decal, colOption)
  Set d = CreateObject("scripting.dictionary")
  d("*") = ""
  For i = LBound(BD) To UBound(BD)
    d(BD(i, colOption)) = ""
  Next i
  temp = d.keys
  TriS temp, LBound(temp), UBound(temp)
  Me.ComboBox1.List = temp
  Me.ComboBox1 = "*"
  gChoix

JB

 

[vmax67]

Bonjour JB

Merci, toujours aussi efficace.

Vmax