VBA fonction recherche deux valeurs

Version imprimable

06/02/2019, 10h00
fr3m4n

1 pièce(s) jointe(s)

VBA fonction recherche deux valeurs

Bonjour,

Voila je demande l'aide du forum pour une petite question. ;-)

Pièce jointe 447721

Donc voila le code, c'est un bouton pour filtrer une recherche sur une liste sur le contenu C

Donc a la ligne la:
Sheets("recherche").Range("c3") = "C"

J'aimerais lui dire de filter sur C comme si joint mais aussi sur DC mais je ne sais pas comment faire

J'ai tenté "C" , "DC" mais evidement ca ne fonctionne pas

merci d'avance pour vos réponses et votre temps.

Bonjour,

Une piste :

Code:

1
2
3
4
5
6
7
8
9
10
 
Sub Test()
 
    Dim Plage As Range
 
    With Worksheets("recherche"): Set Plage = .Range(.Cells(1, 3), .Cells(.Rows.Count, 3).End(xlUp)): End With
 
    Plage.AutoFilter 1, "C", xlOr, "CD"
 
End Sub

06/02/2019, 10h52
fr3m4n

Merci pour la réponse,

Mas je ne comprends pas trop je dois faire quoi je dois modifier le code entier?

Merci

Je t'ai juste montrer un filtrage sur la colonne C de la feuille "recherche" avec comme critères "C" et "CD", je ne sais pas où commence ta plage et où elle finie, je ne sais pas ce que tu veux faire du résultat du filtrage ?
Si c'est pour remplir une ListBox, tu peux copier le résultat sur une autre feuille et t'en servir de source :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Dim Plage As Range
Dim I As Integer
Dim T
 
With Worksheets("recherche")
 
    Set Plage = .Range(.Cells(1, 3), .Cells(.Rows.Count, 3).End(xlUp))
 
    Plage.AutoFilter 1, "C", xlOr, "CD"
 
    Worksheets("Feuil2").Cells.Clear
 
    .AutoFilter.Range.EntireRow.Copy Worksheets("Feuil2").Range("A1")
 
    Plage.AutoFilter
 
    T = Worksheets("Feuil2").Range("A1").CurrentRegion
 
 End With
 
ListBox1.List = T

tu peux boucler sur les lignes visibles et remplir ta liste :

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
 
Dim Plage As Range
Dim I As Integer
Dim J As Integer
 
With Worksheets("recherche"): Set Plage = .Range(.Cells(1, 3), .Cells(.Rows.Count, 3).End(xlUp)): End With
 
Plage.AutoFilter 1, "C", xlOr, "CD"
 
With Worksheets("recherche")
 
    For I = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
 
        If .Rows(I).Hidden = False Then
 
            ListBox1.AddItem .Cells(I, 1).Value
            ListBox1.Column(1, J) = .Cells(I, 2).Value
            ListBox1.Column(2, J) = .Cells(I, 3).Value
            ListBox1.Column(3, J) = .Cells(I, 4).Value
            J = J + 1
 
        End If
 
    Next I
 
End With
 
Plage.AutoFilter

06/02/2019, 20h11
fr3m4n

1 pièce(s) jointe(s)

Merci,

Enfaite j'ai un bouton afficher qui affiche comme la photo si joint pour une personne definie les données reprise d'une base de donnée, et un autre qui filtre par type comme le code plus haut qui affiche un C dans la cellule C3 qui filtre que sur les C j'aimerais qu'il filtre sur les C et les DC mais je ne sais pas comment faire.

Pièce jointe 447902

1 pièce(s) jointe(s)

Bonjour
si tes données sont organisées comme la capture écran,
essayez avec :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
With Sheets("feuil1")
Dim Nom As String
Nom = .Range("B3")
k = .Range("K" & Rows.Count).End(xlUp).Row
 .Range("K2:V" & k).AutoFilter Field:=3, Criteria1:=Nom
 
   .Range("K2:V" & k).AutoFilter Field:=4, Criteria1:= _
        "C", Operator:=xlOr, Criteria2:="CD"
End With
 
End Sub

07/02/2019, 08h45
Menhir

Citation:

Envoyé par fr3m4n

Donc voila le code

Un code transmis sous forme d'image n'est vraiment pas pratique : on ne peut pas le copier pour le modifier.
Je te conseille donc de faire un copier/coller du texte de ton code dans un message, de préférence encadré de balises CODE (le bouton #).

Citation:

c'est un bouton pour filtrer une recherche sur une liste sur le contenu C

A priori, l'essentiel de ta rechercher est dans une sous-routine nommée "marecherche" que tu ne montres pas.
Difficile donc de savoir comment cette recherche pourrait éventuellement prendre deux données d'entrée.
07/02/2019, 09h02
Theze

4 pièce(s) jointe(s)

Bonjour,

Dans ce cas, utilises un filtre avancé !
Tu déplace ton tableau vers le bas puis tu crées une zone de critères au dessus qui reprend les entêtes de colonnes ensuite, Onglet Données ---> filtre avancé puis dans les champs Plage et zone de critères tu sélectionnes les plages correspondantes et tu filtre !
Avant le filtrage :
Pièce jointe 447981
Après le filtrage :
Pièce jointe 447985
Attention tout de même, tu parles d'un critère CD et tu montre un critère DC !
Ici, seulement avec le nom sur le critère C :

2 pièce(s) jointe(s)

code de marecherche:

Code:

Sheets("BD").Range("Tableau4").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, criteriarange:=Sheets("recherche").Range("b2:g3"), copytorange:=Sheets("recherche").Range("k2:y2"), unique:=False

donc comme que je disais j'ai une "sheet BD" et marecherche va reprendre les donnée la pour les afficher dans la "sheets recherche"

l'image si joint

Pièce jointe 448119

Et quand jai ca j'ai un bouton qui filtre le type que je veux

code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub CommandButton4_Click() If Range("c4") = "" Then Sheets("recherche").Range("f3") = "" Else Sheets("recherche").Range("f3") = Range("c4") End If Sheets("recherche").Range("d3") = "" Sheets("recherche").Range("e3") = "" Sheets("recherche").Range("c3") = "C" marecherche Me.ListBox1.ListFillRange = "liste" End Sub
qui donne ca:
Pièce jointe 448121

J'aimerais que le bouton affiche les C comme la mais aussi les DC.

J'espère être plus explicite.

Merci