Microsoft 365 ComboBox Liés pour Filtre ListView

[TCHIS]

Bonjour le forum

J'ai besoin d'aide pour élaborer une macro de filtre d'une ListView en fonction des critères choisis dans mes combobox le point particulier est que ces ComboBox doivent liées entre elles je veux dire par là que lorsqu'on applique un filtre sur un Critère les Critères restant présenteront leurs données de filtres en fonctions du filtre précédant ainsi de suite.

La particularité c'est que j'ai 9 critères de filtres (9ComboBox) et le filtre ne suit pas un ordre quelconque je veux dire par là qu'on est libre de commencer à filtrer à partir de n'importe quel critère(Voilà pourquoi je me demande si la méthode de filtre en cascade avec les différents Combobox) peut passer ?

Voici un extrait du la ListView et des Contrôles

 

[Dranreb]

Bonjour.

ComboBox liées et contrôles associés

Définit deux types d'objets à évènements: ComboBoxLiées prenant en charge les ComboBox pour la saisie des données d'identification de la ligne à créer, puis, ultérieurement, à consulter voire modifier, et ControlsAssociés prenant en charge les...

excel-downloads.com

C'est surtout pour la page d'aide. En général j'équipe les classeurs joints des modules de service nécessaires.

 

[Hasco]

Bonjour,

Il me semble que vous avez un fichier, alors pourquoi ne pas le mettre et nous obliger à vous le réclamer ?

Je passe mon chemin

 

[TCHIS]

salut le fichier le voici @Hasco
Et @Dranreb désolé j'ai pas compri

 

[TCHIS]

Vous verez que j'ai une macro dans le module renommer ModulerNatifs pour les Filtres

Sub Filtre_Lvw_NATIFS(P As Byte)
'C = Feuil1.Range("A2:P2" & Feuil1.Range("A" & Rows.Count).End(xlUp).Row).Value
'With UserForm1.Lvw_NATIFS
'            .ListItems.Clear
'For i = 2 To UBound(C, 1)
'If CStr(C(i, P)) = UserForm1.Controls("CbxDatasGo" & P) Then
'.ListItems.Add , , C(i, 1)
'lg = .ListItems.Count
'.ListItems(lg).ListSubItems.Add , , C(i, 2)
'.ListItems(lg).ListSubItems.Add , , C(i, 3)
'.ListItems(lg).ListSubItems.Add , , C(i, 4)
'.ListItems(lg).ListSubItems.Add , , C(i, 5)
'.ListItems(lg).ListSubItems.Add , , C(i, 6)
'.ListItems(lg).ListSubItems.Add , , C(i, 7)
'.ListItems(lg).ListSubItems.Add , , C(i, 10)
'.ListItems(lg).ListSubItems.Add , , C(i, 16)
'End If
'Next i
'End With
   
End Sub

Macro que j'ai inhiber car elle bien qu'elle marche le fait que mes Combobox ne soit pas liées ne donne pas pas le résultat attendu
Il y a moyen de faire quelque chose s'il vous plait

 

[Dranreb]

La ressource est disponible en téléchargement pour installation d'un programme complémentaire .xlam de projet VBA CLsCAs à cocher dans les références du projet utilisateur, à partir d'un précurseur .xlsm. Mais son principal intérêt est plutôt sa feuille d'aide, parce que le plus souvent les utilisateurs préfèrent que les modules de services soit installés à même le projet VBA utilisateur.

 

[TCHIS]

La ressource est disponible en téléchargement pour installation d'un programme complémentaire .xlam de projet VBA CLsCAs à cocher dans les références du projet utilisateur, à partir d'un précurseur .xlsm. Mais son principal intérêt est plutôt sa feuille d'aide, parce que le plus souvent les utilisateurs préfèrent que les modules de services soit installés à même le projet VBA utilisateur.

Waouh dois je comprendre qu'il s'agit là de la procédure

 

[Dranreb]

Là c'est moi qui ne comprends pas ce que vous voulez dire …

 

[TCHIS]

En téléchargeant voici ce que ça donne

Et je demande si c'est une procédure pour résoudre mon souci

 

[Dranreb]

Non, c'est la page d'aide de la fourniture. Elle décrit les évènements, méthodes et propriétés des deux types d'objets telles qu'elle sont utilisables dans un UserForm.

 

[TCHIS]

Oui, c'est la page d'aide.

Okey merci je vais m'y mettre et voir si je vais m'en sortir

 

[TCHIS]

Re
je dois reconnaitre bien que le fichier semble être très riche après en avoir ^ris connaissance l'exploité et le mettre en application est une autre tache car je ne sais pas par où débuter en toute sincérité

 

[Dranreb]

Par la Sub UserForm_Initialize, c'est là que quasiment tout est défini. Le reste ne sont que de petites procédures de quelques lignes. Je m'en occuperai si vous ne savez pas comment les écrire.
Je joins un exemple que je montre souvent.

 

[TooFatBoy]

Bonjour,

Juste une petite question pour Bernard : est-ce que ceci est censé pouvoir se produire ?

 

[TCHIS]

Forcé de reconnaitre que j'arrive rien seul
A l'aide svp je suis censé rendre compte bientôt et là je panique comme jamais