Re tous
Voila pour travailler sur mon projet je suis tombé sur un exemple seulement j'ai du mal a comprendre pourquoi
Passer de
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Add_item
A
Private Sub CommandButton1_Click()
Add_item
End Sub
Puis par
Sub Add_item()
If TextBox1 = "" Then TextBox1.SetFocus: Exit Sub
ListBox1.AddItem TextBox1.Value
'
TextBox1 = ""
SendKeys "{ENTER}"
TextBox1.SetFocus
End Sub
C'est pour avancer dans mon apprentissage
@ + ledom