reperer les mots qui se ressemblent

[guigui06]

Bonjour,

Je travaille sur un fichier excel. Je souhaiterais que dans une colonne donnée soit surligné (ou mis en couleur provisoirement ou tout autre moyen pour que l'on puisse le voir), les mots qui se ressemblent (pas seulement en doublons). C'est à dire que s'il est marqué "point" ou "poind" il faudrait que cela se mette en surbrilance pour que l'utilisateur estime s'il s'agit d'un doublon à supprimer ou pas...

Voila je ne sais pas si c'est réalisable avec formules, ou macro..

merci pour vos réponses

 

[Orodreth]

Re : reperer les mots qui se ressemblent

Bonjour,

Renseigne toi du côté des algorithmes phonétiques (Algorithme phonétique - Wikipédia).

Maintenant, attention, ça relie parfois des mots qui n'ont pas grand chose à voir les uns avec les autres.

Quel est ton niveau en VBA ?

Cordialement,

 

[job75]

Re : reperer les mots qui se ressemblent

Bonjour guigui06,

les mots qui se ressemblent (pas seulement en doublons).

"ressemblent" est bien trop vague.

Que faire si l'on permute des lettres dans un mot ?

Et puis je suppose que cela ne concerne pas les mots de 1, 2, ou 3 lettres...

Au minimum il faudrait votre fichier pour voir de quoi il retourne.

A+

 

[DoubleZero]

Re : reperer les mots qui se ressemblent

Bonjour, guigui06, Orodreth, job75 😀, le Forum,

Une suggestion en pièce jointe... en attendant mieux... avec ce code :

Option Explicit
Sub Semblable()
    Dim c As Range
    For Each c In Range("A2", [A65000].End(xlUp))
        c.Interior.ColorIndex = xlNone
        If c.Value Like "*" & Range("g1").Value & "*" Then c.Interior.ColorIndex = 6
    Next
End Sub

A bientôt 🙂