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

Comment mettre en évidence un texte spécifique dans une cellule en fonction d'un autre texte?

Dans Excel, il peut être facile pour nous de mettre en évidence les cellules en fonction d'un texte spécifique, mais, ici, je souhaite mettre en évidence un texte spécifique dans une cellule pour le rendre exceptionnel, mais pas la cellule entière. C'est peut-être un problème pour la plupart d'entre nous. Cet article, je vais parler de quelques astuces pour résoudre ce travail dans Excel.


Mettez en surbrillance un ou plusieurs textes spécifiques dans plusieurs cellules avec le code VBA

Par exemple, j'ai une plage de chaînes de texte, et maintenant, je veux mettre en évidence le texte spécifique "Sky»Dans ces cellules pour obtenir le résultat comme les captures d'écran suivantes:

Pour ne mettre en évidence qu'une partie du texte dans une cellule, le code VBA suivant peut vous aider.

1. Sélectionnez les cellules dans lesquelles vous souhaitez mettre en surbrillance le texte spécifique, puis maintenez la touche ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: mettez en surbrillance une partie de 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. Puis appuyez F5 pour exécuter ce code, et une boîte de dialogue apparaîtra pour vous rappeler d'entrer le texte que vous souhaitez mettre en surbrillance uniquement, voir capture d'écran:

4. Et puis cliquez OK bouton, tout le texte que vous avez spécifié a été mis en surbrillance uniquement dans les cellules, voir capture d'écran:

Conseils: Si vous devez mettre en évidence plusieurs mots-clés à partir des chaînes de texte, veuillez appliquer le code ci-dessous:
Code VBA: mettez en surbrillance plusieurs mots-clés à partir de 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 zone pop-out, veuillez entrer les mots-clés que vous souhaitez mettre en évidence, (séparez les mots par une virgule), voir capture d'écran:

Et puis, cliquez OK bouton, les mots spécifiés ont été mis en surbrillance à la fois, voir les captures d'écran:

Notes: Les codes ci-dessus sont sensibles à la casse.


Mettez en surbrillance un ou plusieurs textes spécifiques dans plusieurs cellules avec une fonctionnalité étonnante

Si vous n'êtes pas familier avec le code dans Excel, ici, je vais vous présenter un outil simple - Kutools pour Excel, Avec son Marquer le mot-clé , vous pouvez mettre en évidence un ou plusieurs mots-clés spécifiques à la fois dans les cellules.

Remarque :Pour appliquer ces Marquer le mot-clé fonctionnalités, tout d'abord, vous devez télécharger le Kutools pour Excel, puis appliquez les fonctionnalités rapidement et facilement.

Après l'installation de Kutools pour Excel, procédez comme suit:

1Cliquez sur Kutools > Texte > Marquer le mot-clé, voir capture d'écran:

2. Dans le Marquer le mot-clé boîte de dialogue, veuillez effectuer les opérations suivantes:

  • Sélectionnez la plage de données que vous souhaitez utiliser dans le Autonomie zone de texte;
  • Sélectionnez les cellules contenant les mots-clés que vous souhaitez mettre en évidence, vous pouvez également entrer les mots-clés manuellement (séparés par une virgule) dans le Mots-clés zone de texte
  • Enfin, vous devez spécifier une couleur de police pour mettre en évidence les textes par chèque Marquer les couleurs des mots clés option. (Pour colorer les cellules entières contenant les mots-clés, sélectionnez le Marquer les couleurs du contenu de la cellule option)

3. Puis clique Ok bouton, tous les textes spécifiés ont été mis en évidence comme ci-dessous la capture d'écran montrée:

Notes: Cette fonctionnalité n'est pas sensible à la casse, si vous souhaitez mettre en évidence le texte avec la casse, veuillez vérifier casse à l' Marquer le mot-clé boite de dialogue.


Mettez en surbrillance un texte spécifique dans une cellule en fonction d'un autre texte avec le code VBA

Voici une autre situation, j'ai deux colonnes dont la première colonne contient les chaînes de texte et la deuxième colonne est le texte spécifique, maintenant, je dois mettre en évidence le texte relatif dans la première colonne en fonction du texte spécifique dans la deuxième colonne pour chaque rangée.

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: mettez en surbrillance une partie de 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 F5 clé pour l'exécuter, une boîte de dialogue apparaîtra pour vous rappeler de sélectionner la plage de données qui contient à la fois la chaîne de texte et le texte spécifique que vous souhaitez mettre en surbrillance et basé sur, voir capture d'écran:

4. Et puis cliquez OK bouton, tout le texte correspondant dans la première colonne basé sur le texte spécifique dans la deuxième colonne a été coloré en rouge comme capture d'écran suivante:


Articles plus relatifs:

  • Texte de pièce en gras lors de la concaténation de deux colonnes dans Excel
  • Dans la feuille de calcul Excel, après avoir concaténé deux valeurs de cellule avec des formules, vous constaterez peut-être que la partie du texte dans la cellule de formule combinée ne sera pas en gras. Cela peut parfois être ennuyeux, comment pouvez-vous faire une partie du texte en gras lors de la concaténation de deux colonnes dans Excel?
  • Concaténer les colonnes de cellules et conserver 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, le formatage des cellules (tel que la couleur de la police du texte, le formatage des nombres, etc.) sera perdu. Cet article, je vais vous présenter quelques astuces pour combiner les colonnes de cellules en une seule et conserver la couleur du texte aussi facilement que possible dans Excel.
  • Afficher un texte spécifique en fonction des valeurs d'une autre colonne
  • En supposant que j'ai une liste de nombres, maintenant, je veux afficher un texte spécifique dans une autre colonne en fonction de ces numéros de colonne. Par exemple, si le numéro de cellule est compris entre 1 et 100, je souhaite que le texte «Diminuer» s'affiche dans la cellule adjacente, si le nombre est compris entre 101 et 200, un texte «Stable» s'affiche et si le nombre est supérieur à 200 , un texte «Augmenter» s'affiche comme la capture d'écran suivante. Pour résoudre cette tâche dans Excel, les formules suivantes de cet article peuvent vous aider.
  • Somme des cellules avec du texte et des nombres dans Excel
  • Par exemple, j'ai une liste de valeurs contenant des chaînes numériques et textuelles, maintenant, je veux additionner uniquement les nombres basés sur le même texte, regardez la capture d'écran suivante. Normalement, vous ne pouvez pas additionner directement les valeurs de la liste avec une chaîne de texte, ici, je vais vous présenter quelques formules pour gérer cette tâche.

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 (39)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup pour votre astuce et vos macros. Je ne peux pas imaginer ce que je ferais sans eux.
Ce commentaire a été minimisé par le modérateur sur le site
J'ai vérifié les deux codes donnés dans Excel 2016 mais cela ne fonctionne pas.
Ce commentaire a été minimisé par le modérateur sur le site
J'ai utilisé Excel365. Le premier VBA ne fonctionne pas. Le deuxième ne peut pas mettre en surbrillance les mots-clés corrects, c'est-à-dire qu'ils ne fonctionnent pas trop
Ce commentaire a été minimisé par le modérateur sur le site
Je vous remercie!!!
Ce commentaire a été minimisé par le modérateur sur le site
J'obtiens une erreur et lorsque je débogue, cette section est mise en surbrillance m = UBound(Split(Rng.Value, cFnd))
Ce commentaire a été minimisé par le modérateur sur le site
Cela a très bien fonctionné pour moi, merci de partager cela avec le monde.
Ce commentaire a été minimisé par le modérateur sur le site
Quelqu'un peut-il m'aider pour un code pour "copier ces mots en surbrillance dans une colonne différente".
Ce commentaire a été minimisé par le modérateur sur le site
comment pourrais-je faire fonctionner ce code mais le mettre en surbrillance dans une couleur autre que le rouge?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
Si vous souhaitez surligner le texte avec une autre couleur, il vous suffit de changer le numéro d'index de couleur 3 en un autre numéro d'index de couleur dans le script ci-dessous :
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3

Essayez-le. Merci!
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
Avec la même macro, je veux mettre en évidence un autre texte avec la couleur différente ex : Vert, s'il vous plaît aidez-moi avec ça
Ce commentaire a été minimisé par le modérateur sur le site
Salut Sukumar,
Désolé, je ne peux pas résoudre votre problème.
Veuillez commenter ici si quelqu'un d'autre a la solution.
Merci !
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour "Mettre en surbrillance un texte spécifique dans plusieurs cellules avec le code VBA" Cela fonctionne très bien. Pourriez-vous s'il vous plaît expliquer:
ligne 18 xTmp = xTmp & Split(Rng.Value, cFnd)(x)
Pourquoi le "(x)" doit-il apparaître là où il se trouve ? La valeur de x est-elle transmise à la fonction Split en tant qu'argument nommé sans le nom ? J'aimerais vraiment comprendre ce concept. Merci pour votre aide et cette fonction. J'ai appris quelque chose que je ne savais pas.
Ce commentaire a été minimisé par le modérateur sur le site
salut, j'ai remarqué qu'il s'agit d'un surligneur sensible à la casse. Où puis-je changer qu'il mettrait en surbrillance les minuscules et les majuscules dans le mot souhaité
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, Lolster,

Dans les deux codes ci-dessus, quel code souhaitez-vous identifier sensible à la casse ?
Nous modifierons le code pour vous !
Ce commentaire a été minimisé par le modérateur sur le site
Salut, je voudrais poser la même question pour mettre en évidence à la fois les minuscules et les majuscules, dans le cas ci-dessous:

"trouver et marquer mot-clé1, mot-clé2 et mot-clé3 dans toutes les chaînes de texte, même lorsqu'une chaîne contient plus d'un de ces mots-clés (tous doivent être mis en surbrillance dans la chaîne de texte spécifique)"
Ce commentaire a été minimisé par le modérateur sur le site
Sous HighlightStrings()
Application.ScreenUpdating = Faux
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x aussi long
Dim m aussi longtemps
Dim et aussi longtemps
Dim xFNum en tant qu'entier
Dim xArrFnd As Variant
Dim xStr As String
cFnd = InputBox("Veuillez saisir le texte, séparez-les par une virgule :")
Si Len(cFnd) < 1 Alors Quitter Sub
xArrFnd = Split(cFnd, ",")
Pour chaque Rng dans la sélection
Avec Rng
Pour xFNum = 0 Vers UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Split(Rng.Value, xStr))
Si m > 0 Alors
xTmp = ""
Pour x = 0 À m - 1
xTmp = xTmp & Split(Rng.Value, xStr)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & xStr
Suivant
Si fin
XFNum suivant
Terminer par
Rang suivant
Application.ScreenUpdating = True
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Mahendra
Si vous souhaitez que le code ne soit pas sensible à la casse, veuillez appliquer le code ci-dessous :
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(UCase(cFnd), ",")
For Each Rng In Selection
With Rng
For xFNum = 0 To UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Split(UCase(Rng.Value), UCase(xStr)))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(UCase(Rng.Value), UCase(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


S'il vous plaît essayez, j'espère que cela peut vous aider!
Ce commentaire a été minimisé par le modérateur sur le site
Existe-t-il un moyen de créer le premier code VBA de manière à travailler avec une liste fixe de mots-clés sans boîte de dialogue? Par exemple, je souhaite toujours rechercher et marquer mot-clé1, mot-clé2 et mot-clé3 dans toutes les chaînes de texte, même lorsqu'une chaîne contient plusieurs de ces mots-clés (tous doivent être mis en surbrillance dans la chaîne de texte spécifique). Et est-il possible de rendre le mot-clé1 et le mot-clé2 rouges mais le troisième juste en gras ?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Arthur,

Pour mettre en surbrillance plusieurs mots-clés d'une cellule, le code vba suivant peut vous aider : (vous devez séparer les mots par un point-virgule dans la zone de saisie qui apparaît)

Sous HighlightStrings()
Application.ScreenUpdating = Faux
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x aussi long
Dim m aussi longtemps
Dim et aussi longtemps
Dim xFNum en tant qu'entier
Dim xArrFnd As Variant
Dim xStr As String
cFnd = InputBox("Veuillez saisir le texte, séparez-les par un point-virgule :")
Si Len(cFnd) < 1 Alors Quitter Sub
xArrFnd = Split(cFnd, ";")
Pour chaque Rng dans la sélection
Avec Rng
Pour xFNum = 0 Vers UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Split(Rng.Value, xStr))
Si m > 0 Alors
xTmp = ""
Pour x = 0 À m - 1
xTmp = xTmp & Split(Rng.Value, xStr)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & xStr
Suivant
Si fin
XFNum suivant
Terminer par
Rang suivant
Application.ScreenUpdating = True
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Skyyang ! J'ai trouvé qu'il y aurait une erreur si le code était exécuté - il ne pouvait pas spécifier le mot après deux points. Avez-vous une suggestion pour l'améliorer ? Merci beaucoup!
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour IvyCY,
Si vous souhaitez spécifier les mots par deux-points, il vous suffit de changer le symbole point-virgule en deux-points, veuillez appliquer le code suivant :

Sous HighlightStrings()
Application.ScreenUpdating = Faux
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x aussi long
Dim m aussi longtemps
Dim et aussi longtemps
Dim xFNum en tant qu'entier
Dim xArrFnd As Variant
Dim xStr As String
cFnd = InputBox("Veuillez saisir le texte, séparez-les par deux-points :")
Si Len(cFnd) < 1 Alors Quitter Sub
xArrFnd = Split(cFnd, ":")
Pour chaque Rng dans la sélection
Avec Rng
Pour xFNum = 0 Vers UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Split(Rng.Value, xStr))
Si m > 0 Alors
xTmp = ""
Pour x = 0 À m - 1
xTmp = xTmp & Split(Rng.Value, xStr)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & xStr
Suivant
Si fin
XFNum suivant
Terminer par
Rang suivant
Application.ScreenUpdating = True
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour votre réponse, skyyang!

Mais cela n'a toujours pas fonctionné.
Ma question était peut-être assez confuse. Un exemple peut le rendre plus clair.
Par exemple, l'un de mes mots clés est "protéger". Le texte dans les cellules peut s'afficher sous la forme « Nos façons de résoudre le problème : protection et blablabla... » Il peut y avoir des espaces entre « : » et « protection » car la mise en forme du texte n'est pas toujours la même. Ici, le mot-clé "protection" n'a pas pu être mis en évidence par les codes ci-dessus. C'est le problème.

J'ai essayé plusieurs fois mais j'ai échoué. J'ai aussi envisagé de supprimer la ponctuation dans les cellules, mais cela compromettrait la compréhension des textes. Alors j'ai posé la question. J'espère que ça ne vous dérange pas.

Merci beaucoup!

Cordialement!
Ce commentaire a été minimisé par le modérateur sur le site
Existe-t-il un moyen de supprimer tous ces mots en surbrillance ?
Ce commentaire a été minimisé par le modérateur sur le site
Salut, As,
Pour supprimer le texte basé sur une autre cellule de colonne, le code vba ci-dessous peut vous aider, veuillez l'essayer.
Sub DeleteStr()
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 aussi longtemps
On Error Resume Next
Si ActiveWindow.RangeSelection.Count > 1 Alors
xTxt = ActiveWindow.RangeSelection.AddressLocal
autre
xTxt = ActiveSheet.UsedRange.AddressLocal
Si fin
LEntrée :
Set xRg = Application.InputBox("veuillez sélectionner la plage de données :", "Kutools for Excel", xTxt, , , , , 8)
Si xRg n'est rien, quittez Sub
Si xRg.Areas.Count > 1 Alors
MsgBox "ne prend pas en charge plusieurs colonnes"
GoTo LInput
Si fin
Si xRg.Columns.Count <> 2 Alors
MsgBox "la plage sélectionnée ne peut contenir que deux colonnes"
GoTo LInput
Si fin
Pour i = 0 À xRg.Rows.Count - 1
xStr = xRg.Range("B1").Offset(i, 0).Value
Avec xRg.Range("A1").Offset(i, 0)
.Font.ColorIndex = 1
Pour J = 1 Vers Len(.Text)
Si Mid(.Text, J, Len(xStr)) = xStr Alors
.Caractères(J, Len(xStr)).Supprimer
Si fin
Suivant
Terminer par
Suivant i
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
HI
Je suis un visiteur régulier de votre site Web. Votre site web m'est très utile. Ce code change la couleur de la police. Je souhaite mettre en évidence des mots particuliers (par exemple Insérer, vide) sur fond jaune. Je veux souligner cela. Pas seulement une couleur de police. Continuez ce bon travail!!! Merci beaucoup.
Ce commentaire a été minimisé par le modérateur sur le site
Salut, Madhusudhanan,
Il n'y a peut-être aucun moyen direct de mettre en surbrillance une partie du texte dans une cellule avec une couleur d'arrière-plan dans la feuille de calcul Excel.
Si vous avez une autre bonne méthode, veuillez commenter ici.
Ce commentaire a été minimisé par le modérateur sur le site
J'obtiens une erreur d'exécution '13', incompatibilité de type lorsque j'exécute le script. Aucune suggestion?
Ce commentaire a été minimisé par le modérateur sur le site
J'ai eu le même problème; J'ai trouvé que l'une de mes colonnes était des formules et c'était en y cherchant ce qui déclenchait l'erreur 13. J'ai sélectionné une plage sans formule contenant le texte à mettre en surbrillance et cela a fonctionné.
Ce commentaire a été minimisé par le modérateur sur le site
Hi,
quelqu'un pourrait-il m'aider avec ce qui suit

mes cellules dans la colonne "G" contiennent le texte de la colonne Z à AN, pas obligatoire que la colonne g contienne tout le texte de Z à AN.

Mon travail ici consiste à surligner le texte dans la colonne G s'il n'est disponible dans aucune des colonnes Z - AN

Par exemple : La cellule G1 contient (Bonjour monsieur je vais bien) mais Le texte "Monsieur" n'existe pas dans la colonne "Z1" à "AN1"

Je dois donc mettre en surbrillance le texte "Monsieur"
Ce commentaire a été minimisé par le modérateur sur le site
Salut, quelqu'un m'aide. Je veux mettre en surbrillance le numéro spécifique dans la cellule dans la même phrase. pour Ex : " 2 days leave scansion " dans cette phrase veulent mettre en évidence le nombre.
Ce commentaire a été minimisé par le modérateur sur le site
Hi,
S'il vous plaît quelqu'un m'aider. Je veux mettre en évidence le numéro spécifique dans la même phrase. Par exemple : " 2 days leave scansion" veut surligner uniquement " 2 " dans la phrase.
Ce commentaire a été minimisé par le modérateur sur le site
Cela a été très utile, merci beaucoup !
Ce commentaire a été minimisé par le modérateur sur le site
Génial. Merci
Ce commentaire a été minimisé par le modérateur sur le site
Ouah! Merci!
Il n'y a pas encore de commentaires postés ici
TÉLÉCHARGER PLUS
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés