userform : combobox dépendate

[tofoo]

Bonjour,

je cherche a faire un userform (jusqu'ici tout va bien) avec des combobox qui interagisse entre elle : quand je rentre une donnée dans combobox1, le contenu de combobox 2 change.

Je souhaite traiter les données dans l'onglet "Info" dans la colonne I pour les 2 combobox "Job Role Position".

Les cases en violets étant les themes principaux et en dessous leurs sous themes.

Quelqu'un pourrez m'aider ?? 😀

Merci

 

[Guest]

Re : userform : combobox dépendate

Bonjour tofoo,

vois si cela te convient.

A bientôt

 

[tofoo]

Re : userform : combobox dépendate

Merci Hasco pour ton aide.

On m'avait proposer une solution équivalente mais le hic est qu'il n'apparait rien dans aucune des deux combo box.

Je pensais faire quelque chose de plus lourd avec des "additem".

Je sais que ce n'est pas très optimisé mais là j'ai du mal à comprendre.😱

Me manque t-il un plugin ou une option ?

Tofoo

 

[Lii]

Re : userform : combobox dépendate

Bonjour,

A tester (avec quelques modifications de code)

 

[Guest]

Re : userform : combobox dépendate

bonjour Tofoo,

Pour que les macros de chargements puissent fonctionner, il faut que les propriétés .RowSource des combobox soient vide ou = "".

Sinon je ne vois pas.

 

[tofoo]

Re : userform : combobox dépendate

merci Lili, ça marche super, va falloir que je digère le code now.

Hasco : le champ rowsource est blank, je ne comprends pas, c bizarre...


Merci à vous 2 pour votre temps

 

[tofoo]

Re : userform : combobox dépendate

Salut,

je reviens à vous pour vous embêter.

j'ai voulu faire une seconde option avec 2 combobox liés et en changeant les parametres il m'affiche malgré tout un msg d'erreur.

Le bug est sur la double combo Location dans l'onglet Locality.

je vous joins le fichier.

la ligne défectueuse est : ComboBo11.AddItem Sheets("Locality").Cells(Li, Colonne)

merci 😛

Tofoo

 

[Lii]

Re : userform : combobox dépendate

Re
Tu as bien compris mon procédé mais çela marchera mieux avec :

ComboBo[COLOR=Red][B]x[/B][/COLOR]11.AddItem Sheets("Locality").Cells(Li, Colonne)

 

[tofoo]

Re : userform : combobox dépendate

J'ai honte.....

Merci 😀

 

[Guest]

Re : userform : combobox dépendate

Hey Tofoo,

t'inquiète, on fait tous ce genre d'erreur. Ce serait miraculeux que VBE corrige nos erreurs de frappe...et que l'interface d'édition des posts corrige nos fautes d'orthographe (enfin les miennes!)😛

A+

 

[Lii]

Re : userform : combobox dépendate

Re à tous,

Petite remarque : Excel peut non pas corriger les erreurs de frappe mais dans certains cas nous alerter.
Exemple : à la fin de la saisie de combobox11 sans majuscule, Excel cherche à reconnaître le contrôle. S'il existe, Excel mettra des majuscules où c'est nécessaire. Donc, un manque de majuscules à l'arrivée peut laisser prévoir une erreur possible.
C'est pour cette raison que j'ai pris l'habitude de mettre l'initiale (ou la lettre) des noms (de variables ou contrôles) en majuscule.

 

[skoobi]

Re : userform : combobox dépendate

Bonsoir toffo, lii, Hasco 🙂,

pour ne pas se tromper lors de la saisie d'une variable ou autre dans l'éditeur de macro il suffit d'écrire les premiers caractères puis Ctrl+Espace, ça affiche la liste disponible pour compléter le mot 😉.

 

[Guest]

Re : userform : combobox dépendate

Hello Tofoo,
Lii,
Skooby😀

Cela ne me dit pas comment cacher mes fautes d'orthographe ici même.

Pas d'auto-complétion, ni vérificateur de syntaxe. Mais tellement d'autres choses!!!!

Allez! passez une bonne soirée

 

[skoobi]

Re : userform : combobox dépendate

Hasco 🙂,

Cela ne me dit pas comment cacher mes fautes d'orthographe ici même.

Moi j'ai Firefox et son correcteur d'orthographe intégré 😀😛😎pas toi?

 

[tofoo]

Re : userform : combobox dépendate

Hello !

Je continus mon apprentissage des user form et j'arrive a la récolte des données.

Nouveau probleme : Une macro est assigné au bouton de fin (CommandButton1) que Lii avait faites et qui est la suivante :

Private Sub CommandButton1_Click()
écrit les infos sur la première ligne libre de la feuille Result
With Sheets("Result")
Li = .Range("A65536").End(xlUp).Row + 1
For Colonne = 1 To 4
.Cells(Li, Colonne) = Controls("Textbox" & Colonne).Value
Next
For Colonne = 5 To 17
.Cells(Li, Colonne) = Controls("Combobox" & Colonne - 4).Value
Next
End With
Unload userform1
End Sub


Et en fait ça ne récupere qu'une partie des données. je met le squelette du questionnaire en PJ si qq1 à la solution miracle 😀


http://cjoint.com/?hdtwwRJCAm

Merci😉