Hi the forum,
It would be so kind if somebody could help with the following code :
When we :
That adds a line in sheets “Historic” instead of modifying the line selected via the listbox.
- click to the button “Modif Résa”, that call UserForm3 (Modification de réservation),
- insert “01.09.2010” in the textbox (Date reunion)
- doubleclick in the second line for example, change some data and validate
Here is my workbook : http://sd-1.archive-host.com/membres...7/Test_Kim.xlsPrivate Sub Ok_Click()
Dim ligne As Long
ligne = Sheets("Historic").[G:G].Find(ListBox1, LookIn:=xlValues).Row
With Sheets("Historic")
Sheets("Historic").Cells(ligne, 1) = Me.TextBox1
Sheets("Historic").Cells(ligne, 2) = Me.TextBox2
Sheets("Historic").Cells(ligne, 3) = Me.TextBox3
Etc …
Thanks for help, Kim.