Probleme d'autofiltrage

Résolu
mythiac
Messages postés
72
Date d'inscription
mardi 23 septembre 2008
Statut
Membre
Dernière intervention
23 février 2009
- 1 déc. 2008 à 16:27
mythiac
Messages postés
72
Date d'inscription
mardi 23 septembre 2008
Statut
Membre
Dernière intervention
23 février 2009
- 2 déc. 2008 à 09:33
bonjour,

j'ai un problème avec l'autofiltrage:

je copie une feuille en intermediaire et cherche à faire un filtrage en suite.
le problème vient de mon criteria1 (qui est variable selon ma textbox1) qui fait échouer l'opération Rangede l'Autofilter

actuellement, j'ai une ligne vierge sous mes titres dans lequel je fais copier la valeur de ma textbox, et je tente l'autofiltre, mais toujours en erreur.
si je retire le criteria1 je n'ai plus d'erreur, mais plus de filtre non plus !

Private Sub CommandButton1_Click()
    Feuil9.Range("c1").Value = TextBox2.Value
    Feuil9.Range("e1").Value = TextBox3.Value
    Feuil9.Range("a1").Value = TextBox1.Value
   
'copy de la totalité de la feuille carburant en feuille intermédiaire pour filtrage
Feuil11.Rows.Copy
Feuil12.Select
Feuil12.Rows.Select
Feuil12.Paste

'critere de selection immatriculation
    Feuil12.Range("b2").Value = TextBox1.Value

Feuil12.Range("b2").AutoFilter _
   Criteria1:=Feuil12.Range("b2").Value
   

   
End Sub

merci par avance

1 réponse

mythiac
Messages postés
72
Date d'inscription
mardi 23 septembre 2008
Statut
Membre
Dernière intervention
23 février 2009

2 déc. 2008 à 09:33
pour ceux que ça pourrait aider, j'ai trouvé la solution:

' les filtres sont sur la ligne 1
    Feuil12.Range("A1").Select
   
    ' filtrage
    Selection.AutoFilter Field:=2, Criteria1:=TextBox1.Value

en intégrant avant un néttoyage de la page 12 pour éviter une impossibilité du paste:

Feuil12.Cells.Clear
Feuil11.Rows.Copy
Feuil12.Select
Feuil12.Rows.Select
Feuil12.Rows.Select
Feuil12.Paste
3