1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
| Private Sub UserForm_Initialize()
TextBox3.Value = DateValue(Date)
End Sub
Private Sub TextBox9_Change()
Dim Texte As String
Texte = TextBox9.Text
Select Case Len(Texte)
Case 2, 5, 8, 11
Texte = Texte & " "
End Select
TextBox9.Text = Texte
End Sub
Private Sub TextBox10_Change()
Dim Texte As String
Texte = TextBox10.Text
Select Case Len(Texte)
Case 2, 5, 8, 11
Texte = Texte & " "
End Select
TextBox10.Text = Texte
End Sub
Private Sub Valider_Click()
With Worksheets("FICHE_RDV")
Sheets("FICHE_RDV").Range("B5").Value = TextBox3
Sheets("FICHE_RDV").Range("B6").Value = TextBox4
Sheets("FICHE_RDV").Range("B8").Value = TextBox5
Sheets("FICHE_RDV").Range("B9").Value = TextBox6
Sheets("FICHE_RDV").Range("B10").Value = TextBox7
Sheets("FICHE_RDV").Range("B11").Value = TextBox8
Sheets("FICHE_RDV").Range("B15").Value = TextBox9
Sheets("FICHE_RDV").Range("B16").Value = TextBox10
Sheets("FICHE_RDV").Range("B17").Value = TextBox11
Sheets("FICHE_RDV").Range("B18").Value = TextBox12
Sheets("FICHE_RDV").Range("B19").Value = TextBox13
End With
'Recuperation de la derniere ligne et inscription des données
Dim RDV As Integer
RDV = Range("a65000").End(xlUp).Row + 1
Cells(RDV, 1).Value = TextBox3.Value
Cells(RDV, 2).Value = TextBox4.Value
Cells(RDV, 6).Value = TextBox5.Value
Cells(RDV, 7).Value = TextBox6.Value
Cells(RDV, 8).Value = TextBox7.Value
Cells(RDV, 9).Value = TextBox8.Value
Cells(RDV, 10).Value = TextBox9.Value
Cells(RDV, 11).Value = TextBox10.Value
Cells(RDV, 12).Value = TextBox11.Value
Cells(RDV, 13).Value = TextBox12.Value
Cells(RDV, 14).Value = TextBox13.Value
Unload Me
End Sub |
Partager