Imaginez que vous deviez parcourir une liste et marquer des valeurs incorrectes afin de supprimer ces valeurs incorrectes ultérieurement. Comme vous ne souhaitez pas supprimer immédiatement les valeurs incorrectes pour des raisons de sécurité, marquez toutes les entrées incorrectes. Pour ce faire, attribuez la couleur de police ROUGE.

Sub ContenuPoliceRouge()
Dim Cellule As Range
For Each Cellule In ActiveSheet.UsedRange
If Cellule.Font.ColorIndex = 3 Then
Cellule.ClearContents
End If
Next Cellule
End Sub

Définissez d’abord une variable du type de données Plage. Utilisez ensuite une boucle For Each, qui recherche toutes les cellules de la zone utilisée et vérifie la mise en forme des cellules. La propriété UsedRange vous aide à déterminer la zone utilisée sur la feuille de calcul. Les valeurs sont supprimées de toutes les cellules formatées avec la couleur de police ROUGE et correspondent donc à l’indice de couleur 3.