Masquage d'erreurs sur cellules coloriées par VBA

Dans ma feuille, j'ai des valeurs d'erreur qui apparaissent tant que l'ensemble des données n'est pas entré. Comment faire pour les masquer temporairement à l'aide d'une mise en forme conditionnelle ?

Pour masquer les messages d'erreurs, une façon de faire c'est d'écrire en blanc sur blanc. Mais si le fond des cellules est colorié, ça complique... D'ou l'idée de cette petite proc. qui appliquera systématiquement une couleur de police identique à la couleur de remplissage de la cellule afin de masquer les messages d'erreur disgracieux...

sub EsERR()
 
 For Each cell In Selection
    cI = cell.Interior.ColorIndex
    If cell.Interior.ColorIndex = xlNone And WorksheetFunction _
      .IsError(cell) = True Then
      cell.Font.ColorIndex = 2
    ElseIf WorksheetFunction.IsError(cell) = True Then
 
 cell.Font.ColorIndex = cI
    End If
  Next cell
 end sub

Auteur :

Mots clefs associés à cette page : , , , , , , , ,