Discussion :

[mchevall]

Bonjour à tous,
Je suis embété car je ne sais pas vraiment programmer des macros et j'ai une tache qui est répétitive et qui je suis sur pourrait être automatisée.
Pour faire simple : Je travaille sur un glossaire. J'ai deux colonnes A et B, dans la colonne A j'ai des mots et dans la colonne B j'ai leur définition. J'aimerais pouvoir identifier les mots dans les cellules de la colonnes B qui ont déja une définition dans mon glossaire (colonne A).
Petit exemple concret :
Colonne A Colonne B
Arbre Plante qui contient des branches et des feuilles...
Feuille Partie d'une arbre. Se trouvent au bout des branches....
Branche Fait partie d'une arbre. Au bout se trouve des feuilles....
Dans ce cas la macro devrait m'identifier les mots arbre, branche et feuille dans chacune des définitions de la colonne B et mettre ces mots en rouge.
Est-ce possible de programmer ca ?
Merci pour votre aide,
Je vous souhaite une bonne journée !

[Daniel.C]

Bonjour,

Mets la macro suivante dans un module standard. Il y a juste les "s" qui sont pas coloriés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
    Dim C As Range, X As Range, ResAdr As String, Ctr as Integer
    For Each C In Range("A1", Cells(Rows.Count, 1).End(xlUp))
        Set X = [B:B].Find(C.Value, , , xlPart)
        If Not X Is Nothing Then
            ResAdr = X.Address
            Do
                ctr = 1
                Do
                    ctr = InStr(ctr, LCase(X.Value), LCase(C.Value))
                    If ctr = 0 Then Exit Do
                    X.Characters(ctr, Len(C.Value)).Font.ColorIndex = 3
                    ctr = ctr + Len(C.Value)
                Loop
                Set X = [B:B].FindNext(X)
            Loop While X.Address <> ResAdr
        End If
    Next C
End Sub