Validation signifie s'assurer que les valeurs entrées sont bonnes. On valide afin de s'assurer qu'on passe des valeurs correctes aux calculs et pour éviter de faire "crasher" l'application.

Par exemple, si on entre une donnée qui n'est pas numérique, la procédure de calcul va s'arrêter sur une erreur de "Type mismatch" et l'utilisateur restera en panne.




Lors de la validation vous allez probablement utiliser la fonction MsgBox( ) souvent. Le MsgBox que nous avons utilisé jusqu'à maintenant est le plus simple possible. Il y a d'autres versions du MsgBox qui vous permettent de préciser les intentions de l'utilisateur.

Par exemple:


Les constantes qui sont utilisées:


Pour plus d'information au sujet de la fonction et de la valeur des constantes, voyez: MsgBox function dans le Help.


Il y a 4 événements qui sont généralement utilisés pour faire la validation:



À noter au sujet de Change: l'événement Change est invoqué à chaque changement qu'on fait: entrer un caractère est un changement donc, Change s'exécute à chaque caractère qu'on frappe.

Voici un exemple de Change:











Le KeyPress saisi le code ASCII de la touche frappée, avant qu'elle soit affichée dans le TextBox. Donc, on peut la vérifier et l'ignorer si elle n'est pas bonne.

L'exemple illustre comment on valide dans un "control array".

Private Sub txtHeures_KeyPress(Index As Integer, KeyAscii As Integer)
    'les chiffres 0 à 9 ont les codes ASCII 48 à 57
    '43 est le signe +, 45 est le signe - et 46 est le point .
    If (KeyAscii < 48 Or KeyAscii > 57) _
        And Not KeyAscii = 43 _
        And Not KeyAscii = 45 _
        And Not KeyAscii = 46 Then
            KeyAscii = 0
    End If
End Sub

Voici comment on ferait la même chose avec Change

Private Sub txtHeures_Change(Index As Integer)
    If Not IsNumeric(txtHeures(Index)) Then
        MsgBox ("Doit être numérique")
    End If
End Sub

Le TextBox a une propriété CausesValidation qui peut être True ou False. Si elle est True, le Validate event sera invoqué dès que j'essaie de quitter la boîte. Si je décide de ne pas valider, en réponse à une question, par exemple, je peux mettre le CausesValidation à False.

Voici un exemple de Validate avec un TextBox individuel:




Voici comment on pourrait utiliser _GotFocus et _LostFocus pour changer la couleur de la boite, par exemple:


Il est aussi possible de combiner ces fonctions dans une procédure et, en plus, utiliser le terme générique ActiveControl pour rendre la procédure encore plus utile.

Le terme ActiveControl, comme son nom l'indique, réfère au control actif en ce moment, sans avoir à le nommer.

J'appelle la procédure de sortie dans Validate plutôt que LostFocus parce qu'avec LostFocus, le ActiveControl est déjà disparu au moment ou l'événement est invoqué.

Private Sub txtHeures_GotFocus(Index As Integer)
    FocusIn
End Sub

Private Sub txtHeures_Validate(Index As Integer, Cancel As Boolean)
   If txtHeures < 0 Or txtHeures > 100 Then
     	MsgBox ("Doit être un nombre entre 0 et 100")
       Cancel = True
   End If
   FocusOut
End Sub

Private Sub FocusIn()
    ActiveControl.BackColor = RGB(0, 128, 0)
    ActiveControl.ForeColor = RGB(255, 255, 255)
    ActiveControl.SelStart = 0
    ActiveControl.SelLength = Len(ActiveControl.Text)
End Sub

Private Sub FocusOut()
    ActiveControl.BackColor = RGB(255, 255, 255)
    ActiveControl.ForeColor = 0
End Sub

Finalement, notons qu'il y a certaines erreurs qui ne peuvent pas être valider par les événements des TextBox. Par exemple, si je veux m'assurer que tous les TextBox ont été remplis, je ne peux pas mettre le code dans le Validate ou le Change du TextBox car si l'utilisateur n'a pas touché ces boîtes, les événements ne seront jamais invoqués.

Il faut donc mettre ces validations dans le bouton Calcul, par exemple.

---