Comment vérifier si une ligne est masquée dans Excel ?

Cet article explique comment vérifier si une ligne est masquée dans une plage spécifiée ou dans une feuille de calcul Excel.

Vérifiez si une ligne est masquée dans la plage sélectionnée avec un code VBA
Vérifiez si une ligne est masquée dans une feuille de calcul avec un code VBA

Vérifiez si une ligne est masquée dans la plage sélectionnée avec un code VBA

Veuillez suivre les étapes ci-dessous pour vérifier si des lignes sont masquées dans une plage sélectionnée et trouver le numéro des lignes masquées.

1. Sélectionnez la plage que vous souhaitez vérifier pour les lignes masquées. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Dans la fenêtre Microsoft Visual Basic for Applications, cliquez sur Insérer > Module. Ensuite, copiez le code VBA ci-dessous dans la fenêtre de code.

Code VBA : vérifier les lignes masquées dans la plage sélectionnée

Sub HiddenRowsInRange()
'Update by Extendoffice 2018/5/15
    Dim I As Long
    Dim xStr As String
    Dim xOne, xTwo As Long
    Dim xRg, xRgVsb, xRgItem As Range
    On Error Resume Next
    Set xRg = Range("A1:A100")
    Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
   If xRg.Count <> xRgVsb.Count Then
        For I = 1 To xRgVsb.Areas.Count - 1
            Set xRgItem = xRgVsb.Areas.Item(I)
            xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
            xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
            xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
        Next
        xStr = Left(xStr, Len(xStr) - 1)
        MsgBox "Hidden rows in selected range are:" & xStr
    Else
        MsgBox "No rows hidden"
    End If
End Sub

3. Appuyez sur la touche F5 pour exécuter le code.

Ensuite, une boîte de dialogue Microsoft Excel apparaît pour vous montrer les lignes masquées comme indiqué dans la capture d'écran ci-dessous.

Découvrez la magie d'Excel avec Kutools AI

• Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
• Codage VBA : Écrivez et implémentez du code VBA sans effort.
• Interprétation des formules : Comprenez facilement des formules complexes.
• Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !

Vérifiez si une ligne est masquée dans une feuille de calcul avec un code VBA

Le code VBA ci-dessous peut vous aider à vérifier les lignes masquées dans une feuille de calcul Excel. Veuillez suivre les étapes ci-dessous.

1. Ouvrez la feuille de calcul que vous devez vérifier pour les lignes masquées, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Dans la fenêtre Microsoft Visual Basic for Applications, cliquez sur Insérer > Module. Ensuite, copiez le code VBA ci-dessous dans la fenêtre de code.

Code VBA : vérifier si une ligne est masquée dans une feuille de calcul

Sub HiddenRowsInSheet()
'Update by Extendoffice 2018/5/15
    Dim I As Long
    Dim xStr As String
    Dim xOne, xTwo As Long
    Dim xRg, xRgVsb, xRgItem As Range
    On Error Resume Next
    Set xRg = ActiveSheet.UsedRange
    Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
    Debug.Print xRgVsb.Address
    If xRg.Count <> xRgVsb.Count Then
        For I = 1 To xRgVsb.Areas.Count - 1
            Set xRgItem = xRgVsb.Areas.Item(I)
            xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
            xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
            xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
        Next
        xStr = Left(xStr, Len(xStr) - 1)
        MsgBox "Hidden rows in active sheet are:" & xStr
    Else
        MsgBox "No rows hidden"
    End If
End Sub

3. Appuyez sur la touche F5 pour exécuter le code.

Ensuite, une boîte de dialogue Microsoft Excel apparaît pour vous montrer les lignes masquées dans la feuille de calcul actuelle comme indiqué dans la capture d'écran ci-dessous.

Remarque : Si aucune ligne masquée n'existe dans la plage sélectionnée ou la feuille de calcul, vous obtiendrez la boîte de dialogue comme indiqué dans la capture d'écran ci-dessous.

Articles connexes :

• Comment vérifier si le premier caractère dans une cellule est une lettre ou un chiffre dans Excel ?