Puis-je définir une ComboBox Excel pour avoir une valeur par défaut?

Mon ComboBox (nommé ddDatabase) peut avoir l'une des deux valeurs. Ces deux valeurs sont extraites d'un tableau dans une feuille de calcul distincte. Quand j'ouvre le fichier Excel, cependant, aucun de ces deux valeurs sont sélectionnées. Au lieu de la zone de liste déroulante s'affiche vide. Est-il possible de définir explicitement une valeur par défaut?

Après quelques tests, il semble que si le fichier Excel est enregistré avec le premier élément de la zone de liste déroulante sélectionnée, la prochaine fois le fichier ne s'ouvre pas, il sera par défaut à vide. Sélectionner une autre valeur dans la liste déroulante autres que le premier préserver la sélection après que vous enregistrez, fermez et rouvrez-le.

J'ai essayé d'utiliser VBA pour résoudre ce problème en définissant la valeur lorsque le classeur est ouvert à l'aide de ce code:

Sub Workbook_Activate()

    Dim ddDatabase As DropDown
    Set ddDatabase = ActiveSheet.DropDowns("ddDatabase")
    ddDatabase.Value = 1

End Sub

Malheureusement, il génère l'erreur suivante:

unable to set the value property of the dropdown class

Est-il une solution à cela?

InformationsquelleAutor jkupczak | 2015-07-28
  1. 4

    Utiliser ceci:

    .ComboBox1.Text = .ComboBox1.List(1) 'Change the number to the value you want as default. 
'If you want to default to something like 'select a value' write it as a string

    Vous devez spécifier la valeur à la création (ou à l'ouverture du classeur, ou de la forme ouverte si c'est dans un formulaire).

    Edit:

    Vous pourriez souhaitez modifier une liste de validation si c'est plus souple pour vous:

        With f_overview.Range("cell_act").Validation 'Change this to something like Sheets("Sheet1").Range("A1").Validation
        .delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=Acteurs!$E$4:$E$23" 'Change this to "=Sheet1!$A$1:$A$2"
    End With

    La première ligne de commentaire est pour la mise en place de la liste, le second est votre source de valeurs (les deux valeurs).

    • Je reçois ce message d'erreur lorsque vous essayez de le régler sur Workbook_Active unable to set the value property of the dropdown class.
    • Unable to get the List property of the DropDown class
    • Si vous ajoutez le VBA créer, pour la validation de la liste, vous pouvez le configurer très facilement, car la liste est la partie de la cellule. Vous pouvez écrire Range("liste de validation de la cellule") = "blablabla" et cela fonctionnera.
    InformationsquelleAutor David G
  2. 1

    Vous pouvez définir manuellement. Peut-être le faire sur l'événement "workbook_open".

    ComboBox1.Text = "SomeText"
    InformationsquelleAutor MatthewD
  3. 0

    Quand je l'ai essayé dans Excel 2013, c'était aussi simple que la sélection d'un des deux éléments dans cette zone de liste déroulante, puis d'enregistrer le classeur. La prochaine fois, je l'ai ouvert, celle que j'ai choisie a montré que le "par défaut".

    Il a même travaillé lorsque j'ai mis l'une des deux sources de cellules de =NOW() (de sorte que la valeur affichée serait différent la prochaine fois, je l'ai ouvert), puis sélectionné et enregistré. La prochaine fois, je l'ai ouvert, il y avait encore la (mise à jour) de la valeur de =NOW() affiché dans la zone de liste déroulante.

    Sauf si vous avez besoin d'un pur-solution VBA?

    InformationsquelleAutor Arin
  4. 0

    Faire de votre valeur par défaut, la première option dans le menu déroulant.

    With ActiveSheet.Shapes("ddDatabase").ControlFormat
    .value = 1
End With
    InformationsquelleAutor hastings