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

L
  • Question
Microsoft 365 Comment trouver un mot d'une liste dans une phrase sur excel ?
Réponses
10
Affichages
884
bsalv
B
D
  • Question
XL pour MAC compter les cellules contenant une lettre ou un mot identique
Réponses
4
Affichages
357
Delorme
D
A
  • Question
XL 2013 Liaisons de données externes avec un fichier contenant un mot de passe
Réponses
14
Affichages
516
Staple1600
Staple1600
F
  • Question
XL 2021 Initialisation UserForm par un bouton
Réponses
4
Affichages
357
Foot49
F
D
  • Résolu(e)
Microsoft 365 Retrouver dans une cellule un mot d'une liste et l'afficher
Réponses
5
Affichages
627
Phil69970
Phil69970
L
  • Question
XL 2016 Recherche de partie de mot dans les cellules d'un tableau et extractions des résultats
2
Réponses
29
Affichages
1 K
Lorenzini
L
G
  • Résolu(e)
XL 2019 Fermeture intempestive de formulaire
3 4 5
Réponses
64
Affichages
3 K
gbinforme
G
M
  • Résolu(e)
Microsoft 365 Somme de cellules comportant une lettre en fonction de la précédente
Réponses
10
Affichages
772
mini933
M
B
  • Question
XL 2019 Souci dans un programme
Réponses
1
Affichages
235
Bert505
B
BALANCIE
  • Question
XL 2019 Activer une deuxième macro à partir de la première.
Réponses
12
Affichages
432
BALANCIE
BALANCIE

Membres actuellement en ligne

7 membres et 116 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
312 202
Messages
2 086 177
Membres
103 152
dernier inscrit
Karibu