XL 2016 Colorier une lettre, un mot ou une phrase en entier

C

cd95

XLDnaute Occasionnel
Bonjour,

J’ai trouvé la solution à mon premier problème à pouvoir colorier que la lettre ou le mot recherché mais pas les mêmes lettres qui composent ce même mot mais qui sont rattachées à une autre chaîne (voir l’exemple dans la pièce jointe)

Maintenant mon deuxième problème c’est de pouvoir faire la même chose mais avec une phrase en entier car le code fonctionne correctement pour chercher un mot, même une lettre d’ailleurs c’est ce que je veux mais ne fonctionne pas pour une phrase entière (on peut chercher la phrase à partir de son deuxième mot ou le troisième mais pas toute la phrase en entier !!!).

Si je veux chercher « tata et toto vont chercher toto1 à l'école » en entier ça ne fonctionne pas.
Si je veux chercher « et toto vont chercher toto1 à l'école » ça fonctionne correctement.

Pourriez-vous m’aider SVP à résoudre ce problème et merci d’avance.
 

Pièces jointes

  • Colorier un mot ou une phrase.xlsm
    894.7 KB · Affichages: 6
Trier par date Trier par votes
patricktoulon

patricktoulon

XLDnaute Barbatruc
heu
bonjour
tu devrais faire attention a ce que tu fait
Capture.JPG
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
VB: 
Option Explicit

Sub test()
    colorier Selection, Application.InputBox("Quelle est la chaîne à mettre en évidence:", "Recherche:", , , , , , 2)    '"toto"
End Sub

Sub colorier(xplage As Range, xmot)
    Dim xCell As Range, i&
    Application.ScreenUpdating = False
    xplage.Font.ColorIndex = xlColorIndexAutomatic
    For Each xCell In Selection    'xplage
        For i = 1 To Len(xCell.Text)
            If Mid(" " & xCell.Text & " ", i, Len(xmot) + 2) Like " " & xmot & " " Then
                xCell.Characters(i, Len(xmot)).Font.Color = RGB(255, 0, 0)
            i = i + Len(xmot)
            End If
     Next
    Next
End Sub
 
Vote positif 0 Vote négatif
C

cd95

XLDnaute Occasionnel
patricktoulon à dit:
re
VB: 
Option Explicit

Sub test()
    colorier Selection, Application.InputBox("Quelle est la chaîne à mettre en évidence:", "Recherche:", , , , , , 2)    '"toto"
End Sub

Sub colorier(xplage As Range, xmot)
    Dim xCell As Range, i&
    Application.ScreenUpdating = False
    xplage.Font.ColorIndex = xlColorIndexAutomatic
    For Each xCell In Selection    'xplage
        For i = 1 To Len(xCell.Text)
            If Mid(" " & xCell.Text & " ", i, Len(xmot) + 2) Like " " & xmot & " " Then
                xCell.Characters(i, Len(xmot)).Font.Color = RGB(255, 0, 0)
            i = i + Len(xmot)
            End If
     Next
    Next
End Sub
Cliquez pour agrandir...
Génial ça fonctionne à merveille. Mille merci

Je ne veux pas abuser de votre gentillesse mais pourriez-vous me donner une autre solution pour trouver les mêmes mots même qui sont collés à une virgule ou un point ou un signe quelconque.

(« tata et toto vont chercher toto1 à l'école de toto. »)
(« tata et toto vont chercher toto1 à l'école de toto, »)

J’ai trouvé une solution de genre :

If Right(txt, 1) = "." Or Right(txt, 1) = "," Or Right(txt, 1) = ";" Then txt = Left(txt, Len(txt) - 1)

If Right(txt, 1) = ":" Or Right(txt, 1) = "!" Or Right(txt, 1) = "?" Then txt = Left(txt, Len(txt) - 1)

If Right(txt, 1) = ")" Or Right(txt, 1) = "-" Or Right(txt, 1) = "]" Then txt = Left(txt, Len(txt) - 1)

If Right(txt, 1) = """" Or Right(txt, 1) = "'" Or Right(txt, 1) = "_" Then txt = Left(txt, Len(txt) - 1)

Mais je ne sais pas comment l’intégrer dans le code.
 
Vote positif 0 Vote négatif
C

cd95

XLDnaute Occasionnel
cd95 à dit:
Génial ça fonctionne à merveille. Mille merci

Je ne veux pas abuser de votre gentillesse mais pourriez-vous me donner une autre solution pour trouver les mêmes mots même qui sont collés à une virgule ou un point ou un signe quelconque.

(« tata et toto vont chercher toto1 à l'école de toto. »)
(« tata et toto vont chercher toto1 à l'école de toto, »)

J’ai trouvé une solution de genre :

If Right(txt, 1) = "." Or Right(txt, 1) = "," Or Right(txt, 1) = ";" Then txt = Left(txt, Len(txt) - 1)

If Right(txt, 1) = ":" Or Right(txt, 1) = "!" Or Right(txt, 1) = "?" Then txt = Left(txt, Len(txt) - 1)

If Right(txt, 1) = ")" Or Right(txt, 1) = "-" Or Right(txt, 1) = "]" Then txt = Left(txt, Len(txt) - 1)

If Right(txt, 1) = """" Or Right(txt, 1) = "'" Or Right(txt, 1) = "_" Then txt = Left(txt, Len(txt) - 1)

Mais je ne sais pas comment l’intégrer dans le code.
Cliquez pour agrandir...
Voici le fichier dont je vous ai parlé
 

Pièces jointes

  • Colorier que le mot recherché dans une phrase - V2 - Copie (2).xlsm
    31.3 KB · Affichages: 1
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
VB: 
Option Explicit

Sub test()
    Dim mot_phrase$
    mot_phrase = Application.InputBox("Quelle est la chaîne à mettre en évidence:", "Recherche:", , , , , , 2)
    'appel de la sub
    'colorier Selection , recherche , ce qu'on veut avant , ce  qu'on veut apres
    colorier Selection, mot_phrase, ".", ","
End Sub

Sub colorier(xplage As Range, xmot, Optional devant As String = "", Optional apres As String = "")
    Dim xCell As Range, i&
    If devant = "" Then devant = " "
    If apres = "" Then apres = " "
    Application.ScreenUpdating = False
    xplage.Font.ColorIndex = xlColorIndexAutomatic
    For Each xCell In Selection    'xplage
        For i = 1 To Len(xCell.Text)
            If Mid(devant & xCell.Text & apres, i, Len(xmot)) Like xmot Then
                xCell.Characters(i - 1, Len(xmot) + 1).Font.Color = RGB(255, 0, 0)
                i = i + Len(xmot)
            End If
        Next
    Next
End Sub
 
Vote positif 0 Vote négatif
C

cd95

XLDnaute Occasionnel
patricktoulon à dit:
re
VB: 
Option Explicit

Sub test()
    Dim mot_phrase$
    mot_phrase = Application.InputBox("Quelle est la chaîne à mettre en évidence:", "Recherche:", , , , , , 2)
    'appel de la sub
    'colorier Selection , recherche , ce qu'on veut avant , ce  qu'on veut apres
    colorier Selection, mot_phrase, ".", ","
End Sub

Sub colorier(xplage As Range, xmot, Optional devant As String = "", Optional apres As String = "")
    Dim xCell As Range, i&
    If devant = "" Then devant = " "
    If apres = "" Then apres = " "
    Application.ScreenUpdating = False
    xplage.Font.ColorIndex = xlColorIndexAutomatic
    For Each xCell In Selection    'xplage
        For i = 1 To Len(xCell.Text)
            If Mid(devant & xCell.Text & apres, i, Len(xmot)) Like xmot Then
                xCell.Characters(i - 1, Len(xmot) + 1).Font.Color = RGB(255, 0, 0)
                i = i + Len(xmot)
            End If
        Next
    Next
End Sub
Cliquez pour agrandir...
Merci pour votre effort mais ce n’est pas exactement ce que je voulais. Je vous ai envoyé un fichier 2mn avant que vous m’envoyer le vôtre. En fait je veux la même chose mais dans une Application.InputBox.
 

Pièces jointes

  • Colorier que le mot recherché dans une phrase - V2 - Copie (2).xlsm
    31.3 KB · Affichages: 2
  • Colorier un mot ou une phrase.xlsm
    895.3 KB · Affichages: 3
Vote positif 0 Vote négatif
C

cd95

XLDnaute Occasionnel
patricktoulon à dit:
re
VB: 
Option Explicit

Sub test()
    Dim mot_phrase$
    mot_phrase = Application.InputBox("Quelle est la chaîne à mettre en évidence:", "Recherche:", , , , , , 2)
    'appel de la sub
    'colorier Selection , recherche , ce qu'on veut avant , ce  qu'on veut apres
    colorier Selection, mot_phrase, ".", ","
End Sub

Sub colorier(xplage As Range, xmot, Optional devant As String = "", Optional apres As String = "")
    Dim xCell As Range, i&
    If devant = "" Then devant = " "
    If apres = "" Then apres = " "
    Application.ScreenUpdating = False
    xplage.Font.ColorIndex = xlColorIndexAutomatic
    For Each xCell In Selection    'xplage
        For i = 1 To Len(xCell.Text)
            If Mid(devant & xCell.Text & apres, i, Len(xmot)) Like xmot Then
                xCell.Characters(i - 1, Len(xmot) + 1).Font.Color = RGB(255, 0, 0)
                i = i + Len(xmot)
            End If
        Next
    Next
End Sub
Cliquez pour agrandir...
En fait votre premier tableau ça me va à merveille est c’est la solution idéale. Juste si on peut rajouter l’option que je vous ai demandé à savoir colorier les mêmes mots recherchés mais qui sont collés à un point à la fin d’une phrase ou collés à une virgule au milieu d’une autre phrase. (voir en dessous le résultat attendu en gras si je cherche que le mot: toto)

(« tata et toto vont chercher toto1 à l'école de toto. »)

(« tata et toto, vont chercher toto1 à l'école de toto. »)
 
Vote positif 0 Vote négatif

Discussions similaires

M
  • Question
XL 2019 Mise en Forme Conditionnelle d'une plage si une cellule contient un mot défini
Réponses
4
Affichages
791
mapomme
mapomme
Sellig
  • Résolu(e)
XL 2019 Créer un lien Hypertexte ancré à un mot sur une autre feuille
Réponses
8
Affichages
336
sylvanu
sylvanu
M
  • Question
Microsoft 365 Appliquer une formule à un autre cas
Réponses
12
Affichages
469
moanin
M
J
  • Question
Microsoft 365 Modification de lettre via une mise en forme conditionnelle
Réponses
6
Affichages
421
jeannot59
J
L
  • Question
Microsoft 365 Comment trouver un mot d'une liste dans une phrase sur excel ?
Réponses
10
Affichages
1 K
bsalv
B
Y
  • Résolu(e)
XL 2013 Colorier une cellule en fonction d'une valeur
Réponses
3
Affichages
558
Yvan1
Y
D
  • Question
XL pour MAC compter les cellules contenant une lettre ou un mot identique
Réponses
4
Affichages
587
Delorme
D
T
  • Résolu(e)
Microsoft 365 Chercher si dans une plage de cellule la valeur d'une autre cellule est présente
Réponses
4
Affichages
274
TomJoad
T
Z
  • Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
303
zendb
Z
I
  • Question
XL 2019 Suite à une formule, enlever le doublon dans le résultat avec fonction SI
Réponses
2
Affichages
348
IderMTC
I

Membres actuellement en ligne

14 membres et 148 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 120
Messages
2 116 443
Membres
112 745
dernier inscrit
mcanas