Discussion :

[ippo_master]

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

[patbou]

bonjour,

tu peux verifier que les recherches renvoie qq chose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If Not c Is Nothing And Not d Is Nothing Then

[alsimbad]

je connais pas vraiment, mais ma logique perso me dis que find cherche C puis cherche d. donc si ton but est deux trouver deux occurence dans la meme ligne moi je ferais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Set PlageA = Worksheets("Feuil1").Range("A1:F10000")
Set c = PlageA.Find(Mot1, LookIn:=xlFormulas)
if not c is nothing
Set PlageB = Worksheets("Feuil1").Range(cells(c.row,1),cells.row,nbcolonne)
Set d = PlageB.Find(Mot2, LookIn:=xlFormulas)
end if
.....reste de ton code
Set c = .FindNext(c)

j'édit juste pour dire que j'ai pas testé, et j'ai écris le code a main levée

[ouskel'n'or]

Tu n'as pas besoin de définir tes deux plages si le mot recherché est sur la même ligne.
Par contre, si ce n'est pas le cas, la recherche telle que tu la mets risque de poser un pb car d'un mot1 trouvé, tu passes au mot2 trouvé et tu peux avoir raté un mot1 situé entre les deux. Enfin, je vois ça comme ça.
Peux-tu préciser ta demande ?
A+

[ippo_master]

Apercu du type de tableau:

Colonne1|Colonne2|Colonne3
A| 6 |toto
A| 0 |mario
A| 2 |toto
A| 8 |luigi
B| 4 |tod
B| 2 |koopa

Objectif : lister les lignes répondant au critère "A" en colonne1 et "toto" en colonneB

En creusant à partir du code d'alsimbad :

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
25
Mot1 = "A"
Mot2 = "toto"
 
'recherche sur 1er critère
Set Plage1= Worksheets("Feuil1").Range("A1:A100")
Set c = Plage1.Find(Mot1, LookIn:=xlFormulas)
If Not c Is Nothing Then
' = lancement de la recherche sur le 2ème critère
firstaddress = c.Address
'recup du numéro de ligne
Ligne = Right(firstaddress, 2)
If Left(Ligne, 1) = "$" Then Ligne = Right(firstaddress, 1)
'recherche sur colonne 3 pour mot2 en restreignant la plage à la valeur de la ligne correspondant au 1er critère
Set Plage2 = Worksheets("Feuil1").Range(Cells(Ligne, 3), Cells(Ligne, 3))
Set d = Plage2.Find(Mot2, LookIn:=xlFormulas)
If Not d Is Nothing Then
firstaddress2 = d.Address
Do
Set d = Plage2.FindNext(d)
Loop While Not d Is Nothing And d.Address <> firstaddress2
End If
Do
Set c = PlageS.FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress 'ligne m'indiquant une erreur
End If

EDIT: Je pense que le fait de lancer une autre recherche alors que la première est en cours, lui fait perdre la valeur de c.
Il faudrait pouvoir définir dans l'instruction find 2 arguments de recherche

[ouskel'n'or]

Objectif : lister les lignes répondant au critère "A" en colonne1 et "toto" en colonneB

C'est quand même plus clair
Alors tu prends un bout du code d'alsimbad et tu ajoutes qqs lignes du mien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
PlageA = Worksheets("Feuil1").Range("A1:F10000")
Set c = PlageA.Find(Mot1, LookIn:=xlFormulas)
if not c is nothing
     if Cell.offset(0,1) = Mot2 then
         Adres1 = Cell.address
         Adres2 = Cell.Offset(0,1).address
         'et après, avec ces adresses, tu fais ce que tu veux
         '.....reste de ton code
      else
         'Mot2 inexistant dans colonne B
     endif
  else
     'mot1 pas trouvé
endif

En espérant que ça réponde à ta demande vraie

[ippo_master]

Dur dur de bien exposer son problème

Apercu du type de tableau:

Colonne1|Colonne2|Colonne3
BDEFAG| 6 |un jour toto a...
FGADSAZZ| 0 |mario est...
BVCA| 2 |toto suit...
ATRSX| 8 |demain, luigi sera...
BUIJNSQ| 4 |tod n'est pas...
ZSWBB| 2 |un koopa est...

Objectif : lister les lignes contenant la lettre "A" en colonne1 et contenant le mot "toto" en colonneB

-> le vrai besoin de recherche au coeur de la cellule

La méthode offset me renvoit une erreur systématique ("objet requis")

[Singular]

C'est quand même plus clair
Alors tu prends un bout du code d'alsimbad et tu ajoutes qqs lignes du mien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
PlageA = Worksheets("Feuil1").Range("A1:F10000")
Set c = PlageA.Find(Mot1, LookIn:=xlFormulas)
if not c is nothing
     if Cell.offset(0,1) = Mot2 then
...

Dans ce code, ouskel'n'or a fait une erreur: chaque fois que tu lis Cell, il faudrait plutot écrire c !!!