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:
Ca beug pour la fonction InStr
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
Merci beaucoup pour votre aide
claire
Partager