Comment mettre en surbrillance un texte spécifique dans une cellule selon un autre texte ?
Dans Excel, il est assez simple de mettre en surbrillance des cellules selon un texte spécifique. Toutefois, ici, l’objectif est différent : il s’agit de mettre en évidence uniquement une partie précise du texte à l’intérieur d’une cellule — sans colorer toute la cellule — afin de la rendre plus visible. Cette nuance peut poser problème à beaucoup d’entre nous. Dans cet article, je vous présente quelques astuces efficaces pour réaliser cette tâche dans Excel.
Mettre en surbrillance un ou plusieurs textes spécifiques dans plusieurs cellules à l’aide d’un code VBA
Par exemple, j’ai une plage de chaînes de texte et je souhaite maintenant mettre en surbrillance le texte spécifique «Sky» dans ces cellules afin d’obtenir le résultat illustré dans les captures d’écran suivantes :
 |  |  |
Pour mettre en surbrillance une partie spécifique du texte dans une cellule, le code VBA suivant vous sera utile.
1. Sélectionnez les cellules dans lesquelles vous souhaitez mettre en surbrillance un texte spécifique, puis maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.
Code VBA : Mettre en surbrillance une partie du texte dans une cellule :
Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
cFnd = InputBox("Enter the text string to highlight")
y = Len(cFnd)
For Each Rng In Selection
With Rng
m = UBound(Split(Rng.Value, cFnd))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(Rng.Value, cFnd)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & cFnd
Next
End If
End With
Next Rng
Application.ScreenUpdating = True
End Sub
3. Appuyez ensuite sur la touche F5 pour exécuter ce code. Une boîte de dialogue s’ouvrira alors, vous invitant à saisir le texte que vous souhaitez mettre en surbrillance, comme illustré dans la capture d’écran :
4. Cliquez ensuite sur le bouton OK : tout le texte que vous avez spécifié sera mis en surbrillance uniquement à l’intérieur des cellules, comme le montre la capture d’écran :
| | |
Code VBA : Mettre en surbrillance plusieurs mots-clés dans des chaînes de texte :
Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
Dim xFNum As Integer
Dim xArrFnd As Variant
Dim xStr As String
cFnd = InputBox("Please enter the text, separate them by comma:")
If Len(cFnd) < 1 Then Exit Sub
xArrFnd = Split(cFnd, ",")
For Each Rng In Selection
With Rng
For xFNum = 0 To UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Split(Rng.Value, xStr))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(Rng.Value, xStr)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & xStr
Next
End If
Next xFNum
End With
Next Rng
Application.ScreenUpdating = True
End Sub
Ensuite, dans la boîte de dialogue qui s’ouvre, saisissez les mots-clés que vous souhaitez mettre en surbrillance (séparez les mots par une virgule), comme illustré dans la capture d’écran :
Cliquez ensuite sur le bouton OK, les mots spécifiés seront immédiatement mis en surbrillance, comme le montrent les captures d’écran :
| |  |
Remarque : Les codes ci-dessus sont sensibles à la casse.
Mettre en surbrillance un ou plusieurs textes spécifiques dans plusieurs cellules grâce à une fonctionnalité remarquable
Si vous n’êtes pas à l’aise avec le code dans Excel, découvrez un outil simple : Kutools pour Excel, dont la fonctionnalité Marquage des mots-clés vous permet de mettre en surbrillance simultanément un ou plusieurs mots-clés spécifiques directement dans les cellules.
Après avoir installé Kutools pour Excel, procédez comme suit :
1. Cliquez sur Kutools > Texte > Marquage des mots-clés, comme illustré dans la capture d’écran :
2. Dans la boîte de dialogue Marquage des mots-clés, effectuez les opérations suivantes :
- Sélectionnez la Plage de données que vous souhaitez utiliser dans la zone Plage;
- Sélectionnez les cellules contenant les mots-clés que vous souhaitez mettre en surbrillance, ou saisissez-les manuellement (séparés par des virgules) dans la zone Mot-clé
- Enfin, vous devez spécifier une couleur de police pour la mise en surbrillance du texte en cochant l’option Couleur de police des mots clés. (Pour colorer l’intégralité des cellules contenant les mots-clés, sélectionnez l’option)Couleur du contenu de la cellule.)
3. Cliquez ensuite sur le bouton Ok : tous les textes spécifiés seront mis en surbrillance, comme le montre la capture d’écran suivante :
Remarque : cette fonctionnalité ne tient pas compte de la casse. Si vous souhaitez mettre en surbrillance le texte en tenant compte de la casse, cochez l’option Respecter la casse dans la boîte de dialogue Marquage des mots-clés.
Mettre en surbrillance un texte spécifique dans une cellule en fonction d’un autre texte à l’aide d’un code VBA
Voici une autre situation : vous disposez de deux colonnes, la première contenant des chaînes de texte et la seconde un texte spécifique. Vous devez maintenant mettre en surbrillance, dans la première colonne, le texte correspondant à celui figurant dans la deuxième colonne, ligne par ligne.
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion>Module, puis collez le code suivant dans la fenêtre Module.
Code VBA : Mettre en surbrillance une partie du texte dans une cellule en fonction d’un autre texte :
Sub highlight()
'Updateby Extendoffice
Dim xStr As String
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim I As Long
Dim J As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "not support multiple columns"
GoTo LInput
End If
If xRg.Columns.Count <> 2 Then
MsgBox "the selected range can only contain two columns "
GoTo LInput
End If
For I = 0 To xRg.Rows.Count - 1
xStr = xRg.Range("B1").Offset(I, 0).Value
With xRg.Range("A1").Offset(I, 0)
.Font.ColorIndex = 1
For J = 1 To Len(.Text)
If Mid(.Text, J, Len(xStr)) = xStr Then .Characters(J, Len(xStr)).Font.ColorIndex = 3
Next
End With
Next I
End Sub
3. Après avoir collé le code, appuyez sur la touche F5 pour l’exécuter. Une boîte de dialogue s’ouvrira alors afin que vous puissiez sélectionner la plage de données contenant à la fois la chaîne de texte et le texte spécifique que vous souhaitez mettre en surbrillance et utiliser comme référence, comme illustré dans la capture d’écran :
4. Cliquez ensuite sur le bouton OK : tout le texte correspondant dans la première colonne, en fonction du texte spécifique de la deuxième colonne, sera alors coloré en rouge, comme le montre la capture d’écran suivante :
Articles connexes :
- Mettre en gras une partie du texte lors de la concaténation de deux colonnes dans Excel
- Dans une feuille Excel, après avoir concaténé deux valeurs de cellules à l’aide d’une formule, vous remarquerez qu’il est impossible de mettre en gras une partie du texte dans la cellule contenant cette formule. Cela peut parfois s’avérer frustrant. Comment faire pour appliquer un formatage en gras à une portion du texte lors de la concaténation de deux colonnes dans Excel ?
- Concaténer des colonnes de cellules tout en conservant la couleur du texte dans Excel
- Comme nous le savons tous, lors de la concaténation ou de la combinaison de colonnes de cellules en une seule colonne, la mise en forme des cellules (comme la Couleur de la police du texte, la mise en forme des nombres, etc.) est perdue. Dans cet article, je vais vous présenter quelques astuces pour combiner les colonnes de cellules en une seule tout en conservant la couleur du texte aussi facilement que possible dans Excel.
- Afficher un texte spécifique Basé sur la valeur dans une autre colonne
- Supposons que j’aie une liste de nombres et que je souhaite afficher un texte spécifique dans une autre colonne en fonction des valeurs de cette colonne. Par exemple, si le nombre de la cellule se situe entre 1-100, je veux que le texte « Decrease » s’affiche dans la cellule adjacente ; si le nombre est compris entre 101-200, le texte « Stable » doit s’afficher ; et si le nombre est supérieur à 200, le texte « Increase » doit apparaître, comme illustré dans la capture d’écran suivante. Pour résoudre cette tâche dans Excel, les formules présentées dans cet article peuvent vous aider.
- Additionner des cellules contenant Diviser par texte et nombre dans Excel
- Par exemple, j’ai une liste de valeurs comprenant à la fois des chaînes numériques et du texte. Je souhaite maintenant additionner uniquement les nombres associés à un même libellé textuel, comme illustré dans la capture d’écran ci-dessous. En temps normal, il n’est pas possible d’additionner directement les valeurs d’une telle liste mélangée. Je vais donc vous présenter quelques formules efficaces pour accomplir cette tâche.
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