Discussion :

[hidozo]

Bonjour,

j'ai ce code qui ne veut pas fonctionner et je ne sais pas pourquoi :

Code :

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

Worksheets("feuil2").Range("a1").AutoFilter Field:=4, Criteria1:=EvaluationBis.Value

en sachant que EvaluationBis est une combobox

Cordialement

Hidozo

[le petit nicolas]

chez moi ca marche en mettant Criteria1:="toto"
qu'est-ce qui ne marche pas ? quel message d'erreur as-tu ?

tu peux peut-etre essayer en décomposant les étapes :

Code :

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

1
2
3
4
 
Worksheets("feuil2").Range("a1").AutoFilter
Set PlageFiltre = Worksheets("feuil2").AutoFilter.Range
PlageFiltre.AutoFilter Field:=4, Criteria1:=EvaluationBis.Value