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

Supposons qu'il existe des valeurs d'erreur dans votre feuille de calcul Excel que vous n'avez pas besoin de corriger mais de masquer. Pour résoudre le problème, nous avons parlé de comment masquer toutes les valeurs d'erreur dans Excel, maintenant, que se passe-t-il si vous souhaitez uniquement masquer des valeurs d'erreur spécifiques ? Dans ce didacticiel, nous vous montrerons comment effectuer ce travail de trois manières ci-dessous.

Masquez 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 transformant la couleur de police des erreurs spécifiées en blanc. Veuillez suivre les étapes ci-dessous et exécuter le code en fonction de vos besoins.

1. Dans votre Excel, appuyez sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module. Copiez ensuite l'un des codes VBA suivants dans le Module fenêtre.

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

'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", "#NOM ?") dans la 12e rangée, vous devez remplacer "#DIV/0 !", "#N/A", "#NOM ?" avec les erreurs réelles que vous souhaitez masquer, n'oubliez pas de placer chaque valeur entre 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. presse F5 pour exécuter le code VBA. Remarque: Si vous avez utilisé le Code VBA 1, une boîte de dialogue apparaîtra vous demandant de sélectionner la plage où rechercher et supprimer les valeurs d'erreur. Vous pouvez également cliquer sur un onglet de feuille pour sélectionner la feuille entière.

4. La boîte de dialogue illustrée ci-dessous s'affiche pour vous indiquer que les valeurs d'erreur spécifiées ont été masquées. Cliquez sur OK pour fermer le dialogue.

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

Remplacez des valeurs d'erreur spécifiques par d'autres valeurs avec la fonction Assistant de condition d'erreur

Si vous n'êtes pas familier avec le code VBA, la fonctionnalité Assistant de condition d'erreur de Kutools pour Excel pourrait vous aider à trouver facilement toutes les valeurs d'erreur, toutes les erreurs #N/A ou toute erreur sauf #N/A, et à les remplacer par d'autres valeurs que vous spécifiez. , veuillez lire la suite pour savoir comment effectuer ce travail.

1. D' Kutools onglet, dans le Laits en poudre groupe, cliquez sur Plus > Assistant de condition d'erreur.

3. Cliquez Ok. Les valeurs d'erreur spécifiées sont affichées en tant qu'option que vous avez sélectionnée.

Remarque: Pour utiliser la Assistant de condition d'erreur fonctionnalité, vous devriez avoir Kutools pour Excel installé sur votre ordinateur. Si Kutools n'est pas installé, cliquez ici pour télécharger et installer. Le complément Excel professionnel offre un essai gratuit de 30 jours sans limitation.

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

Pour remplacer une valeur d'erreur spécifique, Excel IF, IFNAet ERREUR.TYPE fonctions peuvent vous rendre service. Mais d'abord, vous devez connaître le code numérique correspondant à chaque valeur d'erreur.

Par exemple, vous avez une table avec des valeurs comme indiqué ci-dessus. Pour remplacer le # DIV / 0! erreur avec la chaîne de texte Diviser par zéro Erreur, vous devez d'abord trouver le code de cette erreur, qui est 2. Et 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 ci-dessous :

=IF(IFNA(ERROR.TYPE(A2),A2)=2,"Diviser par zéro erreur",A2)

Articles connexes

Meilleurs outils de productivité bureautique

🤖	Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
	Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule
	Super recherche: VSearchup à critères multiples  |   VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
	Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
	Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes
	Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule   |  Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules   |  Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
	Les 15 meilleurs ensembles d'outils:  12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Lire la suite... Téléchargement Gratuit...

---

Office Tab apporte une interface à onglets à Office et facilite grandement votre travail

• Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
• Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
• Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!

Lire la suite... Téléchargement Gratuit...