Comment rechercher tous les textes soulignés dans une plage ou dans une feuille de calcul entière sous Excel ?
Supposons que vous disposiez d’une plage de données dans une feuille de calcul, dont certaines sont soulignées, et que vous souhaitiez désormais identifier ces données soulignées. Comment les repérer rapidement ? Je vous présente ici quelques astuces pour trouver facilement les textes soulignés dans une plage ou une feuille de calcul entière dans Excel.
Rechercher tous les textes soulignés dans une feuille de calcul à l’aide de VBA
Rechercher tous les textes soulignés dans une plage ou une feuille de calcul avec Kutools pour Excel 
Rechercher tous les textes soulignés dans une feuille de calcul à l’aide de VBA
Dans Excel, la fonction « Atteindre spécial » ne permet pas de rechercher les textes soulignés. Je vous propose donc un code VBA pour identifier facilement tous les textes soulignés dans une feuille de calcul.
1. Appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications, puis cliquez sur Insertion > Module.
2. Dans la fenêtre Module qui s’ouvre, collez le code VBA ci-dessous.
VBA : Rechercher tous les textes soulignés 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 s’ouvre alors pour vous permettre de sélectionner une plage dans laquelle rechercher les textes soulignés.
4. Cliquez sur OK, puis une autre boîte de dialogue s’affiche pour vous indiquer quelles cellules contiennent des textes soulignés d’un trait simple et lesquelles en contiennent d’un trait double.
Si vous souhaitez rechercher uniquement un type spécifique de texte souligné dans une plage donnée, ce code VBA ne vous sera pas utile. Toutefois, l’outil pratique présenté ci-dessous vous permettra de résoudre cette tâche avec facilité dans ce cas précis.
Rechercher tous les textes soulignés dans une plage ou une feuille de calcul avec Kutools pour Excel
Si vous avez Kutools pour Excel installé, vous pouvez utiliser l’utilitaire Sélectionner les cellules avec un format similaire afin de repérer rapidement les textes soulignés dans une plage ou une feuille de calcul entière.
Après avoir installé gratuitementKutools pour Excel, procédez comme suit :
1. Sélectionnez une cellule vide, saisissez-y une donnée (par exemple A1), puis cliquez sur Accueil > Souligné et choisissez le type de soulignement souhaité. Voir la capture d’écran :
2. Sélectionnez ensuite la plage dans laquelle vous souhaitez rechercher les textes soulignés spécifiques, puis cliquez sur Kutools > Sélectionner > Sélectionner les cellules avec un format similaire. Voir la capture d’écran :
3. Dans la boîte de dialogue Sélectionner les cellules avec un format similaire, cliquez sur Sélectionner le format à partir de la cellule pour choisir la cellule que vous avez mise en forme avec un soulignement à l’étape 1. Voir la capture d’écran :
4. Cliquez sur OK, puis, dans la boîte de dialogue Sélectionner les cellules avec un format similaire, cochez uniquement l’option Souligné. Voir la capture d’écran :
5. Cliquez sur OK, puis une boîte de dialogue s’affiche pour vous indiquer combien de textes soulignés ont été sélectionnés ; cliquez sur Oui pour la fermer.
Tous les textes soulignés sont désormais sélectionnés.
Conseils :
1. Si vous souhaitez rechercher tous les textes soulignés dans une feuille de calcul entière, cliquez sur le coin supérieur gauche de la feuille pour tout sélectionner, puis utilisez l’outil Sélectionner les cellules avec un format similaire.
2. Cochez l’option Ignorer les cellules vides dans la boîte de dialogue Sélectionner les cellules avec un format similaire, ce qui permet d’ignorer les cellules vides, même si celles-ci sont formatées avec un soulignement.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez 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 vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels