Je veux des valeurs par défaut dans mes combos, mais je n'arrive pas à comprendre comment faire cela sans écrire un module qui remplit les combos. Comment puis-je remplir manuellement les zones de liste déroulante de sorte que je n'ai pas besoin d'utiliser le code pour faire quelque chose de si simple.Ajout d'éléments à une zone de liste déroulante sans code?
Merci
Si je vous comprends correctement à la question, je suis assez sûr que vous devez avoir un code quelque part, je ne pense pas que VBA soutient que je crois me souvenir que VB6 a fait juste ajouter les éléments dans un propriété, mais vous ne devez pas créer un module séparé, juste quelque chose comme cela devrait fonctionner:
Private Sub UserForm_Activate()
ComboBox1.AddItem "Text1"
ComboBox1.AddItem "Text2"
ComboBox1.AddItem "Text3"
End Sub
Ok, c'est juste. Je sais que dans Visual Studio, vous pouvez contrôler des éléments dans une liste déroulante, mais si vous ne le pouvez pas dans Excel, je suppose que je vais devoir le faire avec du code. Merci! – sooprise
@Soo: Dans .Net il triche cependant, il crée le code pour vous. Il suffit de regarder dans le fichier designer.vb pour le formulaire et vous trouverez quelque chose comme 'Me.ComboBox1.Items.AddRange (New Object() {" Text1 "," Text2 "})'. –
@Soo En général, l'éditeur VBA vous permet de spécifier une source d'éléments afin de ne pas avoir à le coder - cette source est généralement le document ou le projet auquel le projet VBA est associé (c'est-à-dire le classeur Excel) . – Jay
Je suppose que vous parlez d'accès? Si tel est le cas,
Quel programme utilisez-vous? Où est la combobox. Par exemple, dans Excel, vous pouvez avoir une liste déroulante sur un formulaire ou sur la feuille de calcul, et la réponse va dépendre de ces facteurs.
Dans Excel, vous pouvez définir vos valeurs par défaut dans une feuille de calcul (que vous pouvez masquer si vous le souhaitez) et définir la source de la zone de liste déroulante sur la plage correspondante - aucun code requis.
S'il vous plaît élaborer sur vos besoins et vous obtiendrez des réponses plus spécifiques.
Vous pouvez également essayer quelque chose comme
Sous Worksheet_Activate privé()
Avec Sheet1.ComboBox1 .list = Range ("a1: a20"). Valeur End With « Cela donnera un liste des valeurs de la cellule A1 à la cellule A20 End Sub
est cette question pour l'accès ou Excel ou un autre programme? –