Autres Mise en surbrillance, un mot dans un texte

[VIARD]

Bonjours à toutes et tous

Cadeau de nouvel an, pour changer un peu des tableaux.
Mettre un mot en valeur dans un texte, poème poésie ou autres
Surbrillance de rimes de type AABB etc.
Tout se trouve expliqué dans l'user.
Si cela peut-être utile.
Bonne année à tous de santé
Amicalement

Jean-Paul

 

[Lolote83]

Salut VIARD.
Juste avant de faire la fête ce soir.
Voici un exemple non intégré dans ton formulaire
@+ Lolote83

 

[VIARD]

Salut @Lolote83

Et tous mes vœux pour cette nouvelle année.
Effectivement bonne idée, on peut faire plein de chose.
Là, j'ai fais au minimum.
Si quelqu'un veut modifier pas de soucis.

@+ Jean-Paul

 

[patricktoulon]

Bonsoir @VIARD @Lolote83

on peut faire beaucoup plus rapide que (boucler sur le len du texte)
un simple do/loop avec instr auto incrémenté

Sub Surbrillance3()
'patricktoulon
    Dim TxT$, XceLL, X&
    Application.ScreenUpdating = False
    With Sheets("Feuil1")
        With Feuil1.Range("M1:M100")
            .Font.Color = RGB(0, 0, 0)
            .Font.Bold = False
        End With
        TxT = .[ND_Cherche]
        For Each XceLL In Feuil1.Range("M1:M100").Cells
            With XceLL
                If XceLL <> "" Then
                    X = 1
                    Do
                        X = InStr(X, UCase(.Text), UCase(TxT))
                        If X > 0 Then
                         Debug.Print "recherche dans " & XceLL.Address & " trouvé  du caractère  " & X & " au caractère " & X + Len(TxT)
                           With .Characters(Start:=X, Length:=Len(TxT)).Font
                                .ColorIndex = 3
                                .Bold = True
                            End With
                            X = X + Len(TxT)
                        End If

                    Loop While X > 0
                End If
            End With
        Next XceLL
    End With
    Application.ScreenUpdating = True
End Sub

 

[Lolote83]

Bonjour à tous et BONNE ANNEE 2024
@patricktoulon , merci pour cette amélioration.
En fait, j'ai fait ça à la va vite sans même vérifié si les cellules étaient vides ou non, avec une plage définie au hasard (M1:M100) alors qu'avec une petite ligne de code, on peut facilement trouver la dernière.
Bref, merci pour la correction et le temps accordé pour la petite vidéo explicative.
@+ Lolote83

 

[patricktoulon]

Bonjour lolote83
meilleurs veux à toi aussi , santé , plein de sous sous,
ce matin je l'ai encore amélioré( mais pas aboutie)
mot entier ou pas on coche le checkbox pour sauter les xlpart

 

[Lolote83]

Re bonjour
Dans l'option Mot entier coché pourquoi ce "nous" n'apparait-il pas ?
Je sais, c'est une erreur de frappe, mais cette option (colorier une partie de cellule) pourrait être utilisé dans ce cas justement

Par contre, je n'arrive pas à modifier ma formule qui comptabilise les mots pour prendre en compte (dans cet exemple)
- Vous et vous

VS

et j'aurais aimé avoir par exemple 15 (toute casse confondue)

@+ Lolote83

 

[patricktoulon]

re

Dans l'option Mot entier coché pourquoi ce "nous" n'apparait-il pas ?

là je suis perplexe
serait ce les vapeur d'une consomation execcive d'alcool
"nous" "vous" tu sait plus quoi

pour ton problème de casse
ajoute dans ta formule minuscule pour le texte et minuscule pour la recherche
quoi que sur une range ca va être compliqué ( je n'ai pas testé)

 

[Lolote83]

Re bonjour,
Ah, alcool, quand tu nous tient !!!!!!!
Concernant la formule, j'avais testé avec MAJUSCULE mais j'ai du faire une erreur quelque part car résultat non escompté.
Je cherche encore.
Bonne journée à toi et à toute ta famille et tes proches.
@+ Lolote83

 

[patricktoulon]

re
j'ai testé c'est bon ca a l'air de fonctionner certainement parce que sommeprod donc matriciel

=SOMMEPROD((NON(ESTERREUR(TROUVE(SI(C4=VRAI;" ";"")&MINUSCULE( ND_Cherche)&SI(C4=VRAI;" ";"");MINUSCULE(M1:M100)))))*1)

 

[patricktoulon]

et encore une amélioration pour ta formule
on substitue la"," par un " ") pour les mot entier

=SOMMEPROD((NON(ESTERREUR(TROUVE(SI(C4=VRAI;" ";"")&MINUSCULE( ND_Cherche)&SI(C4=VRAI;" ";"");SUBSTITUE(MINUSCULE(M1:M100);",";" ")))))*1)

 

[Lolote83]

Bon, je vais arrêter là, car on va passer à table puis départ pour autre destination dans l'après midi donc pas dispo. Obligation familiale .....
@+ Lolote83

 

[patricktoulon]

exemple
si je cherche le mot "la" sans la substitution"," le 2d ne sera pas compté car devant il n'y a pas d'espace

bobone a la boite cranienne qui raisone ce matin,la prendre à rebrousse poil ne serait pas judicieux de ma part , je pense que je vais la laisser émerger tout doucement

ok
on aprem

 

[VIARD]

Bonjour @Lolote83 , @patricktoulon , et tous

Ce petit bout de code a fait son chemin.
l'idée de Patrick m'a effleuré, mais ne je savais comment mis prendre, donc chapeau.
Toutefois j'aime bien le code de Lolote, plus simple, j'ai juste ajouté le nombre de mot.
Pour moi-même je ne suis pas allé aussi loin, vue que j'avais mon résultat. Et puis vous avez du talent.
Bon 3 codes différents pour un même sujet c'est déjà pas mal.
Je vous remercie pour cette collaboration, comme quoi plus on est nombreux plus ça s'améliore.
Cordialement
Jean-Paul

 

[patricktoulon]

re
bonsoir @VIARD
sans souloir dénigrer lolotte
son code aura des ratés il confondra tabac et tabacologie
et au bout d'un certains nombre de ligne ,c'est mort excel est en overdose mémoire
ma derniere version 0 secondes et 400 millième pour 3000 lignes
je vais tester avec le code lolotte