FIltre Multicritères

mapomme

XLDnaute Barbatruc

Supporter XLD

• 21 Février 2012

• #2

Re : FIltre Multicritères

Bonsoir Aapt,

Un essai: voir fichier.

 

Pièces jointes

• FiltreMulticritères v1.xls

  58 KB · Affichages: 83

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 21 Février 2012

• #3

Re : FIltre Multicritères

Bonjour mapomme,

Ca avance bien, mais en testant avec la valeur "1010" entre le "01/01/2011" et "22/01/2011", j'obtient une ligne de résultat avec le code "1010" et la date "03/02/2011" qui est hors la période de recherche.

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 21 Février 2012

• #4

Re : FIltre Multicritères

Bonjour,

Code:

Sub filtre2Dates()
  [A5].AutoFilter Field:=2, Criteria1:=[B3]
  [A5].AutoFilter Field:=4, Criteria1:=">" & Format(Range("d2"), "mm/dd/yyyy"), Operator:=xlAnd, _
     Criteria2:="<=" & Format(Range("d3"), "mm/dd/yyyy")
End Sub

Sub filtre2Dates2()
  [A5].AutoFilter Field:=2, Criteria1:=[B3]
  [A5].AutoFilter Field:=4, Criteria1:=">" & CDbl(Range("d2")), Operator:=xlAnd, _
     Criteria2:="<=" & CDbl(Range("d3"))
End Sub

Le filtre automatique

JB

 

Pièces jointes

• Copie de FiltreMulticritères (v1)-1.xls

  45 KB · Affichages: 66

Dernière édition: 21 Février 2012

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 21 Février 2012

• #5

Re : FIltre Multicritères

Bonsoir Jacques,

Ravi de te lire.

Comme je t'ai déjà signalé, je ne peux accéder à ton site, malheureusement.

Ca marche merci.

Mais j'ai un petit souci :

En essayant avec le code 1007, j'ai un résultat d’une ligne, et le

Code:

Rng.Rows.Count

donne le nombre de 1.

Avec le code 1010, je n’obtiens rien et le

Code:

Rng.Rows.Count

donne toujours le nombre de 1.

Est-ce logique ?

 

Pièces jointes

• FiltreMulticritères (v4).xls

  82.5 KB · Affichages: 54

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 22 Février 2012

• #6

Re : FIltre Multicritères

Bonjour,

Voir PJ

JB

 

Pièces jointes

• Copie de FiltreMulticritères (v4).xls

  62 KB · Affichages: 60

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 22 Février 2012

• #7

Re : FIltre Multicritères

Bonsoir JB,

1 - Pourquoi le nombre de lignes est toujours égal à 1 (avec ou sans ligne de résultat) ?

Code:

Me.Range("_FilterDataBase").SpecialCells(xlCellTypeVisible).Rows.Count = 1

Exemple avec le code = 1007 (1 ligne de résultat) ou 1012 (sans résultat)

2 - J'aimerais qu'il n'y ait pas de création de feuille en cas d'un résultat neutre ?

Merci.

 

Pièces jointes

• FiltreMulticritères (v6).xls

  58.5 KB · Affichages: 50

Dernière édition: 23 Février 2012

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 23 Février 2012

• #8

Re : FIltre Multicritères

Bonsoir JB,

J'ai essayé avec un bout de tes codes :

Code:

Set Rng = .Range("_FilterDataBase").Offset(1, 0).Resize(.Range("_FilterDataBase"). _
                                                                Rows.Count - 1, .Range("_FilterDataBase").Columns.Count).SpecialCells(xlCellTypeVisible)

mais le problème persiste

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 23 Février 2012

• #9

Re : FIltre Multicritères

Bonsoir,

Msgbox [_filterdatabase].Resize(, 1).SpecialCells(xlCellTypeVisible).Count

JB

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 23 Février 2012

• #10

Re : FIltre Multicritères

Bonsoir JB,

Le nombre de lignes avec :

Code:

Msgbox [_filterdatabase].Resize(, 1).SpecialCells(xlCellTypeVisible).Count

Sans résultat = 1

Au moins une ligne de résultat = 2

Mais pourquoi ce code continu à créer des nouvelles feuilles :

Code:

        Clg = [_filterdatabase].Resize(, 1).SpecialCells(xlCellTypeVisible).Count
        If (Clg) > 1 Then
            '--
            If Not Exist_Sheet Then
                Sheets.Add.Move After:=Sheets(Sheets.Count)
                ActiveSheet.Name = [B3]
            End If
            '--
            Rng.Copy Sheets([B3]).[A1]
            Application.Goto Sheets([B3]).Range("A1")
        End If

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 23 Février 2012

• #11

Re : FIltre Multicritères

Bonsoir,

J'ai corriger la fonction de test de l'existance d'une feuille donnée.

Mais je ne sais pas pourquoi, je ne peux copier les lignes filtrées dans la feuille spécifiée ?

Code:

Rng.Copy Sheets([B3]).[A1]
            Application.Goto Sheets([B3]).Range("A1")

 

Pièces jointes

• FiltreMulticritères (v7).xls

  46 KB · Affichages: 46

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 24 Février 2012

• #12

Re : FIltre Multicritères

Bonjour Apt, JB, le forum,

Il faut plutôt mettre :

Rng.Copy ActiveSheet.[A1]

Cliquez pour agrandir...

A+

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 24 Février 2012

• #13

Re : FIltre Multicritères

Bonjour Yaloo,

J'ai fait un test, et la copie se fait dans la même feuille au lieu de la feuille désirée.

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 24 Février 2012

• #14

Re : FIltre Multicritères

Bonsoir,

J'ai trouvé la solution.

Le fichier en PJ.

 

Pièces jointes

• FiltreMulticritères (v7.1).xls

  68 KB · Affichages: 72

Vote positif 0 Vote négatif