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 Sub3. 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.
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification 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é de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels