verif saisie !!

Réponse acceptée !
Je ne sais pas trop ce qu'il en est pour l'interception des evts claviers/souris mais si la raison pour laquelle tu ne veux pas vérifier tous les controles un à un, c'est afin d'éviter d'avoir des
If TextBox1.Text <> "" Then ...
If TextBox2.Text <> "" Then ...
If TextBox3.Text <> "" Then ....

tu peux mettre ça pour vérifier :
Private Function  lfct_VerifSaisie as Boolean
Dim l_Ctl as Control
Dim lb_OK as Boolean
lb_OK = False
For Each l_Ctl in Me.Controls
   If TypeOf l_Ctl is TextBox Then
      If l_Ctl.Text <> "" Then
      'If l_Ctl.Text <> l_Ctl.Tag Then
         lb_OK = True
         Exit For
      End If
   If TypeOf l_Ctl is CheckBox Then
      If l_Ctl.Value <> 0 Then
      'If l_Ctl.Value <> l_Ctl.Tag Then
         lb_OK = True
         Exit For
      End if
   End if
Next l_Ctl
If not lb_OK Then
   MsgBox "Aucune zone n'a été saisie"
End if
lfct_VerifSaisie = lb_OK
End Function

Si tu as des valeurs par défaut, dans tes zones, utilise la propriété Tag des checkbox et textbox pour les stocker
Après avoir rempli les valeurs par défaut tu lances cette procédure
Public Sub lsub_DefValues(a_Form as Form)
Dim l_Ctl as Control
For Each l_Ctl in a_Form.Controls
   If TypeOf l_Ctl is TextBox Then
      l_Ctl.Tag = l_Ctl.Text
   End If
   If TypeOf l_Ctl is CheckBox Then
      l_Ctl.Tag = l_Ctl.Value   
   End If
Next l_Ctl
End Sub