Lorsqu’une feuille de calcul contient une validation des données, il peut parfois être utile de rechercher toutes les cellules avec une validation des données. Une façon de vérifier cela consiste à créer une fonction définie par l’utilisateur pour effectuer la tâche. Ouvrez d’abord une nouvelle feuille de calcul et définissez une validation de date pour la cellule A1 qui commence par

1/1/2013 et se termine le 31/12/2013. Effectuez ensuite les étapes suivantes.

Pour vérifier si une cellule contient une validation de données :

1. Appuyez sur <Alt+F11> pour ouvrir Visual Basic Editor.
2. Dans le menu Insertion, cliquez sur Module.
3. Tapez la fonction suivante :

Function Valid(rng As Range) Dim intV As Integer

On Error GoTo errorM

intV = rng.Validation.Type

Valid = True

Exit Function

errorM:

Valid = False

End Function

4. Revenez à la feuille de travail et saisissez la formule =Valid(A1) dans la cellule C1.
5. Appuyez sur <Entrée>.

FIGURE 13–5