OVH Cloud OVH Cloud

filtrer par vba

1 réponse
Avatar
df
Bonjour

J'ai plusieurs liste d=E9roulante qui me permette de=20
d=E9clencher un filtre.=20
Au lieu de r=E9p=E9ter ce filtre apr=E9s mise =E0 jour du controle
j'ai d=E9fini mon filtre dans une fonction
Sub filtrer
selec case Me!ctrl
Case 1
Me.filter =3D....
Me.filterOn=3Dtrue
Case 2
Me.filter=3D...
....
end sub

et apr=E9s mise =E0 jour de mes liste d=E9roulante
Private sub ctrl1_afterUpdate
filtrer
end sub

Cela apparemment fonctionne

Est-ce la meilleur solution? ou vaut-il mieux r=E9p=E9ter le=20
filtre apr=E9s chaque mise =E0 jour des liste?

Merci

1 réponse

Avatar
Raymond [mvp]
Bonjour.

ton filtre étant basé sur la valeur de plusieurs listes, il faut le
recharger à chaque changement d'une des valeurs d'une liste. Tu fais une
fonction globale de test de tes valeurs de listes comme l'exemple que tu
donnes et tu exécutes cette fonction sur l'événement afterupdate de chaque
liste.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"df" a écrit dans le message de news:
006101c4f8c7$8da13830$
Bonjour

J'ai plusieurs liste déroulante qui me permette de
déclencher un filtre.
Au lieu de répéter ce filtre aprés mise à jour du controle
j'ai défini mon filtre dans une fonction
Sub filtrer
selec case Me!ctrl
Case 1
Me.filter =....
Me.filterOn=true
Case 2
Me.filter=...
....
end sub

et aprés mise à jour de mes liste déroulante
Private sub ctrl1_afterUpdate
filtrer
end sub

Cela apparemment fonctionne

Est-ce la meilleur solution? ou vaut-il mieux répéter le
filtre aprés chaque mise à jour des liste?

Merci