Private Sub CBnAjouter_Click()
ReDim TV(1 To 1, 1 To 10)
CLsP.ValeursVers TV
DéchargerAutresContrôles
CLsP.Lignes.Add.Range.Value = TV
CLsP.Actualiser
End Sub
Private Sub CBnModifier_Click()
DéchargerAutresContrôles
CLsP.Lignes(LCou).Range.Value = TV
End Sub
Rem. Si en fait il ne doit pas y avoir de doublon d'une combinaison
' EMAT8 et AISM on peut n'utiliser qu'un seul CommandButton CBnValider
' qui afficherait soit "Ajouter" soit "Modifier".
Private Sub DéchargerAutresContrôles()
TV(1, 2) = NomdeBapteme.Text
TV(1, 3) = CBxAISM.Text
TV(1, 5) = SGL.Text
TV(1, 6) = CIE.Text
TV(1, 7) = Observation.Text
TV(1, 8) = GQGN.Text
End Sub
Private Sub CBnArchiver()
WshArchive.ListObjects(1).ListRows.Add.Range.Value = TV
CLsP.Lignes(LCou).Delete
CLsP.Actualiser
End Sub