Problème de filtrage multicritère et plusieurs colonnes

Résolu

mythiac Messages postés 72 Date d'inscription mardi 23 septembre 2008 Statut Membre Dernière intervention 23 février 2009 - 17 déc. 2008 à 12:04
mythiac Messages postés 72 Date d'inscription mardi 23 septembre 2008 Statut Membre Dernière intervention 23 février 2009 - 17 déc. 2008 à 15:20

bonjour,

j'ai un problème avec un filtre que j'ai créé, qui fonctionne dans certain cas, et qui déraille dans d'autres, je m'explique:

j'ai une base de donnée sur 8 colonnes jour, mois, année, immatriculation, km, essence, litre, euro.

le premier autofiltre pour l'immat fonctionne, et me copie en page intermedaire le résultat.
lorsque je fais une recherche sur l'annee 2008, ca marche (2ème autofiltre) qui copie sur la page inter suivante, et le 3ème autofiltre fonctionne pour les mois.

par contre, si je fais une recherche 2007 (et il y a des existants), j'ai alors des copies à tout va dans la page du filtre, jusqu'a ce que la feuille excel soit pleine et entraine un debogage.

dernière info la copie à la fin sert à pouvoir imprimer la selection affichée, uniquement...

si vous pouvez me donner un coup de main, merci d'avance.

voici mon code:

Private Sub CommandButton1_Click()
    'fixe la saisie des dates
        Feuil9.Range("i2").Value = TextBox1.Value
        Feuil9.Range("i4").Value = TextBox2.Value
        Feuil9.Range("i6").Value = TextBox3.Value
        Feuil9.Range("i8").Value = TextBox4.Value
        Feuil9.Range("i10").Value = TextBox5.Value
        Feuil9.Range("i12").Value = TextBox6.Value

'affichage immatriculation
Feuil9.Range("i19").Value = ComboBox1.Value

'copy de la totalité de la feuille carburant en feuille intermediaire pour filtrage
    Feuil12.Cells.Clear
    Feuil11.Rows.Copy
    Feuil12.Select
    Feuil12.Rows.Select
    Feuil12.Paste

    Feuil3.Cells.Clear
'critère de selection immatriculation
    Dim Bselect As Range
    'les filtres sont sur la ligne 1
    Feuil12.Range("A1").Select

    'filtrage immatriculation
    Selection.AutoFilter field:=4, Criteria1:=Feuil9.Range("i19").Value

    Set Bselect = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible)
    Bselect.Copy
    Debug.Print Bselect.Address

    Feuil3.Select
    Feuil3.Rows.Select
    Feuil3.Paste


    Feuil2.Cells.Clear
'critère de selection annee
    Dim Cselect As Range
    'les filtres sont sur la ligne 1
    Feuil3.Range("A1").Select

    'filtrage annee
    Selection.AutoFilter field:=3, Criteria1:=">=" & Feuil9.Range("i6"), Criteria2:="<=" & Feuil9.Range("i12").Value


    Set Cselect = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible)
    Cselect.Copy
    Debug.Print Cselect.Address

    Feuil2.Select
    Feuil2.Rows.Select
    Feuil2.Paste

'   Feuil16.Cells.Clear
'critère de selection mois
    Dim Dselect As Range
    'les filtres sont sur la ligne 1
    Feuil2.Range("A1").Select

    'filtrage mois
    Selection.AutoFilter field:=2, Criteria1:=">=" & Feuil9.Range("i4").Value, Criteria2:="<=" & Feuil9.Range("i10").Value

    UserForm3.Hide
Feuil2.Copy

End Sub

A voir également:

Problème de filtrage multicritère et plusieurs colonnes
Colonnes non définies sélectionnées - Forum VB.NET
Afficher les colonnes d'une table sql ✓ - Forum VB.NET
Recherche multicritère excel - Forum Visual Basic
Sql sum plusieurs colonnes ✓ - Forum SQL
Index de colonne non valide - Forum Java

1 réponse

Réponse 1 / 1

mythiac Messages postés 72 Date d'inscription mardi 23 septembre 2008 Statut Membre Dernière intervention 23 février 2009
17 déc. 2008 à 15:20

résolu, merci

Discussions similaires

recuperer les noms de champs d'une table

Récupérer le nom des colonnes d'un table

[VBA] ListBox avec plusieurs colonnes

Afficher les colonnes d'une table

récupérer les noms des champs d'un table

Votre réponse

Discussions similaires