Créez maintenant un critère de validité pour une cellule à l’aide de VBA. Seuls les nombres entiers entre 1 et 100 doivent être autorisés dans la cellule A1 de la feuille de calcul Feuil4. Pour ce faire, créez la macro à partir de la macro.

Sub Validite()

Sheets("Feuil4").Activate

  With Range("A1").Validation

      .Add Type:=xlValidateWholeNumber, _

        AlertStyle:=xlValidAlertStop, _

       Operator:=xlBetween, Formula1:="1", _

       Formula2:="100"

     .InputTitle = "Entrez le nombre entier!"

     .ErrorTitle = "Pas un entier!"

     .InputMessage = _

       "Entrez un nombre entre 1 et 100."

     .ErrorMessage = _

     "Vous devez entrer un nombre entre 1 et 100."

     End With

  End Sub

Les arguments pour la validité

Utilisez la méthode Add pour ajouter une règle de validité à la cellule A1. Dans le premier argument Type, vous définissez le critère de validité. Les critères de validité possibles se trouvent dans le tableau.

Tableau : Les constantes du critère de validité

Figure : Cellule avec règle de validité

Le deuxième argument, AlertStyle, définit le style du message de validation. XlValidAlertInformation, xlValid-AlertStop ou xlValid AlertWarning sont possibles. L’argument suivant, l’opérateur, est basé sur le tableau . Les mêmes opérateurs qui s’appliquent à la mise en forme conditionnelle s’appliquent au contrôle de validité. Les deux derniers arguments Formula1 et Formula2 contiennent les limites de valeur.