Filtre avec optionbutton

[Airwolf]

Bonjour,
Après plusieurs jours de recherche sur le forum, je bloque encore sur un autre problème.
Je m’explique.
Quand j’ouvre mon userform, je voudrais pouvoir filtrer la liste déroulant « 1 » suivant mon bouton « clôturé » ou « non clôturé ».
J’ai essayé plusieurs solutions mais rien ne fonctionnent . Etant débutant, je me tourne vers vous.
Merci par avance.

Airwolf

 

[JNP]

Re : Filtre avec optionbutton

Bonjour Airwolf

Private Sub OptionButton1_Click()
Dim Cel As Range, MonDico As Object
Set MonDico = CreateObject("Scripting.Dictionary")
For Each Cel In Range("A2:A" & Range("A65536").End(xlUp).Row)
If Cel.Offset(0, 6) <> "" Then
 If Not MonDico.Exists(Cel.Value) Then MonDico.Add Cel.Value, Cel.Value
End If
Next
Me.Critere1.List = MonDico.items
Set MonDico = Nothing
End Sub
Private Sub OptionButton2_Click()
Dim Cel As Range, MonDico As Object
Set MonDico = CreateObject("Scripting.Dictionary")
For Each Cel In Range("A2:A" & Range("A65536").End(xlUp).Row)
If Cel.Offset(0, 6) = "" Then
 If Not MonDico.Exists(Cel.Value) Then MonDico.Add Cel.Value, Cel.Value
End If
Next
Me.Critere1.List = MonDico.items
Set MonDico = Nothing

End Sub

Bonne journée

 

[Airwolf]

Re : Filtre avec optionbutton

Bonjour JNP

Un grand merci, ça fonctionne très bien.

Il faut vraiment que je comprenne ce languange, on peut vraiment faire beaucoup de chose.

Bonne journée à toi.