Option Explicit
Dim iRL
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
With Sheets("Liste")
iRL = .Range("H65000").End(xlUp).Row + 1
TextBox2 = VBA.Format(TextBox2.Value, " 0.00 €")
End With
End Sub
Private Sub CommandButton1_Click()
With Sheets("Liste")
.Range("H" & iRL) = Me.txtQte 'Référence
.Range("I" & iRL) = Me.TextBox1 'Désignation
.Range("J" & iRL) = Me.TextBox2 'Prix
TextBox2 = VBA.Format(TextBox2.Value, " 0.00 €")
Unload Me
End With
End Sub
Private Sub TextBox1_AfterUpdate()
TextBox2 = VBA.Format(TextBox2.Value, " 0.00 €")
End Sub