Si on nomme les variables au sortir de la boite de dialogue:
varCode
varDesignation
et varDiametre
if varcode="" then
range("BDD").AutoFilter .Field:=1
else
range("BDD").AutoFilter .Field:=1, Criteria1:="=*" & varcode &"*"
endif
if vardesignation="" then
range("BDD").AutoFilter .Field:=2
else
range("BDD").AutoFilter .Field:=2, Criteria1:= & vardesignation
endif
if vardiametre="" then vardiametre ="(Tous)"
range("BDD").AutoFilter .Field:=3
else
range("BDD").AutoFilter .Field:=3, Criteria1:= & vardiametre
endif
Testé en partie mais pas complétement, utilisé sur le 2ème et 3ème if mais
pas sur le premier (avec la gestion des contient "*abc*")
A+
Shnoulle
De : "fab" <thorgal1978@hotmail.com>
Société : Guest of ProXad - France
Groupes : microsoft.public.fr.excel
Date : Mon, 19 Jul 2004 18:49:35 +0200
Objet : boite de dialogue