Microsoft 365 Liste cascade

[pompaero]

Bonjour le forum,

En cours de construction d'un petit fichier censé permettre le suivi de la formation de mon équipe. La présentation est sur le point d'être finalisé et me suis attaqué au codage qui ne me convient pas trop. Je viens donc chercher de l'aide.
Avec l'aide du net, j'ai crée le codage pour toutes les Combobox en cascade (partie entrainement et formation) puis le chargement de la Listbox en multiselect et autres combobox.
Le chargement se fait à l'ouverture du fichier dans ThisWorkbook pour les 1ère Combobox de chaque partie et le reste se trouve dans les modules.
Je trouve pas mes codes excellent, ça rame de trop et aimerai améliorer tout cela.
Ensuite l'objectif avec le bouton Valider serai dans un 1er temps de mettre les données des Objets dans le tableau en dessous sachant que le Listbox pour les nom des agents est en multi select.
Egalement enregistrer le formateur et si il y a l'évaluateur aussi.
Je sais que mes explications ne sont pas trés claire, mais domaine assez complexe et réglementé pour nous. Il y aura certainement des ajustements à faire par la suite.
Je joins un fichier qui me sert d'exemple pour vous rendre compte.
Si besoin, demandez.
Merci par avance de votre aide.

Cordialement

 

[pompaero]

Bonjour,

Je vous joins le fichier sans mes test de graphique, désolé.
Sur le post précédent, le fichier joint contient des liaisons, erreur de ma part. Je sais que cela n'est pas pratique pour travailler dessus.
Encore désolé.

Cdlt

 

[pompaero]

Bonsoir,

Dans la continuité de mes recherches, je pense avoir pas mal simplifié mes codes des Comboxbox en cascade et les autres.
Pour les combo simple l'ordre par alphabétique à l'air de fonctionner.
Je bloque maintenant pour mettre les combobox en cascade par ordre alphabétique, est il possible d'avoir de l'aide la dessus.
Fichier joint MAJ à ma sauce, bien sur
Merci

Cdlt

 

[jpb388]

Bonjour à tous
ceci dans un module

Option Compare Text

Property Get Trijpb388(Tbl)
  Dim I%, J%, Tmp$, ListeKeys()
  ListeKeys = Tbl
  For I = 0 To UBound(Tbl) - 1
    For J = I + 1 To UBound(Tbl)
      If ListeKeys(I) > ListeKeys(J) Then
        Tmp = ListeKeys(J)
        ListeKeys(J) = ListeKeys(I)
        ListeKeys(I) = Tmp
      End If
    Next J
  Next I
  Trijpb388 = ListeKeys
End Property

et l'appelle comme cela

Me.Cbx_ListeModule.List = Trijpb388(MonDico.Keys)

 

[pompaero]

Bonjour jpb388
Merci de ton aide,
Je viens de tester ta macro, cela fonctionne sur les 2 première combo en cascade, j'ai tenté de faire de même sur le 3eme mais cela bug.
Comment pourrai-je faire pour cette dernière mettre en alphabétique ?

Cdlt

 

[jpb388]

Bonjour à tous
fonctionne chez moi
au changement dans le module 1 il faut relancer la macro workbook_Open

 

[pompaero]

Bonsoir jpb338

Parfait, je te remercie pour tout et à bientôt.
Super j'avance doucement mais prudemment.
Pour moi que considère résolu.