Kim75
06-01-2010, 11:06 AM
Hi the forum,
It would be so kind if somebody could help with the following code :
When we :
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 validateThat adds a line in sheets “Historic” instead of modifying the line selected via the listbox.
Private 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 …
Here is my workbook : http://sd-1.archive-host.com/membres/up/779983057/Test_Kim.xls
Thanks for help, Kim.
It would be so kind if somebody could help with the following code :
When we :
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 validateThat adds a line in sheets “Historic” instead of modifying the line selected via the listbox.
Private 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 …
Here is my workbook : http://sd-1.archive-host.com/membres/up/779983057/Test_Kim.xls
Thanks for help, Kim.