Private Sub cmdAjouter_Click()
Dim numLigneVide As Integer
Dim numLigneVideATE As Integer
'On active la feuille "Gestion Missions"
Worksheets("Gestion Missions").Activate
'On trouve la dernière ligne vide du tableau et on enregistre le numéro de la ligne dans la variable numLigneVide
numLigneVide = ActiveSheet.Columns(7).Find("").Row
'On vérifie que les champs obligatoires sont correctement remplis
If txtada.Text = "" Then
MsgBox "Veuillez donner un Indice Train Arrivée", vbCritical, "Saisie obligatoire"
txtada.SetFocus
Exit Sub
ElseIf txtdar.Text = "" Then
MsgBox "Veuillez saisir une date", vbCritical, "Saisie obligatoire"
txtdar.SetFocus
Exit Sub
Else
'On remplit les données dans notre tableau
For y = 1 To 17
ActiveSheet.Cells(numLigneVide, y).Borders.Weight = xlThin
Next y
'ActiveSheet.Cells(numLigneVide, 1).RowHeight = 24
ActiveSheet.Cells(numLigneVide, 1) = txtdc.Text
ActiveSheet.Cells(numLigneVide, 2) = txtori.Text
ActiveSheet.Cells(numLigneVide, 3) = txtdes.Text
ActiveSheet.Cells(numLigneVide, 4) = txtnw.Text
ActiveSheet.Cells(numLigneVide, 5) = txtlg.Text
ActiveSheet.Cells(numLigneVide, 6) = txtpd.Text
ActiveSheet.Cells(numLigneVide, 7) = txtada.Text
ActiveSheet.Cells(numLigneVide, 8) = txtvoie.Text
ActiveSheet.Cells(numLigneVide, 9) = txtdar.Text
ActiveSheet.Cells(numLigneVide, 10) = txthar.Text
ActiveSheet.Cells(numLigneVide, 11) = txtmar.Text
ActiveSheet.Cells(numLigneVide, 12) = txtdde.Text
ActiveSheet.Cells(numLigneVide, 13) = txthde.Text
ActiveSheet.Cells(numLigneVide, 14) = txtmd.Text
ActiveSheet.Cells(numLigneVide, 15) = txtdda.Text
If ouivt.Value = True Then
ActiveSheet.Cells(numLigneVide, 16) = "VT"
ActiveSheet.Cells(numLigneVide, 17) = txtobs.Text
End If
frmNouveau.Hide
End if
End Sub