Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Liste cascade

pompaero

XLDnaute Impliqué
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
 

Pièces jointes

  • Classeur formation.xlsm
    618.1 KB · Affichages: 20

pompaero

XLDnaute Impliqué
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
 

Pièces jointes

  • Classeur formation.xlsm
    568.9 KB · Affichages: 3

pompaero

XLDnaute Impliqué
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
 

Pièces jointes

  • Classeur formation.xlsm
    271.5 KB · Affichages: 5

jpb388

XLDnaute Accro
Bonjour à tous
ceci dans un module

VB:
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
VB:
Me.Cbx_ListeModule.List = Trijpb388(MonDico.Keys)
 

pompaero

XLDnaute Impliqué
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

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

Pièces jointes

  • Classeur formation pompaero.xlsm
    254.3 KB · Affichages: 20

Discussions similaires

Réponses
16
Affichages
728
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…