Posted 14 March 2022, 12:28 pm EST
Ok, i send you the code fragment to load the data of the combo box:
Private Sub plFormarSpread()
With spread.ActiveSheet
Dim typeUser As CellType.ComboBoxCellType = New CellType.ComboBoxCellType
typeUser.Editable = True
typeUser.AutoCompleteSource = AutoCompleteSource.ListItems
typeUser.AutoCompleteMode = AutoCompleteMode.SuggestAppend
typeUser.AutoSearch = AutoSearch.MultipleCharacter
typeUser.AcceptsArrowKeys = True
typeUser.AutoFillAutoCompleteCustomSource = False
typeUser.CharacterCasing = CharacterCasing.Upper
typeUser.ItemData = UserID()
typeUser.Items = UserName()
typeUser.EditorValue = CellType.EditorValue.ItemData
.Columns(0).CellType = typeUser
End With
End Sub