Ajout d'une zone de liste déroulante sur plusieurs cellules

Question

Je dois ajouter une liste déroulante (contrôle ActiveX) ou une validation des données dans la liste déroulante. J'ai une gamme de 15 valeurs comme, haute, basse, moyenne, etc ... Ont créé une plage nommée appelée "priorityvalue".

Je peux créer une liste déroulante en utilisant la zone de liste déroulante en ajoutant la plage nommée sous ListFillRange dans la liste des propriétés ou la validation des données en donnant une plage nommée.

Mais mon souci, j'ai besoin de liste déroulante pour 58 cellules avec les mêmes valeurs mentionnées ci-dessus. Son travail fastidieux pour créer une boîte combo pour toutes les cellules. S'il vous plaît me suggérer une meilleure option ici.

La liste de validation des données est utile. Cependant, il est utilisateur de faire défiler la liste déroulante sur chaque cellule contrairement zone de liste déroulante, il n'a pas de boîte d'entrée ..

S'il vous plaît suggèrent

Answer 1

Collez le code ci-dessous dans « ThisWokbook »

Private Sub Workbook_Open() 

    Dim oItem As Object 

    For Each oItem In Worksheets(1).OLEObjects 

     If TypeName(oItem.Object) = "ComboBox" Then 

      If Len(oItem.Object.Value) > 0 Then 
       oItem.Object.Value = "" 
      End If 

     End If 

    Next 

    Set oItem = Nothing 

End Sub 

NOTE: Il y a des mises en garde à cela. Au-dessus du code réinitialisera toutes les zones de liste modifiable dans votre feuille de calcul (également, j'ai défini la feuille de calcul à la première feuille de calcul dans le classeur, vous souhaiterez peut-être rendre cela dynamique). Si vous ne voulez pas à réinitialiser tous les comboboxes et seulement faire ceux ajoutés via la fonction, vous pouvez utiliser le format de nom pour filtrer ceux que vous souhaitez effacer

Hope this helps

Answer 2

Essayez ceci:

Sub AddComboBoxToColumns(ByVal oRange As Excel.Range) 

    Dim oOLE As OLEObject 
    Dim oCell As Object 

    ' Loop through all the cells in the range 
    For Each oCell In oRange.Cells 

     ' Add ComboBox in each cell 
     With oCell 

      Set oOLE = .Parent.OLEObjects.Add("Forms.combobox.1") 
      oOLE.Top = .Top 
      oOLE.Left = .Left 
      oOLE.Width = .Width 
      oOLE.Height = .Height 
      oOLE.Name = "ComboBox" & .Address(False, False) 
      oOLE.Object.List = Array("Test1", "Test2") 

     End With 

    Next 

    Set oOLE = Nothing 

End Sub 

NOTE: Appelez le ci-dessus fonction avec la plage de cellules que vous souhaitez ajouter ComboBox. Vous devrez changer le tableau pour utiliser les valeurs que vous souhaitez (vous pouvez les taper là ou donner la plage où vos valeurs existantes sont)