Discussion :

[Jeyjey1]

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 :

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

[Gorfael]

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

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 :

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