Vous avez déjà vu quelques types de validité. Chaque type de validité est identifié en interne par un index. Vous pouvez voir cet index dans le tableau de l’article précédent ou vous pouvez utiliser la macro suivante de la liste  déterminer:

Sub Déterminer_le_type_de_validité()

Dim i As Integer

   Sheets("Feuil1").Activate

   With ActiveCell

      On Error Resume Next

   i = .Validation.Type

   If i = 3 Then MsgBox _

    "la liste est dans la région" _

    & .Validation.Formula1 & "!" Else MsgBox _

    "La cellule contient le type de validité :" & i

   End With

 End Sub

 En cas d’erreur L’instruction garantit que la macro ne se bloque pas lorsque la cellule active n’a pas de critère de validité. Si la Le type de validité correspond à l’indice 3, c’est une liste. Dans La zone de données liées devient alors un message à l’écran sortie dans laquelle les valeurs valides peuvent être trouvées. Au cas où si le type de validité n’est pas une liste, l’index du Type de validité émis.