XL 2010 Combobox liées

[cathodique]

Bonjour,

Je voudrais lier les 3 combobox et que les 2 textboxs se complètent suivant les données des comboboxs.
Je sais que Dranreb a développé des modules de services dans ce sens.
Toute proposition est la bienvenue.

Avec mes remerciements anticipés.

Bonne journée.

 

[Dranreb]

Et la référence à Microsoft Scripting Runtime aussi.

 

[ChTi160]

Bonjour cathodique
Bonjour le Fil ,le Forum
une autre approche perfectible !
à tester Lol
jean marie

 

[cathodique]

Je l'ai ouvert pour voir, mais … rien n'a été fait coté UserForm ?
Il manque aussi le module standard de service MSujetCBx.

Je t'assure que j'ai fait ce que tu m'as demandé. Le service MSujetCBx n'existe pas sur le fichier du lien

 

[Dranreb]

Il y est dans le Temp.xlsm d'où on est parti. Mais ce module de service est bien le seul module standard, et non un module de classe. C'est un peu le cœur de tout le reste.

 

[cathodique]

Bonjour cathodique
Bonjour le Fil ,le Forum
une autre approche perfectible !
à tester Lol
jean marie

Merci beaucoup Chti160. Intéressant mais ne répond pas exactement au résultat souhaité.
il n'y a que 2 comboboxs liées. Je garde ton fichier, je sais qu'il me servira.

Encore merci.

Bonne journée.

 

[cathodique]

Il y est dans le Temp.xlsm d'où on est parti. Mais ce module de service est bien le seul module standard, et non un module de classe. C'est un peu le cœur de tout le reste.

Désolé, cette histoire de fichier disparu m'a vraiment intrigué. je joins le fichier à ce message.

Merci.

Et la référence à Microsoft Scripting Runtime aussi.

Voilà chef c'est, fichier précédent post.

Merci.

 

[Dranreb]

Donc ensuite j'ai recopié aussi toute la programmation de l'UserForm du Temp.xlsm et remplacé les Add conformément à ce que j'indiquai au poste #9
Et coché la référence à Microsoft Scripting Runtime, à cause de la Function DicoSujet du MSujetCBx qui fabrique un Dictionary de cette bibliothèque Scripting.
La suggestion de mettre une recherche intutive sur le libellé, interessant ou pas ?

 

[ChTi160]

re
La version avec Deux Combobox et Un TextBox pour la "Rubrique" !
suffisant selon moi !
jean marie

 

[cathodique]

Donc ensuite j'ai recopié aussi toute la programmation de l'UserForm du Temp.xlsm et remplacé les Add conformément à ce que j'indiquai au poste #9
Et coché la référence à Microsoft Scripting Runtime, à cause de la Function DicoSujet du MSujetCBx qui fabrique un Dictionary de cette bibliothèque Scripting.
La suggestion de mettre une recherche intutive sur le libellé, interessant ou pas ?

Fait au mieux. Je voudrais bien comprendre comment fonctionnent les modules de classe.

 

[Dranreb]

Pour ça il vaudrait mieux me poser des questions. Je vous ai dit ce que j'ai fait, refaites le de votre coté.
La suggestion de mettre une recherche intuitive sur le libellé, intéressant ou pas ?

 

[cathodique]

re
La version avec Deux Combobox et Un TextBox pour la "Rubrique" !
suffisant selon moi !
jean marie

Merci beaucoup Chti160. En effet, ça pourrait suffire pour quelqu'un qui connait sur le bout des doigts le libellé des codes. Or, ce n'est pas le cas. Je rajoute tes 2 fichiers car je sais qu'ils ne serviront.

Je te remercie beaucoup.

Bonne journée.

 

[ChTi160]

Re
Je ne raisaisonnais pas ainsi lol
Un achat est une dépense donc si tu choisis Dépense tu auras accès au code dépense donc achat si tu as un ComboBox3 des rubriques tu auras aussi dépense en combobox1 et les codes en Combobox2
Enfin
Je regarderai lol
Bonne continuation.
Jean marie

 

[cathodique]

Pour ça il vaudrait mieux me poser des questions. Je vous ai dit ce que j'ai fait, refaites le de votre coté.
La suggestion de mettre une recherche intuitive sur le libellé, intéressant ou pas ?

Franchement, avec l'épisode (fichier supprimé) de ce matin, je ne te suis plus.
Au post#9, tu me dis que tu as modifié le code de l'userform. Alors que dans le fichier joint à ce fil, je n'ai pratiquement rien codé. Je me demande sur quel fichier tu travailles?

 

[Dranreb]

Sur le fichier initial depuis le début, récupéré avant qu'il n'ait disparu.

 

[cathodique]

Sur le fichier initial depuis le début, récupéré avant qu'il n'ait disparu.

à ma connaissance, il n'y a pas de lignes de codes dans ce fichier.
Il y combien de boutons sur la feuille? Car pour moi, il n'y que ceci

Option Explicit

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Click()

End Sub