[VBA-E]Filtre multi-critères

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:

---

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 :P

bonjour,

tu peux verifier que les recherches renvoie qq chose

Code:

---

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

---

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:

---

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

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+

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:

---

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 :calim2:

Citation:

---

Envoyé par ippo_master

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:

---

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 ;)

:mouarf: Dur dur de bien exposer son problème

Citation:

---

Envoyé par ippo_master

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") :(

Dans mon code, remplace la ligne

Citation:

---

if Cell.offset(0,1) = Mot2 then

---

par

Code:

---

if Cells(Cell.Adress).offset(0,1) = Mot2 then

---

je n'avais pas testé :oops:
Et je n'ai toujours pas testé :( Tu peux le faire pour moi ?
A+

Toujours la même erreur d'objet requis ?
Puis-je mettre mon doc excel en pièce jointe pour que ce soit plus simple ? 8O

Citation:

---

Envoyé par ippo_master

Toujours la même erreur d'objet requis ?
Puis-je mettre mon doc excel en pièce jointe pour que ce soit plus simple ? 8O

---

Bien sûr mais mets ton code qu'on puisse le corriger ;)
A+

Citation:

---

Envoyé par ouskel'n'or

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

Code:

---

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 :scarymov:!!!

Je vous joins l'exemple :mouarf:
J'y ai intégré le peu de code qui marche :lol:

Merci d'avance

Tiens, tiens! Je reconnais un code que j'ai pondu tout recemment...:mouarf:

Citation:

---

Envoyé par Singular

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

---

Exact ! Heureusement qu'il y en a un qui suit :mouarf:

Citation:

---

Envoyé par Singular

Tiens, tiens! Je reconnais un code que j'ai pondu tout recemment...:mouarf:

---

Carrément Singular, c'est déjà ton code qui m'a servi à pondre la première partie de recherche.
Saurez-vous me sauver ?

:mrgreen:

Comme Singular a l'air de vouloir se contenter du rôle d'observateur, je corrige mon code selon ses dernières recommandations ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim PlageA as range, c as range PlageA = Worksheets("Feuil1").Range("A1:F10000") Set c = PlageA.Find(Mot1, LookIn:=xlFormulas) if not c is nothing if Range(c.address).offset(0,1) = Mot2 then Adres1 = c.address Adres2 = Range(c.Address).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

---

Par contre, je lui laisse le soin de corriger son code dans ton fichier :aie:
Je suis ! :mouarf:

Voici qui résout ton problème, je crois.

Code:

---

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 26 27 28 29 30 31 32 33

Sub Macro1() Dim rngRecherche As Range Dim rngDepart As Range Dim wksRecherche As Worksheet Dim c As Range Dim sMot1 As String Dim sMot2 As String Dim sService As String   sMot1 = "vilain" sMot2 = "toto" sService = "PFSE" Set wksRecherche = Worksheets("FA")   ' Filtrer le tableau sur la colonne 2 (Serv Emetteur) d'après la valeur sService Set rngDepart = wksRecherche.Columns(2) wksRecherche.AutoFilterMode = False ' Assurer que le filtre est absent pour commencer rngDepart.AutoFilter Field:=1, Criteria1:=sService   ' Rechercher les occurences de sMot1 dans la colonne 6 (Description) Set rngRecherche = wksRecherche.Cells(1, 6).Resize(wksRecherche.Rows.Count, 1) For Each c In rngRecherche If c.Value = vbNullString Then Exit For ' Arrêter dès qu'un vide est rencontré   If Not InStr(1, CStr(c.Value), sMot1) = 0 Then ' Si sMot1 est présent   ' Rechercher sMot2 dans deuxième colonne à droite If Not InStr(1, c.Offset(0, 2).Value, sMot2) = 0 Then MsgBox sMot1 & " et " & sMot2 & " trouvés sur ligne : " & CStr(c.Row) End If End If Next c End Sub

---

La méthode Find ne convient pas vraiment à ce genre de problème. Un filtre appliqué à une colonne, suivi d'une boucle sur une autre colonne est plus direct et facile à implémenter. ;)

Un grand merci à vous 2, nous en sommes arrivés à bout.
Je garde en mémoire cette instruction Instr que je ne connaissais pas ;)

Bravo encore :mrgreen:

Une autre méthode n'utilisant que les filtres http://www.developpez.net/forums/sho...84#post2718884 ;)