Bonsoir,


Cette ligne marche bien
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Me.Filter = "FamilleArticle = 'PERSONNEL' And FournisseurArticle = 'XXX'"

Mais quand je souhaite remplace par des variables ou des valeurs issues des listes de sélection
ça ne marche plus. J'ai tenté dans tous les sens, rien à faire.
C'est certainement à cause des " ou '

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Dim Famille, Fournisseur
Famille = "PERSONNEL"
Fournisseur = "XXX"
Me.Filter = "FamilleArticle = '" & Famille & "'" And FournisseurArticle = Fournisseur & "'"
Quelqu'un peut m'aider à codifier correctement le filtre ci-dessus ?

Merci d'avance.


Cordialement