Private Sub Quitter_Click()
UserForm1.Hide
With UserForm1
For Nbcheck = 1 To 2 ' le nombre de checkbox a vérifier
If .Frame2.BoundValue(Nbcheck).Value = True & .Frame1.BoundValue(Nbcheck).Value = '' Then
Select Case .Frame2.BoundValue(Nbcheck).Name
Case 'texbox1'
MsgBox 'Veuillez vérifier le champ Ponction veineuse', vbOKOnly + vbExclamation, 'Attention'
Case 'texbox2'
MsgBox 'Veuillez vérifier le champ Ponction artérielle', vbOKOnly + vbExclamation, 'Attention'
End Select
End If
Next Nbcheck
End With
End Sub