Actualiser l'entourage des données non validées

Bonjour à tous,

C'est une astuce assez simple, mais très pratique.

Lorque vous utilisez des validations de données, vous pouvez entourer en rouge (menu en dessous de Validation des données) les données non valides :
entourer-donnees-non-valides-en-rouge

Problème : lors de la suppression d'une cellule, lors d'un recalcul (si la cellule à valider contient une formule) ou bien lors de l'importation des données par VBA, l'entourage ne se met pas à jour.

Pour pallier à ceci, vous pouvez combiner une procédure événementielle avec l'entourage des données :
Clic droit sur le nom de la feuille et choisir Code VBA, puis ajouter le code suivant.

Vous pouvez rapidement ajouter le code en utilisant les menus déroulants du haut de l'écran.
excel-add-private-sub

Puis il ne reste qu'à compléter le code :
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.CircleInvalid
End Sub

Suivant les besoins, ou si le code ralentit trop le classeur, vous pouvez aussi changer la procédure événementielle, par exemple, lors d'un recalcul, lors de la sélection d'une feuille ou encore lors de l'ouverture du classeur.

A bientôt

Gaëtan