ListView avec application de criteres en Combobox et OptionButton

[belerofon]

Bonsoir All,
Comme d'hab, limité par mes connaissances en prog....
Aujourd'hui un souci avec une ListView sur laquelle je veux appliquer des criteres d affichage sous formes de combobox et de OptionButton
Tout est expliqué dans le fichier exemple ci joint...
Merci d'avance
J.

 

[belerofon]

Re : ListView avec application de criteres en Combobox et OptionButton

DranReb,
Perfecto, j ai beaucoup appris ce soir grace a toi...
Dernier hic... meme avec ton code il continue de me dire "ElseIf sans If" 🙁

 

[Dranreb]

Re : ListView avec application de criteres en Combobox et OptionButton

Oui j'ai vu. Excuses. le Ok = True ne doit pas être mis juste derrière le Then voir corrigé au dessus.

 

[belerofon]

Re : ListView avec application de criteres en Combobox et OptionButton

Ah ok effectivement... pu d erreur de compilation... Maintenant juste que le resultat n est plus celui escompté loool ...
Dernier coup d oeil avant que j aille au lit parceque pu que 3h de sommeil , si j trouve pas d ici 5 min je reprendrais demain....
Un grand merci à toi DranReb de m avoir instruit 😉
Bonne nuit,
J.

 

[belerofon]

Re : ListView avec application de criteres en Combobox et OptionButton

Preuve que je m'ameliore j ai trouvé tout seul 🙂

' Initialisation de ListView1
Sub Inilvw1()
Dim Der As Integer, Cel As Range, Plage As Range, Ok As Boolean

With Sheets("Recap")
Der = .Range("A65000").End(xlUp).Row

' Remise à zéro de la ListView1
ListView1.ListItems.Clear

' Remplissage des cellule du tableau ListView1
Set Plage = .Range("A4:A" & Der)
For Each Cel In Plage
If OptionButton1 Then
Ok = True
ElseIf OptionButton2 Then
Ok = Cel.Offset(0, 12).Value <> ""
ElseIf OptionButton3 Then
Ok = Cel.Offset(0, 12).Value = ""
End If
If Ok Then
With ListView1
.ListItems.Add , , Cel
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 1)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 4)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 8)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 11)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 12)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 15)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 16)
End With
End If
Next Cel
End With
End Sub

Juste eu a rajouter le " .Offset(0, 12) " qu'il manquait dans les conditions des OptionButtons 😉