' ***************** PARTIE 1 ********************************
'
Valider1:
' Contrôle du total des Scores
If Txt_Total_Points.Value <> 1944 Then
Lb_Erreur.Visible = True
Cmd_Correction.Visible = True
Cmd_Tb_Suiv.Visible = False
Exit Sub
Else
Lb_Erreur.Visible = False
Cmd_Correction.Visible = False
Cmd_Tb_Suiv.Visible = True
End If
' Copie de la saisie dans la feuille Table
Range("vValeur1") = Frm_Partie_1.Txt_Numero_Equipe_1.Value
Range("vValeur11") = Frm_Partie_1.Txt_Numero_Equipe_2.Value
Sheets(3).Select
' Boucle sur la ligne équipe 1
For i = 3 To 400
If Cells(i, 2) = Range("vValeur1") Then
Cells(i, 24).Value = Frm_Partie_1.Txt_Score_1.Value
Cells(i, 25).Value = Frm_Partie_1.Txt_Belote_1.Value
Cells(i, 26).Value = Frm_Partie_1.Txt_Capot_1.Value
Range("Total_Points_1") = Frm_Partie_1.Txt_Score_1.Value
Range("vNum_Equ_1") = Frm_Partie_1.Txt_Numero_Equipe_1.Value
' Boucle sur la ligne équipe 2
If Cells(i + 1, 2) = Range("vValeur11") Then
Cells(i + 1, 24).Value = Frm_Partie_1.Txt_Score_2.Value
Cells(i + 1, 25).Value = Frm_Partie_1.Txt_Belote_2.Value
Cells(i + 1, 26).Value = Frm_Partie_1.Txt_Capot_2.Value
Range("Total_Points_2") = Frm_Partie_1.Txt_Score_2.Value
Range("vNum_Equ_2") = Frm_Partie_1.Txt_Numero_Equipe_2.Value
Cmd_Tb_Suiv.Visible = True
Exit For
End If
End If
Next i
' Contrôle total score partie
Frm_Partie_1.Show
Frm_Partie_1.Txt_Score_Valid.Value = Txt_Score_Valid.Value + 1
Exit Sub
' ***************** PARTIE 2 ********************************
'
Valider2:
' Contrôle du total des Scores
If Txt_Total_Points.Value <> 1944 Then
Lb_Erreur.Visible = True
Cmd_Correction.Visible = True
Cmd_Tb_Suiv.Visible = False
Exit Sub
Else
Lb_Erreur.Visible = False
Cmd_Correction.Visible = False
Cmd_Tb_Suiv.Visible = True
End If
' Copie de la saisie dans la feuille Table
Range("vValeur2") = Frm_Partie_1.Txt_Numero_Equipe_1.Value
Range("vValeur22") = Frm_Partie_1.Txt_Numero_Equipe_2.Value
Sheets(3).Select
' Boucle sur la ligne équipe 1
For a = 3 To 400
If Cells(a, 2) = Range("vValeur2") Then
Cells(a, 32).Value = Frm_Partie_1.Txt_Score_1.Value
Cells(a, 33).Value = Frm_Partie_1.Txt_Belote_1.Value
Cells(a, 34).Value = Frm_Partie_1.Txt_Capot_1.Value
Range("Total_Points_1") = Frm_Partie_1.Txt_Score_1.Value
Range("vNum_Equ_1") = Frm_Partie_1.Txt_Numero_Equipe_1.Value
' Boucle sur la ligne équipe 2
If Cells(a + 1, 2) = Range("vValeur22") Then
Cells(a + 1, 32).Value = Frm_Partie_1.Txt_Score_2.Value
Cells(a + 1, 33).Value = Frm_Partie_1.Txt_Belote_2.Value
Cells(a + 1, 34).Value = Frm_Partie_1.Txt_Capot_2.Value
Range("Total_Points_2") = Frm_Partie_1.Txt_Score_2.Value
Range("vNum_Equ_2") = Frm_Partie_1.Txt_Numero_Equipe_2.Value
Cmd_Tb_Suiv.Visible = True
Exit For
End If
End If
Next a
' Contrôle total score partie
Frm_Partie_1.Show
Frm_Partie_1.Txt_Score_Valid.Value = Txt_Score_Valid.Value + 1
Exit Sub