Note: The other languages of the website are Google-translated. Back to English

Comment colorer ou mettre en évidence certains mots dans des cellules dans Excel?

Si une cellule contient plusieurs mots, comment pouvez-vous mettre en surbrillance un certain mot uniquement dans cette cellule? Et que diriez-vous de mettre en évidence ce mot dans plusieurs cellules? Cet article fournira une méthode pour y parvenir.

Colorez certains mots dans une seule cellule / plusieurs cellules avec le code VBA


Colorez certains mots dans une seule cellule / plusieurs cellules avec le code VBA

Le code VBA suivant peut vous aider à mettre en évidence le certain mot dans une sélection. Veuillez faire comme suit.

1. Sélectionnez la plage contenant les cellules dans lesquelles vous souhaitez mettre en évidence certains mots. Appuyez ensuite sur le autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Dans l'ouverture Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Ensuite, copiez et collez le code VBA dans la fenêtre Code.

Code VBA: colorer certains mots dans les cellules dans Excel

Sub HighlightStrings()
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight:", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Application.ScreenUpdating = True
End Sub

3. appuie sur le F5 clé pour exécuter le code. Et dans le Kutools pour Excel boîte de dialogue, veuillez entrer le mot que vous mettrez en évidence dans les cellules, puis cliquez sur le OK bouton. Voir la capture d'écran:

Ensuite, vous pouvez voir que tous les mots que vous avez spécifiés sont colorés en rouge dans les cellules sélectionnées immédiatement comme illustré ci-dessous.


Articles Liés:


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer 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 réduit des centaines de clics de souris chaque jour!
bas de cabine
Commentaires (15)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Vous n'expliquez pas comment ouvrir la "boîte de dialogue Kutools for Excel" mentionnée à la dernière étape.
Ce commentaire a été minimisé par le modérateur sur le site
Cher Justin,
Désolé pour ça. Après avoir collé le code VBA dans la fenêtre Code, appuyez sur la touche F5 pour exécuter le code, puis la boîte de dialogue "Kutools for Excel" s'ouvrira. Merci.
Ce commentaire a été minimisé par le modérateur sur le site
Existe-t-il un moyen de faire en sorte que le code mette automatiquement en évidence les mots lorsque je modifie les onglets ?
Ce commentaire a été minimisé par le modérateur sur le site
Hi,
Désolé, je ne peux pas vous aider. Merci pour votre commentaire.
Ce commentaire a été minimisé par le modérateur sur le site
MERCI, MERCI, MERCI
Ce commentaire a été minimisé par le modérateur sur le site
Quisisera resaltar varias palabras al tiempo, como lo puedo hacer ?
Ce commentaire a été minimisé par le modérateur sur le site
Eso es lo que estoy tratando de hacer tamiben (C'est ce que j'essaye de faire aussi)
Ce commentaire a été minimisé par le modérateur sur le site
Si vous préférez que la recherche/surbrillance soit insensible à la casse, remplacez la ligne 'xArr = Split(xCell.Value, xHStr)' par 'xArr = Split(LCase(xCell.Value), LCase(xHStr))'. De plus, j'ai noté que le fait d'appuyer sur F5 n'exécute pas le script (mais donne à la place une autre fenêtre modale). J'y ai accédé en activant l'onglet Développeur à l'aide des options Excel (Personnaliser le ruban) et en cliquant ensuite sur Macros.
Ce commentaire a été minimisé par le modérateur sur le site
Merci, ceci était vraiment utile! Existe-t-il un moyen d'ajuster la macro afin qu'elle ne mette en évidence que des mots entiers au lieu de partiels. Par exemple, j'essaie de mettre en évidence le mot "design" mais il met en évidence le "design" dans le mot "designate". Je veux qu'il saute ce mot si ce n'est pas le mot entier. Merci!
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
Est-il possible de supprimer la boite de dialogue et de mettre par défaut "apple" comme mot recherché ?
Merci
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour PAUC,
Le code suivant peut vous rendre service. Veuillez essayer.
Sub HighlightStrings()
'Updated by Extendoffice 20220721
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = "apple"
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Application.ScreenUpdating = True
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
bon

Coloreaza cuvantul doar daca e la inceput. Daca e la mijloc in aceeasi casuta de excel sau la sfarsit nu-l coloreaza.
Ce anume as putea schimba in cod pentru al colora indiferent unde se afla in casuta excel?

Merci!
Ce commentaire a été minimisé par le modérateur sur le site
Salut Andreea,
Si vous souhaitez uniquement mettre en surbrillance le mot s'il se trouve au début des cellules sélectionnées. Le code VBA suivant peut vous rendre service. Veuillez essayer.
Sub HighlightStrings()
'Updated by Extendoffice 20220805
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight:", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            If xHStrLen <= Len(xCell.Value) Then
                If xHStr = Left(xCell.Value, xHStrLen) Then
                    xCell.Characters(1, xHStrLen).Font.ColorIndex = 3
                End If
            End If
        Next
    Application.ScreenUpdating = True
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
a me servirebbe evidenziare tutti i numeri (comprensivi di due decimali) da -10,00 a 0 in rosso e da 0 a +10,00 in verde. come posso fare per non aggiungere singolarmente ogni dato senza aggiungerli tutti manualmente ?

merci beaucoup
Ce commentaire a été minimisé par le modérateur sur le site
Salut Ciao,
Vos numéros sont-ils situés dans différentes cellules d'une plage ? Si c'est le cas, vous pouvez créer deux règles de mise en forme conditionnelle (entre -10 et 0, entre 0 et 10) pour mettre en évidence ces nombres. Sinon, pouvez-vous télécharger une capture d'écran de vos données ?
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés