Discussion :

[thovan]

Bonjour,

Je cherche quelque chose de simple mais je n'arrive pas à coder :
J'aimerais filtrer un fichier excel sur la colonne A avec une valeur "18".
J'ai cherché un peu partout et je trouve toujours la même fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wsExcel_list("Sheet1").Range("A1").AutoFilter(field:=1, Criteria1:="18", VisibleDropDown:=False)

Et cette fonction ne marche pas : pas d'erreur à la compilation mais Visual Studio me donne une erreur à l’exécution.

Je pense que le problème c'est que la formule est du VBA et qu'en VB elle n'est pas pareille... j'ai déjà eu ce problème avec d'autres fonctions mais j'ai pu deviner la syntaxe correcte.
Si quelqu'un pouvait me donner la bonne syntaxe ça me débloquerait bien !

Encore mieux, si quelqu'un à un lien de syntaxe VBA traduite en VB j'aimerais bien l'avoir aussi.

Merci

[Invité]

Bonsoir,

Comment définis tu wsExcel et comment le renseignes tu?

Au vue du nom de la variable je dirais Ws (WorkSheet)

wsExcel.Range("A1").AutoFilter(etc...

[thovan]

Hello,
Merci pour la réponse

Voici le code complet pour la déclaration :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim appExcel_list As Object 'Application Excel
Dim wbExcel_list As Object 'Classeur Excel
Dim wsExcel_list As Object 'Feuille Excel
appExcel_list = CreateObject("Excel.Application")
wbExcel_list = appExcel_list.Workbooks.Open("\\mbn-file-001\Public\VerifScan\Fichiers traités\Listemanquants.xlsx")
wsExcel_list = wbExcel_list.Worksheets(1)
appExcel_list.Sheets(1).Cells.Select
appExcel_list.Sheets(1).Cells.ClearContents
appExcel_list.Sheets(1).Columns("A").ColumnWidth = 25
appExcel_list.Sheets(1).Columns("B").ColumnWidth = 75
appExcel_list.Sheets(1).Range("A1:C999999").HorizontalAlignment = 3

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
appExcel_list = CreateObject("Excel.Application")
wbExcel_list = appExcel_list.Workbooks.Open("\\mbn-file-001\Public\VerifScan\Fichiers traités\Listemanquants.xlsx")
 wsExcel_list = wbExcel_list.Worksheets(1) 'WorkSheet

donc ma réponse reste valable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wsExcel.Range("A1").AutoFilter(etc...

[thovan]

Bonjour,

Ok, j'ai testé comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wsExcel_list.Range("A1").AutoFilter(field:=0, Criteria1:="18", VisibleDropDown:=False)

J'ai cette erreur :
An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in Microsoft.VisualBasic.dll

Additional information: La méthode AutoFilter de la classe Range a échoué.

[thovan]

C'est bon j'ai trouvé!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wsExcel_list.Range("A1").AutoFilter(field:=5, Criteria1:=labo, VisibleDropDown:=False)

J'ai fait deux modfis :
je ne filtre pas le même champ
le critère sur lequel je filtre est maintenant une variable passée en argument selon la valeur d'un combobox lors de l'appel de la fonction.

Mais ça marche au top maintenant
Merci pour le coup de main....

Pour éviter de faire des topics pour ce genre de truc, existe-t-il un site internet reprenant toutes les syntaxes des fonctions excel en VB?
Chaque fois que je cherche je trouve du VBA

[r.morel]

MSDN : https://msdn.microsoft.com/en-us/lib...rop.excel.aspx

[thovan]

Merci
J'ai mis dans mes favoris