XL 2013 Combobox en cascade avec la fonction TableOrderByChooseColumn

[Dae_mon]

Bonjour à toutes et tous,

J'ai intégré dans mon code la fonction TableOrderByChooseColumn de Patrick Toulon qui fonctionne super bien.

Comme vous pouvez le voir dans le fichier en annexe, selon le choix de la combobox 1, la liste de la combobox 2 se met à jour en faisant références aux tableaux. Donc tout est OK.

Mais je ne suis pas satisfait du code. Je pense que l'on peut directement remplacer "Dépenses" et "Revenus" par la variable reprenant ComboBox1.Value mais je n'y arrive pas.

De même, je souhaiterai faire la même chose dans la combobox 3 afin qu'elle se complète selon le choix de la combobox 2 en faisant référence aux tableaux de la Base de données mais je n'y arrive pas.

Merci d'avance pour vos lumières.

Bonne soirée.

 

[patricktoulon]

re
bonjour
j'avoue que je pige pas ta demande chez moi ca fonctionne tes combo en cascade
il fallait juste la sécurité dans l'event de la combo2
If ComboBox2.ListIndex = -1 Then Exit Sub

 

[cp4]

Bonjour @Dae_mon , @patricktoulon , Le forum,

@patricktoulon : Je découvre aujourd'hui ta fonction TableOrderByChooseColumn. Cependant, Je n'ai pas le même résultat que toi (ça plante chez-moi, Win7 64 bit et Excel 2010 32 bit). Ceci, juste pour t'en informer.

Bon dimanche.

 

[patricktoulon]

re
Bonjour
il faut suivre mp4
c'est pas mon code ça, mon code c'est juste la fonction
et comme je l'ai dis il faut ajouter la condition if cité plus haut en début d'event

 

[cp4]

re
Bonjour
il faut suivre mp4
c'est pas mon code ça, mon code c'est juste la fonction
et comme je l'ai dis il faut ajouter la condition if cité plus haut en début d'event

Pas encore réveillé à 100%, désolé.
C'est qui mp4 (du m au c, il a des longueurs)?
Au final, je ne suis le seul à ne pas être totalement réveillé.
Bonne journée.

 

[patricktoulon]

re
ouais en plus je me lève grincheux ce matin

dit toi une chose
si je donne une fonction dans le forum c'est qu'elle a été testée
elle peut être amenée à être modifiée pour des besoins perso d'un demandeur mais à la base elle fait ce qui est prétendu
si il y a un bug c'est le demandeur qui se plante dans son utilisation
bon je vais boire mon café ça ira mieux
LOL

 

[Dae_mon]

re
bonjour
j'avoue que je pige pas ta demande chez moi ca fonctionne tes combo en cascade
il fallait juste la sécurité dans l'event de la combo2
If ComboBox2.ListIndex = -1 Then Exit Sub
Regarde la pièce jointe 1161047

Salut,

Merci d'avoir pris le temps d'analyser ma demande et surtout d'y répondre tôt ce matin. ;-)

Étant débutant, j'avais effectivement pas pensé à sécuriser le code.

Merci encore pour le conseil.

Bonne semaine!

 

[Dae_mon]

Voici le fichier fonctionnelle pour les personnes intéressées.