XL 2019 Problème de filtre combobox dans une listeview

[mallow2000]

Bonjour,

Merci tout d'abord de bien vouloir m'aider et de prendre du temps pour essayer de régler mon problème.
J'ai créé un fichier avec un tableau de données. Ensuite j'ai créé une listview qui reprend les éléments du tableau, avec deux combobox qui reprennent les données de la colonne 7 et 8.
Je souhaiterai pouvoir trier uniquement sur ces deux colonnes. Je ne sais pas si c'est faisable, en tout cas je n'y arrive pas. Dés que je sélectionne une donnée dans la combobox1,
toutes les données disparaissent de la listview. Si j'essaye de trier sur la première et deuxième colonne, cela fonctionne très bien, mais sur la 7 et 8, je n'y arrive pas.

En pièce jointe le fichier en question.

Merci beaucoup, j'espère que quelqu'un pourra m'aider à résoudre mon soucis.

Bonne journée

 

[Oneida]

Bonjour,
solution1:
Apres "filtre" CBOINTERVENTION1
faire un "filtre" sur les enregistrements dans la listview sur evenement change de CBOINTERVENTION2 mais recharger la listview avec sub Filtre CBOINTERVENTION1 avant deuxieme "filtre" car lvw plus a jour si un "filtre" a deja ete fait
Si ligne colonne 8 ne correspond pas au contenu de votre CBOINTERVENTION2 alors suppression ligne
solution2:
Faire le "filtre" seulement sur change CBOINTERVENTION2 avec deux criteres CBOINTERVENTION1 et CBOINTERVENTION2, mais affichage seulement a ce moment

Vous aurez beaucoup de lignes dans votre Tableau8?
Si oui, il est possible de faire ceci sur une autre feuille et remplir vote lvw a partir des donnees de cette feuille:
Fichier exemple pour infos que j'avais recupere pour repondre a une demande sur un autre site d'entraide
Mais il y a x facons de remplir une lvw

 

[Dranreb]

Bonjour.
Je pense que je le ferais comme ça.

 

[mallow2000]

Bonjour.
Je pense que je le ferais comme ça.

Bonjour,

Merci c cool. Juste une question. Tout le code que tu as réécris est nécessaire ?
En tout cas merci beaucoup.

 

[Dranreb]

Oui, à part le Module5 qui existait et dont je ne me suis pas servi, il n'y a rien d'inutile dans les modules ajoutés.
Mais seule la programmation de l'UserForm est spécifique. Le module standard MSujetCBx et les modules de classe c'est de la programmation de service reprise d'ailleurs et qui ne bouge pas.

 

[mallow2000]

Ok

Oui, à part le Module5 qui existait et dont je ne me suis pas servi, il n'y a rien d'inutile dans les modules ajoutés.
Mais seule la programmation de l'UserForm est spécifique. Le module standard MSujetCBx et les modules de classe c'est de la programmation de service reprise d'ailleurs et qui ne bouge pas.

merci pour ton aide.

 

[mallow2000]

Oui, à part le Module5 qui existait et dont je ne me suis pas servi, il n'y a rien d'inutile dans les modules ajoutés.
Mais seule la programmation de l'UserForm est spécifique. Le module standard MSujetCBx et les modules de classe c'est de la programmation de service reprise d'ailleurs et qui ne bouge pas.

Bonjour,

encore deux petites questions. Est-ce que c'est possible d'avoir toutes les lignes d'afficher à l'ouverture du userform ?
Est-ce possible de rajouter un filtre entre deux dates sur le même userform ?

Merci beaucoup

 

[Dranreb]

Bonjour.
Voila qui est fait.

 

[mallow2000]

Bonjour.
Voila qui est fait.

Salut. Trop bien. Par contre j'ai juste un petit problème. J'ai intégré ce que tu as fais sur le classeur final. En fait j'avais allégé le "projet" pour l'envoyer. Une fois intégré quand je lance "rechercher une intervention" (le module que tu m'as fait, j'ai une erreur qui s'affiche et je ne comprend pas.
Voici le fichier complet. J'espère que tu pourra m'aider. J'ai essayer de virer le truc qui buguer mais en fait cela fait que les nouveaux enregistrements ne sont pas pris en compte dans la listview.

Merci beaucoup

 

[Dranreb]

Cochez la référence Microsoft Scripting Runtime.

 

[mallow2000]

Cochez la référence Microsoft Scripting Runtime.

Merci. J'ai bien cocher mais toujours pas de nouvel ligne qui apparaît dans la listview

 

[Dranreb]

Qu'est-ce que vous avez fabriqué pour que la 5ème ligne soit en dehors du tableau ?
Conseil : Commencez votre Sub comme ça :

Private Sub BTNSAUVEGARDER_Click()
   Dim RngLig As Range
   Set RngLig = Feuil2.ListObjects(1).ListRows.Add.Range
   RngLig(1).Value = CDate(Me.TXTDATE)
        etc.

Remarque: moi je prèfère envoyer d'abord toutes les valeurs de contrôles dans un tableau, c'est plus rapide de l'affecter ensuite en une seule instruction à RngLig.Value.
J'ai même un objet pendant au ComboBoxLiées, le ControlsAssociés qui s'en charge tout seul

 

[mallow2000]

Qu'est-ce que vous avez fabriqué pour que la 5ème ligne soit en dehors du tableau ?
Conseil : Commencez votre Sub comme ça :

Private Sub BTNSAUVEGARDER_Click()
   Dim RngLig As Range
   Set RngLig = Feuil2.ListObjects(1).ListRows.Add.Range
   RngLig(1).Value = CDate(Me.TXTDATE)
        etc.

Remarque: moi je prèfère envoyer d'abord toutes les valeurs de contrôles dans un tableau, c'est plus rapide de l'affecter ensuite en une seule instruction à RngLig.Value.
J'ai même un objet pendant au ComboBoxLiées, le ControlsAssociés qui s'en charge tout seul

Merci beaucoup. Tout fonctionne maintenant.