Bonjour
Modifies tes 2 macros (Userform Entrées)
Private Sub ComboBox1_Change()
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
TextBox1 = ComboBox1.Column(1)
intTopIndex = Me.ComboBox1.TopIndex
End Sub
Private Sub Valider_Click()
'--- Positionnement dans la base
Sheets("Entrées").Select
[A65000].End(xlUp).Offset(1, 0).Select
'--- Transfert Formulaire dans BD
ActiveCell.Value = Application.Proper(Me.ComboBox1)
ActiveCell.Offset(0, 1) = Application.Proper(Me.TextBox2)
ActiveCell.Offset(0, 4) = Application.Proper(Me.DTPicker1)
Me.TextBox1 = ""
Me.TextBox2 = ""
Me.ComboBox1.ListIndex = -1
End Sub