L'utilisatiteur tape un nouveau nom dans la liste voici une petite manipulation qui alimentera la liste de la combobox en récupérant la nouvelle valeur saisie
Donc il est possible dans le cas où les données sont issues d'une feuille Excel, d'inscrire cette nouvelle valeur dans la feuille Excel.
Private Sub ComboBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Sheets("liste").Cells(1, 1).End(xlDown).Offset(1, 0).Value = Me.ComboBox2.Value
End If
End Sub
Dans ce code les noms sont stockés dans la feuille "Liste" et la combobox2 et réalimentés à l'ouverture du formulaire via le programme Private Sub UserForm_Initialize()
For i = 1 To Sheets("liste").Range("A65536").End(xlUp).Row
ComboBox2 = Sheets("liste").Range("A" & i)
If ComboBox2.ListIndex = -1 Then ComboBox2.AddItem Sheets("liste").Range("A" & i)
Next i