Discussion :

[Marine bleu]

Bonjour,

Je dois trouver si des cellules 2 colonnes différentes contiennent le même mot.
Exemple :
Cellule C6 : JT-TO 320,00X 6,00 SP-VITON
Cellule G6 : ANNEAU TORIQUE ID 320 W 6
MATIERE : VITON FPM - QUALITE
EQUIVALENTE A DF801 DU
JOINT FRANCAIS
REF : 0-765-531-01-18

Le mot "Viton" est identique il faudrait identifier la case en vert et mettre un "1" dans la case H6 (vide pour l'instant)

Il y a 4000 lignes à vérifier.. Un peu d'aide serait très appréciée !

Merci beaucoup.

[Daniel.C]

Bonjour,

Une macro serait plus appropriée. Es-tu partant ?

[Daniel.C]

Ca pourrait donner ça, en utilisant les colonnes J et K en supposant qu'elles soient vides, sinon, il faut modifier la macro :

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
20
21
22
23
24
Sub test()
    Dim c As Range, Txt1, Txt2, TablC, TablG
    [C:C].Copy [J1]
    [G:G].Copy [K1]
    [J:J].Replace " ", "*!*", xlPart
    [J:J].Replace "-", "*!*", xlPart
    [K:K].Replace " ", "*!*", xlPart
    [K:K].Replace "-", "*!*", xlPart
    For Each c In Range([J1], Cells(Rows.Count, 10).End(xlUp))
        If c.Value <> "" And c.Offset(, 1).Value <> "" Then
            Txt1 = Split(c.Value, "*!*")
            Txt2 = Split(c.Offset(, 1).Value, "*!*")
            For Each Item In Txt1
                If IsNumeric(Application.Match(Item, Txt2, 0)) Then
                    c.Offset(, -2).Value = 1
                    Cells(c.Row, 3).Interior.ColorIndex = 43
                    Cells(c.Row, 7).Interior.ColorIndex = 43
                    Exit For
                End If
            Next Item
        End If
    Next c
    [J:K].Clear
End Sub

NB. Le code a été développé sur Windows. Prions Sainte Compatibilité.