Bonjour,

J'ai une colonne A qui contient des phrases
J'ai une colonne B qui contient des mots

J'aimerais vérifier si un mot de B appartien à une des phrase de A.
Je dois donc faire 2 boucles (enfin je crois):
- une pour parcourire la colonne B
- puis, pour chaque cellule de B, parcour de la colonne A pour vérifier s'il existe dans une des cellules.

Voici mon code:
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 ChercheNom()

Dim ZoneRecherche As Range
Dim ZoneCritere As Range
Dim r As Integer
Dim c As Integer


Set ZoneRecherche = Range("A1:A5")
Set ZoneCritere = Range("D1:D3")

r = ZoneRecherche.Count
c = ZoneCritere.Count

For i = 0 To r
    For j = 0 To c
    'Cells(i, 1).Activate
    'Cells(j, 4).Activate
    
    If InStr(1, Cells(i, 1), Cells(j, 4), 1) Then Cells(j, 4).Font.Color = RGB(150, 150, 250)
    Next j
Next i
End Sub
Ca beug pour la fonction InStr
Merci beaucoup pour votre aide

claire