Remplir une combobox d'un Userform word avec une BDD Excel dans Word Fermé

Question

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 :

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...:marteau: :bug:

Je vous remercie par avance :)

f894009 · Answer

Bonjour,
Pouvez joindre vos fichiers

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES, mais des donnees cohrentes quand meme.
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

ou
'mon partage
https://mon-partage.fr/

Pourquoi Word/Excel et pas seulement Excel?

Steph38a69 · Answer

Bonjour f894009,

Merci de ton intérêt! 
ci-dessous le lien:

https://www.cjoint.com/c/KFCiKIqfJuC

J'ai choisi word par rapport aux utilisateurs car leurs niveaux est basique voir débutant. et pour un suivi il me faut une base de donnée. Je sais pas si je suis clair.. je débute en VBA, je trouve que je me suis pas trop mal débrouillée pour le moment mais c'est vrai que pour la liste déroulante en cascade et lié à la source de donnée excel je séche.
Merci de ton regard :)

f894009 · Answer

Re,
Je recupere les fichiers et regarde la chose

f894009 · Answer

Re,

Y a pas de textbox1!!!!

Steph38a69 · Answer

La combobox1 "Catégorie" correspond aux feuilles du fichier excel

La combobox2 "Type de modèle" correspond à la colonne A de chaque feuille soit Objet. Il y a un code sur cette combobox pour renvoyer son résultat dans la textbox10 correspondant au signet dans le word.

La textbox13 doit se remplir du contenu en colonne B des feuilles Excel en fonction des résultats des précédentes listes déroulantes.

C'est plus clair?

Steph38a69 · Answer

C'est génial! un si petit code.... je risquer pas de trouver à mon niveau. Merci Beaucoup f894009, vous êtes un pro :) merci mille fois!

f894009 · Answer

Bon jour,

Déjà déclarer l'objet Excel... 
Avant d'écrire la premiere ligne de code, il faut que le projet a realiser soit clair et structure dans votre tête (intense réflexion assez souvent, mais nécessaire) sinon vous devenez un pro de l'aviron voir abandon.
ex: votre fichier Excel doit rester ouvert tant que vous ne fermez l'UF (bouton edit ou croix).
      il faut donc declarer l'objet Excel au debut du code de l'UF, pour pouvoir l'utiliser dans toutes les                procedures de l'UF. J'écris bien dans l'UF pas dans des modules si vous en ajoutez.
A vous de  trouvez comment faire cette déclaration
     
 Le reste n'est que de l'empilage de code en fonction de la structure projet prevue et du langage de programmation que vous utilisez.

Pour la formation, cote sites, y a beaucoup

f894009 · Answer

Bonjour,

Les tables TRef et TPJ sont remplies comment 

Vous avez deux fois TextBox13

A defaut de reponse, fichier code modifie: https://mon-partage.fr/f/tyHpKqVk/
Ai ajoute des infos colonnes C et D pour Consommation. A vous de voir avec votre fichier xlsx

Remplir une combobox d'un Userform word avec une BDD Excel dans Word

8 réponses

Discussions similaires