Comment masquer des valeurs d'erreur spécifiques dans Excel ?

Supposons qu'il y ait des valeurs d'erreur dans votre feuille de calcul Excel que vous n'avez pas besoin de corriger, mais plutôt de masquer. Pour résoudre ce problème, nous avons déjà parlé de la façon de masquer toutes les valeurs d'erreur dans Excel. Mais que faire si vous souhaitez masquer uniquement certaines valeurs d'erreur spécifiques ? Dans ce tutoriel, nous allons vous montrer comment réaliser cette tâche de trois manières différentes ci-dessous.

Masquer plusieurs valeurs d'erreur spécifiques en rendant le texte blanc avec VBA

Nous avons créé deux codes VBA pour vous aider à masquer rapidement plusieurs valeurs d'erreur spécifiques dans la plage sélectionnée ou sur plusieurs feuilles de calcul en changeant la couleur de police des erreurs spécifiées en blanc. Veuillez suivre les étapes ci-dessous et exécuter le code selon vos besoins.

1. Dans votre Excel, appuyez sur les touches "Alt" + "F11" pour ouvrir la fenêtre "Microsoft Visual Basic for Applications".

2. Cliquez sur "Insertion" > "Module". Ensuite, copiez l'un des codes VBA suivants dans la fenêtre "Module".

Code VBA 1 : Masquer plusieurs valeurs d'erreur spécifiques dans la plage sélectionnée

Sub HideSpecificErrors_SelectedRange()
  'Updated by ExtendOffice 20220824
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg As Range
Dim xURg As Range
Dim xFindRgs As Range
Dim xFAddress As String
Dim xBol As Boolean
Dim xJ

xArrFinStr = Array("#DIV/0!”, “#N/A”, “#NAME?") 'Enter the errors to hide, enclose each with double quotes and separate them with commas

On Error Resume Next
Set xRg = Application.InputBox("Please select the range that includes the errors to hide:", "Kutools for Excel", , Type:=8)
If xRg Is Nothing Then Exit Sub

xBol = False
For Each xARg In xRg.Areas
    Set xFindRg = Nothing
    Set xFindRgs = Nothing
    Set xURg = Application.Intersect(xARg, xARg.Worksheet.UsedRange)
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.Font.ThemeColor = xlThemeColorDark1
        
    End If
Next
If xBol Then
    MsgBox "Successfully hidden."
Else
     MsgBox "No specified errors were found."
End If
End Sub

Remarque : Dans l'extrait "xArrFinStr = Array("#DIV/0!", "#N/A", "#NAME?")" à la ligne 12, vous devez remplacer "#DIV/0!", "#N/A", "#NAME?" par les erreurs réelles que vous souhaitez masquer. N'oubliez pas d'encadrer chaque valeur par des guillemets doubles et de les séparer par des virgules.

Code VBA 2 : Masquer plusieurs valeurs d'erreur spécifiques sur plusieurs feuilles

Sub HideSpecificErrors_WorkSheets()
'Updated by ExtendOffice 20220824
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg, xFindRgs As Range
Dim xWShs As Worksheets
Dim xWSh As Worksheet
Dim xWb As Workbook
Dim xURg As Range
Dim xFAddress As String
Dim xArr, xArrFinStr
Dim xI, xJ
Dim xBol As Boolean
xArr = Array("Sheet1", "Sheet2") 'Names of the sheets where to find and hide the errors. Enclose each with double quotes and separate them with commas
xArrFinStr = Array("#DIV/0!", "#N/A", "#NAME?") 'Enter the errors to hide, enclose each with double quotes and separate them with commas
'On Error Resume Next
Set xWb = Application.ActiveWorkbook
xBol = False
For xI = LBound(xArr) To UBound(xArr)
    Set xWSh = xWb.Worksheets(xArr(xI))
    Set xFindRg = Nothing
    xWSh.Activate
    Set xFindRgs = Nothing

    Set xURg = xWSh.UsedRange
    Set xFindRgs = Nothing
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.Font.ThemeColor = xlThemeColorDark1
        
    End If
Next
If xBol Then
    MsgBox "Successfully hidden."
Else
     MsgBox "No specified errors were found."
End If
End Sub

3. Appuyez sur "F5" pour exécuter le code VBA.

4. La boîte de dialogue ci-dessous apparaît, vous informant que les valeurs d'erreur spécifiées ont été masquées. Cliquez sur "OK" pour fermer la boîte de dialogue.

5. Les valeurs d'erreur spécifiées ont été masquées immédiatement.

Remplacer des valeurs d'erreur spécifiques par d'autres valeurs avec la fonction Assistant de mise en forme des conditions d'erreur

Si vous ne maîtrisez pas bien le code VBA, la fonction "Assistant de mise en forme des conditions d'erreur" de Kutools pour Excel pourrait vous aider à trouver facilement toutes les valeurs d'erreur, toutes les erreurs #N/A, ou toutes les erreurs sauf #N/A, et à les remplacer par d'autres valeurs que vous spécifiez. Lisez la suite pour découvrir comment réaliser cette tâche.

1. Sur l'onglet "Kutools", dans le groupe "Formule", cliquez sur "Plus" > "Assistant de mise en forme des conditions d'erreur".

3. Cliquez sur "Ok". Les valeurs d'erreur spécifiées sont affichées selon l'option que vous avez sélectionnée.

Remplacer une erreur spécifique par d'autres valeurs avec une formule

Pour remplacer une valeur d'erreur spécifique, les fonctions SI, SI.NON.DISP et TYPE.ERREUR d'Excel peuvent vous être utiles. Mais avant tout, vous devez connaître le code numérique correspondant à chaque valeur d'erreur.

Par exemple, vous avez un tableau avec des valeurs comme indiqué ci-dessus. Pour remplacer l'erreur "#DIV/0!" par la chaîne de texte "Erreur Division Par Zéro", vous devez d'abord trouver le code de cette erreur, qui est "2". Puis appliquez la formule suivante dans la cellule "B2", et faites glisser la poignée de recopie vers le bas pour appliquer la formule aux cellules en dessous :

=IF(IFNA(ERROR.TYPE(A2),A2)=2,"Divide By Zero Error",A2)

Articles connexes