Listview et checked sur filtre

Bonjour,

Avec un système de filtre classique par textbox, le listview1 se met à jour.

Mon problème, je coche des checkbox que je dois conserver dans le listview1 après filtrage.

Je suis à la recherche d’une idée ou d’une solution.

Idem, le traitement de l’information (coloriage en rouge des lignes) me semble peut performant. Si quelqu’un a une idée pour accélérer la procédure, je suis intéressé.

Dans le fichier joint trois feuilles.

La première « parametrage » qui est une base de données pour alimenter mes listview

La deuxième « Classe » liaison pour la feuille EvalBac

La troisième « EvalBac » est une feuille d’évaluation. Les chiffres 3 en rouge (dans le tableau du bas) symbolisent les acquis en entreprise. C’est par l’interprétation de cette feuille que je colore en rouge les lignes de mon listview.

Dans l’userform, choisir Bac Pro pour la combobox2.

Dans l’attente de vos idées.

Cordialement

Bonjour

je trouve pas Set sh = Sheets("EvalCI") a voir

A voir

petit modife a faire

Private Sub CbDiplome_Change()
'choix des données
Application.ScreenUpdating = False
Set Sh = Feuil2 'Feuil2 = CodeName ou Sheets("EvalBac")

If Me.CbDiplome = "Certif. Int" Then CP = Par.Range("N6:P" & Par.[N65000].End(xlUp).Row).Value ': Set sh = Sheets("EvalCI")

If Me.CbDiplome = "Bac Pro" Then CP = Par.Range("E6:G" & Par.[E65000].End(xlUp).Row).Value ': Set sh = Sheets("EvalBac")

A+

Maurice

Bonjour Maurice,

Normal, ce n'est qu'un exemple. Je n'ai pas mis toutes les feuilles.

C'est pourquoi j'ai précisé combobox2 sélectionner Bac Pro.

Bonne journée.