Microsoft 365 Ecriture dans Combobox

vgendron à dit:

Bonsoir

comme on ne comprend pas ce que tu veux faire, regarde la PJ
j'y ai mis un combo alimenté par la table de la feuille

au lancement du formulaire:
1) clic directement sur valider SANS rien toucher au combo
2) selectionne un élément du combo PUIS valider
3) tape quelques chose qui ne correspond à aucun élément du combo PUIS valider

Cliquez pour agrandir...

Dranreb à dit:

Utilisez l'évènement Change, pas Click pour détecter une frappe.

Cliquez pour agrandir...

dysorthographie à dit:

Bonjour,
j'y colle ma petite touche personnel!

VB:

Private Sub UserForm_Initialize()
Dim Cn As String, Rs As Object
Cn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES;"""
Set Rs = CreateObject("AdoDb.RecordSet")
Rs.Open "Select * from [Combo$]", Cn
Me.ComboBox1.Column = Rs.getrows
Rs.Close
Set Rs = Nothing
End Sub

Private Sub ComboBox1_Click()
If ComboBox1.ListIndex > -1 Then
MsgBox ComboBox1.Text
End If
End Sub

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
    If ComboBox1.ListIndex = -1 And ComboBox1.Text <> "" Then
        ComboBox1.AddItem ComboBox1.Text
        ComboBox1.ListIndex = ComboBox1.ListCount - 1
       
    End If
ComboBox1_Click
End If
End Sub

Cliquez pour agrandir...