Bonjour!!!

J'aurais besoin de votre pour des ComboBox dépendante dynamique dans un Userform Word liée à un BDD Excel (+ de 25 items).

J'ai une Base de Donnée Excel
Chaque feuille est répertoriée dans ma Combobox 1

ComboBox1 :
Feuil1 nommé -> Cat 1
Feuil2 nommé -> Cat 2
Feuil3 nommé -> Cat 3 etc ...

Voila mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Userform_initialize()
'Déclaration des variables pour ouvrir Excel
'Application Excel
Dim appExcel As New Excel.Application
'Classeur Excel
Dim wbExcel As Excel.Workbook
'Feuille Excel
Dim wsExcel As Excel.Worksheet
'Ouverture de l'application
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\Users\stephanie.rigotti\Desktop\HABILITIS\BDD_COURRIERS-ADMINISTRATIFS V2.xlsx")
appExcel.Visible = True
'Choix du nom de l'enfant
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
UserForm1.ComboBox1.AddItem sh.Name
Next
appExcel.Workbooks("BDD_COURRIERS-ADMINISTRATIFS V2.xlsx").Close
appExcel.Quit
 
End Sub
et là c'est le drame...

J'aimerais que dans ma ComboBox2 s'affiche les sous catégorie (colonne A) correspondant à la ComboBox1 l'item (soit à la feuille sélectionné)
Soit

ComBoBox1 ComboBox2
Cat1 Cat1.a
Cat1.b
Cat2 Cat2.1
Cat2.2
Cat2.3
Cat2.4 etc...

Ensuite je voudrais sur la même base récupérer les descriptifs se trouvant dans la colonne B de chaque catégorie dans la textbox1
Soit :

ComBoBox1 ComboBox2 TextBox1
Cat1 Cat1.a jvslkfbkl sdkvjsd vklsd v skdl vskl
Cat1.b dvbjsdklfbsf sdkv svsldv s vlsk vs
Cat2 Cat2.1 dfvsfsg fbebrg ergergegbn rtheheg
Cat2.2 fgsfgsg gzgzgzgg bgzegb z rzvss
Cat2.3 fjzsdf z vhzljv zv svsj v vz v
Cat2.4 etc... sdvnkdjn zklv zkjv zsv sld

Je n'arrive pas à comprendre comment récupérer les données de la ligne en fonction du choix de la comboBox1....

S'il vous plaît, aidez moi, j'en rêve la nuit...

Je vous remercie par avance