[VBA-E]Listes Imbriquées : comment optimiser?

Bonjour à tous,


Je travaille en ce moment sur une Macro en VBA et j'aimerais utiliser des listes de choix dépendantes les unes des autres.

Au départ, il faut savoir que les données source de mes listes se trouvent dans un tableau à 3 dimensions.

Pour l'instant, j'utilise un système un peu batard comme cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Sub Plage()   For NbFamille = 1 To 30 If Tableau_OC(0, NbFamille, 1) <> "" Then Worksheets("BDD").Cells(NbFamille, 1).Value = Tableau_OC(0, NbFamille, 1) NbFMax = NbFamille End If Next NbFamille   ActiveWorkbook.Names.Add Name:="Famille", RefersToR1C1:="=BDD!R1C1:R" & CStr(NbFMax) & "C1"   Sheets("AffectationOC").Select   Cells(1, 1).Select   With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=Famille" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With   End Sub

---

L'idée, c'est que je recopie les données de la ligne (0,x,1) de mon tableau dans une feuille (nommée BDD) et qu'ensuite, je créé la liste à partir des valeurs créées dans cette feuille.

Ma première question est donc de savoir si il est possible de remplir ma liste de choix directement à partir de mon tableau, et si oui, comment procéder.

J'ai vu dans l'aide de VBA et sur certains sites que l'on pouvait utiliser des instructions type :

Code:

---

ListBox1.AddItem Machin

---

Mais après, je sais pas comment lier les données de ListBox1 à ma cellule... :?

Ensuite, la seconde difficulté que je rencontre est la liaison des listes entre elles. Je sais que je peux lier mes données par l'adressage de mon tableau, mais je ne sais pas comment détecter le changement d'état de la cellule "mère".
Je sais où aller chercher les données de la liste de la cellule "fille" en fonction de celles choisies dans la cellule "mère", mon problème est de savoir quand?

Y-a-t il donc un moyen simple de détecter un clic sur la cellule mère, ou alors un changement d'état???

Merci de vos réponses!

Salut

J'ai fait un test avec deux listes déroulantes sur un UserForm.

Sur la Feuil2 du classeur, j'ai défini quatre listes
:arrow: Les cellules A1 à A3 contiennent les valeurs : jours, mois et années. J'ai nommé cette plage "choix".
:arrow: Les cellules B1 à B7 contiennent les jours de la semaines. J'ai nommé cette plage "jours".
:arrow: Les cellules C1 à C12 contiennent les mois de l'année. J'ai nommé cette plage "mois".
:arrow: Les cellules D1 à D11 contiennent les années de 1990 à 2000. J'ai nommé cette plage, devine... oui! "année".

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize() cboChoix.RowSource = "choix" End Sub   Private Sub cboChoix_Change() cboChoisi.Clear cboChoisi.RowSource = cboChoix.List(cboChoix.ListIndex) End Sub

---

Si je me trompe pas, un userform, c'est un bouton que l'on a ajouté à sa feuille de calcul et sur lequel on peut lier une macro?

Heu! Non!

Un UserForm est une boîte de dialogue que tu crées directement dans l'éditeur VBA (le VBE) en cliquant sur Insertion, UserForm (après avoir affiché l'éditeur - Alt + F11).

Je comprends que tes listes sont directement sur tes feuilles de calcul... ? me tromperais-je? Car ça change un peu les choses.

On va avoir besoin de plus de détails sur ton projet.

en attendant, une correction sur le code de tout à l'heure:

Code:

---

1 2 3 4 5 6 7 8

Private Sub cboChoix_Change() ' pour prévenir les erreurs cboChoisi.ListIndex = -1 cboChoisi.RowSource = "" cboChoisi.Clear ' affecte la source à la liste cboChoisi.RowSource = cboChoix.List(cboChoix.ListIndex) End Sub

---

Pour l'instant, mes listes sont dans un tableau (Tableau_OC dans ma routine plus haut) , mais il est très facile de les mettre sur une feuille excel.

Clairement, mon tableau contient les données suivantes :
Donnée source : Famille d'outillage (ex : Tournevis ,Clé Dynamomètrique, Pige, etc...)
Puis deux paramètres spécifiques à chaque famille.

Ce que je souhaiterais, c'est que lorsque je choisis la famille des outillages dans une cellule à liste de choix, les listes de choix des deux cellules suivantes soient modifiées en fonction.

J'avoue que j'ai un peu de mal à me faire à la programmation objet, je suis resté très algorithme à l'ancienne, uniquement à base de boucles, tableaux et pointeurs...