Choix de theme en fonction d'une combobox
Bonjour,
Je suis bloquée dans l'élaboration d'un userform pour le travail (saisie de questionnaire de satisfaction) car je n'arrive pas à relier une combobox à une autre combobox (j'ai épluché à peu près 10/15 sujets sur ce thème mais aucun ne répond à ma question).
J'ai un userform (assez simple) qui ressemble à ça (je n'ai pas encore mis les boutons d'enregistrement etc mais ça je sais faire)
J'ai réussi à paramétrer les optionbutton et ma 1e combobox pour afficher la liste souhaitée en fonction du choix d'optionbutton (positif ou négatif)
(je suis déjà super contente vu mon niveau en VBA..)
Par contre je dois paramétrer ma 2e combobox (celle pour choisir le sujet) pour qu'elle affiche le contenu des listes défini dans la combobox 1 (dont on voit un extrait en arrière plan)
exemple : si ma combo 1 affiche PAS_CONFORTABLE, je devrais avoir en combobox2 les choix : résultants de la liste portant le même nom
j'ai donc au total un choix de 26 listes qui portent toutes le nom identique à ce qui apparaît en combobox1 (bien que sur le screen on dirait que non, au niveau des noms de listes on est bons) , réparties en 13 positives et 13 négatives et je n'ai aucune idée de la formule à appliquer
sachant que je suis nulle en VBA, si quelqu'un voulait bien me mettre une solution simple que je n'ai plus qu'à cc ça m'aiderait énormément.
HELP
merci d'avance
Bonjour et bienvenue sur le forum
Tu devrais joindre ton fichier...
Bye !
Hello,
Salut gmb
Si tes zones nommées sont identiques à ce qu'il y a dans ta cbb thème alors je pense que dans l'évènement change de ta cbb theme tu devrais inditiquer ceci :
ComboBoxsujet.List = Range(cbbtheme.text).Valueà tester
Hello je vous mets le fichier
ne faites pas gaffe aux onglets bdd avis (c'est la feuille où je vais réaliser le VBA pour que les avis viennent se saisir) et l'onglet analyse (calculs de stats)
la bdd où sont nommées les listes est dans le 3e onglet intitulé "critères"
j'ai dû effacer un peu le contenu des données pour des notions de confidentialité mais j'ai laissé les listes
si quelqu'un arrive à me régler ma 2e combobox je vous en serais très TRES TRES reconnaissante
Bon alors j'ai en partie résolu mon problème... je dis en partie car ça marche pour les réponses positives mais pas pour le négatif et je capte pas pourquoi
j'ai ajouté ce code
Function NomDefini(Nom As String) As Boolean
Dim Noms As Name
NomDefini = False
For Each Noms In ThisWorkbook.Names
If Noms.Name = Nom Then NomDefini = True: Exit Function
Next Noms
End Function
Private Sub ComboBox1_Change()
If ComboBox1.Value = "" Then Exit Sub
ComboBox2.CLEAR
Dim NomRange As String
NomRange = ComboBox1.Value
If NomDefini(NomRange) Then
ComboBox2.List = Application.Transpose(Range(NomRange))
End If
End Sub