Bonjour,

Je souhaiterais effectuer une recherche avec 2 mots clés à chercher dans 2 colonnes différentes ( ces 2 colonnes contenant plusieurs phrases, à considérer comme des champs texte grosso modo)

Avec le code ci-dessous, il fait la recherche en considérant la recherche Mot1 ou Mot2 alors que je veux faire Mot1 et Mot2

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
Mot1 = "toto"
Mot2 = "zero"
 
Set PlageA = Worksheets("Feuil1").Range("A1:F10000")
Set PlageB = Worksheets("Feuil1").Range("C1:H10000")
 
Set c = PlageA.Find(Mot1, LookIn:=xlFormulas)
Set d = PlageB.Find(Mot2, LookIn:=xlFormulas)
If Not c Is Nothing Then
firstaddress = c.Address
firstaddress2 = d.Address
Do
UserForm1.ListBox1.AddItem d
Set c = .FindNext(c)
Set d = .FindNext(d)
Loop While Not c Is Nothing And c.Address <> firstaddress And Not d Is Nothing And d.Address <> firstaddress2
End If
End With
Merci d'avance