'PAGE 1 ENREGISTREMENT DEBUT DE TP Page 1
Private Sub CommandButton3_Click()
Dim i&
If ComboBox1.Value = "" Then MsgBox ("Définir une Classe")
Feuil1.Select
Rows("4:4").Select
Selection.Copy
Selection.Insert Shift:=xlDown
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A4").Value = ComboBox2.Value 'Elève
Range("B4").Value = ComboBox1.Value 'Classe
Range("C4").Value = ComboBox3.Value 'TP
Range("D4").Value = TextBox3.Value 'Début Séance
Range("E4").Value = TextBox5.Value 'Professeur Intervenant
For i = 7 To 17
If Len(Me.Controls("TextBox" & 90 + i)) Then Cells(4, i - 1).Value = "X"
Next i
End Sub