Discussion :

[fr3m4n]

Bonjour,

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



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.

[Theze]

Bonjour,

Une piste :

Code :

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

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

[fr3m4n]

Merci pour la réponse,

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

Merci

[Theze]

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 :

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

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

[fr3m4n]

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.

[BENNASR]

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

Code :

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

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

[Theze]

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 :

Après le filtrage :

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 :

[Menhir]

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

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.