
Textbox1.text=sh.cells(lng,5).value Textbox1.value=cells(no_ligne,5) |
Private Sub UserForm_Initialize() TextBox1.Value = Cells(1, 1).Value TextBox1 = Format(TextBox1, "€ #,##0.00") End Sub |
Textbox2. Value=sh.cells(lng,3).value Textbox2=format(textbox2,"#,##0.00 €) |
