Comment trouver tous les textes soulignés dans une plage ou une feuille de calcul entière dans Excel ?

Supposons que vous ayez une plage de données dans une feuille de calcul, et que certaines de ces données soient soulignées. Maintenant, vous souhaitez identifier ces données soulignées, comment pouvez-vous les trouver rapidement ? Voici quelques astuces pour vous aider à repérer rapidement les textes soulignés dans une plage ou une feuille de calcul entière dans Excel.

Trouver tous les textes soulignés dans une feuille de calcul avec VBA

Trouver tous les textes soulignés dans une plage ou une feuille de calcul avec Kutools pour Excel

Trouver tous les textes soulignés dans une feuille de calcul avec VBA

Dans Excel, vous ne pouvez pas utiliser la fonction Atteindre spécial pour trouver les textes soulignés, alors je vais vous présenter un code VBA pour vous aider à trouver tous les textes soulignés dans une feuille de calcul.

1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications, puis cliquez sur Insérer > Module.

2. Dans la fenêtre Module qui s'affiche, collez le code VBA ci-dessous.

VBA : Trouver tout le texte souligné dans une feuille de calcul.

Sub SearchForUnderline()
'Updateby20150910
    Dim Rg As Range, Rg1 As Range
    Dim I As Long
    Dim xAddress As String, xAddress1 As String, xAddress2 As String
    Dim Result As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("Please select a range:", "Kutools for Excel", xAddress, , , , , 8)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Application.Intersect(Rg, Application.ActiveSheet.UsedRange)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Rg.SpecialCells(xlCellTypeConstants)
    If Rg Is Nothing Then Exit Sub
    For Each Rg1 In Rg
        For I = 1 To Len(Rg1)
            If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleSingle Then
                If xAddress1 = "" Then
                    xAddress1 = Rg1.Address
                Else
                    xAddress1 = xAddress1 & ", " & Rg1.Address
                End If
                Exit For
            End If
        Next
        For I = 1 To Len(Rg1)
            If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleDouble Then
                If xAddress2 = "" Then
                    xAddress2 = Rg1.Address
                Else
                    xAddress2 = xAddress2 & ", " & Rg1.Address
                End If
                Exit For
            End If
        Next
    Next
    If xAddress1 <> "" Then Result = "Single underline address:" & vbCr & xAddress1 & vbCr & vbCr
    If xAddress2 <> "" Then Result = Result & "Double underline address:" & vbCr & xAddress2
    If Result <> "" Then MsgBox Result
End Sub

3. Cliquez sur le bouton Exécuter ou appuyez sur la touche F5. Une boîte de dialogue apparaît pour sélectionner une plage afin de rechercher les textes soulignés.

4. Cliquez sur OK, puis une boîte de dialogue apparaîtra pour vous indiquer quelles cellules contiennent des textes soulignés simples et lesquelles contiennent des textes soulignés doubles.

Si vous souhaitez uniquement trouver un type spécifique de texte souligné dans une plage donnée, ce code VBA ne pourra pas vous aider, mais vous pouvez utiliser l'outil pratique ci-dessous pour résoudre cette tâche dans ce cas précis.

Trouver tous les textes soulignés dans une plage ou une feuille de calcul avec Kutools pour Excel

Si vous avez installé Kutools pour Excel, vous pouvez appliquer l'utilitaire Sélectionner les cellules avec un format pour trouver rapidement les textes soulignés dans une plage ou une feuille de calcul entière.

Après avoir installé gratuitement Kutools pour Excel, veuillez procéder comme suit :

1. Sélectionnez une cellule vide, puis saisissez-y une donnée, par exemple A1, et cliquez sur Accueil > Souligner, puis sélectionnez un type de soulignement dont vous avez besoin. Voir capture d'écran :

2. Ensuite, sélectionnez la plage où vous souhaitez trouver les textes soulignés spécifiques, et cliquez sur Kutools > Sélectionner > Sélectionner les cellules avec un format. Voir capture d'écran :

3. Dans la boîte de dialogue Sélectionner les cellules avec un format, cliquez sur Sélectionner le format à partir de la cellule pour sélectionner la cellule que vous avez formatée avec un soulignement à l'étape 1. Voir capture d'écran :

4. Cliquez sur OK, puis dans la boîte de dialogue Sélectionner les cellules avec un format, cochez uniquement Souligner. Voir capture d'écran :

5. Cliquez sur OK, puis une boîte de dialogue apparaît pour vous informer combien de textes soulignés ont été sélectionnés, cliquez sur Oui pour la fermer.

Maintenant, tous les textes soulignés sont sélectionnés.

Conseils :

1. Si vous souhaitez trouver tous les textes soulignés dans une feuille de calcul entière, cliquez sur le coin supérieur gauche de la feuille de calcul pour sélectionner toute la feuille, puis appliquez l'utilitaire Sélectionner les cellules avec un format.

2. Cochez Ignorer les cellules vides dans la boîte de dialogue Sélectionner les cellules avec un format, cela ignorera les cellules vides même si elles sont formatées avec un soulignement.