Bonjour,

Je souhaiterais dans chaque cellule de la colonne E chercher sur deux termes différents. Le code ci-dessous ne correspond qu'à un seul terme de recherche ("XXXX"). Comment ajouter un second terme de recherche c.à.d sur "XXXX" AND "YYYYY" dans la même cellule ? Expressions régulières ?


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
Sub resume()
 
Dim i As Integer
Dim LR As Integer
 
 
LR = Sheets("automatisation resume").Range("C" & Rows.Count).End(xlUp).Row
 
For i = 1 To LR
 
If Not Range("E" & i).Find("XXXXXXX", LookAt:=xlPart, MatchCase:=True) Is Nothing Then
    Sheets("automatisation resume").Range("F" & i).Value = "AAAAA"
 
 
End If
 
 
Next i
 
End Sub
Merci d'avance,

A.