PROBLEME SELECTION .AUTOFILTER

Bonjour,

j ai une textbox, style boite de recherche, qui me sert lorsque j'insert une donnée de filtrer les info dans un autre fichier excel sans l'ouvrir .
Le probleme c'est que j'ai un message d'erreur au niveau du selection autofilter.
Quelqu'un aurait une idée...merci

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

Private Sub TextBox1_Change()   Dim appxl As Excel.Application Dim fichier As Window Dim feuille As Worksheet Set appxl = CreateObject("Excel.application") Dim read As Variant   With appxl .Workbooks.Open "U:\Release\Nomenc\DCS-MF\GESTION_DES_MT\liste_MTG_DS.xls" .Visible = False End With   Set fichier = appxl.Windows("liste_MTG_DS.xls") fichier.Activate Set feuille = appxl.Sheets("MT")   Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Value, Operator:=xlOr, _ Criteria2:="=*" & TextBox1.Value & "*"     appxl.Workbooks("liste_MTG_DS.xls").Save appxl.Workbooks("liste_MTG_DS.xls").Close   End Sub

---

Salut Jeyjey1 et le forum
Édite ton titre et passe-le en minuscules : Quelque soit le forum, MAJUSCULES=GUEULER
Et si tu veux des réponses, c'est pas le meilleur nmoyen

Citation:

---

j ai une textbox, style boite de recherche, qui me sert lorsque j'insert une donnée de filtrer les info dans un autre fichier excel sans l'ouvrir

---

à ma connaissance, il faut l'ouvrir, mais j'ai des lacunes, donc...

2, 3 remarques :
- Selection.AutoFilter : c'est pour ôter l'ancien filtre, sauf que quand il y en a pas...
- Selection.AutoFilter : donc, on veut filtrer la sélection en cours. Mais quelle est-elle ? tu es où (pour excel) ? je pense qu'il serait préférable de redéfinir la plage à filtrer, sans sélection
feuille.range("Ax:By").autofilter ...
-Ton premier critère est TextBox1 et ton second : *TextBox1* : le premier fait doublon avec le second

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub TextBox1_Change() Dim appxl As Excel.Application Dim fichier As Window Dim feuille As Worksheet Set appxl = CreateObject("Excel.application") Dim read As Variant   With appxl .Workbooks.Open "U:\Release\Nomenc\DCS-MF\GESTION_DES_MT\liste_MTG_DS.xls" .Visible = False End With   Set fichier = appxl.Windows("liste_MTG_DS.xls") fichier.Activate Set feuille = appxl.Sheets("MT")   activesheet.AutoFilterMode = False activesheet.cells.AutoFilter Field:=1, Criteria1:="=*" & TextBox1 & "*", Operator:=xlet   appxl.Workbooks("liste_MTG_DS.xls").Save appxl.Workbooks("liste_MTG_DS.xls").Close   End Sub

---

A+
EDIT j'espère que les éditions sont correctes, marre de cette connexion qui saute (ouais, j'avais qu'à pas appuyer sur Enter, mais le micro aurait du savoir que c'était pas fini... :mrgreen: )