Autres Mise en surbrillance, un mot dans un texte

L

Lolote83

XLDnaute Barbatruc

• 31 Décembre 2023

• #2

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

 

Pièces jointes

• Copie de VIARD - Surbrillance texte.xlsm

  62.8 KB · Affichages: 8

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 31 Décembre 2023

• #3

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 31 Décembre 2023

• #4

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é

VB:

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

 

Pièces jointes

• Copie de VIARD lolotte V patricktoulon - Surbrillance texte.xlsm

  57.5 KB · Affichages: 7

Vote positif -1 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 1 Janvier 2024

• #5

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Janvier 2024

• #6

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

 

Pièces jointes

• Copie de VIARD lolotte V patricktoulon - Surbrillance texte.xlsm

  59.7 KB · Affichages: 6

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 1 Janvier 2024

• #7

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Janvier 2024

• #8

re

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

Cliquez pour agrandir...

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é)

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 1 Janvier 2024

• #9

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Janvier 2024

• #10

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

VB:

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Janvier 2024

• #11

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)

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 1 Janvier 2024

• #12

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Janvier 2024

• #13

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

Cliquez pour agrandir...

ok
on aprem

 

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 2 Janvier 2024

• #14

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Janvier 2024

• #15

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

 

Vote positif -1 Vote négatif