Filtrer fichier excel sur une colonne

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:

---

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

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

Hello,
Merci pour la réponse :)

Voici le code complet pour la déclaration :

Code:

---

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

---

Bonjour,

Code:

---

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:

---

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

---

Bonjour,

Ok, j'ai testé comme ceci :

Code:

---

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

C'est bon j'ai trouvé! :)

Code:

---

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

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

Merci ;)
J'ai mis dans mes favoris ;)