[VBA-E]Filtre multi-critères

**ippo_master** · 21/11/2007, 16h17

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** · 21/11/2007, 18h15

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** · 21/11/2007, 18h45

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** · 21/11/2007, 18h48

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** · 22/11/2007, 13h49

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** · 22/11/2007, 17h21

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 :

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** · 23/11/2007, 13h21

Dur dur de bien exposer son problème

Envoyé par ippo_master

Apercu du type de tableau:

**ouskel'n'or** · 23/11/2007, 13h32

Dans mon code, remplace la ligne

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

par

Code :

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

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

je n'avais pas testé

Et je n'ai toujours pas testé

Tu peux le faire pour moi ?
A+

**ippo_master** · 26/11/2007, 09h52

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

**ouskel'n'or** · 26/11/2007, 10h13

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 ?

Bien sûr mais mets ton code qu'on puisse le corriger

A+

**Singular** · 26/11/2007, 10h34

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 :

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

**ippo_master** · 26/11/2007, 10h43

Je vous joins l'exemple

J'y ai intégré le peu de code qui marche

Merci d'avance

**Singular** · 26/11/2007, 11h18

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

**ouskel'n'or** · 26/11/2007, 11h28

Envoyé par Singular

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

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

**ippo_master** · 26/11/2007, 11h32

Envoyé par Singular

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

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

**ouskel'n'or** · 26/11/2007, 11h46

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

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

Je suis !

**Singular** · 26/11/2007, 12h49

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

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
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.