Bonjour à tous,
Je cherche à crée un filtre élaboré dynamique.
Mon objectif est de à partir d'une "bibliothèque" recensant des produits, je puisse selon des critères définis dans la bibliothèque retrouvé mes produits.
J'explique mieux:
- j'ai créer une feuille "bibliothèque" recensant tous mes produits avec leur caractéristiques (ex:fondations)
- j'ai créer une feuille "critères" où je voudrais rentrer à la main des critères correspondants à mes produits (ex: sans vibration)
- j'ai créer une feuille "résultats" ou je veux qu'en fonction de mes critères rentrés, il me donne la liste de mes produits répondants à ces critères.
J'ai pu créer le code suivant (module1) mais il y a un problème avec le "CopyToRange".
Option Explicit
Sub Filtrer()
Application.ScreenUpdating = False
Call Nettoyer
Range("Input").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("Criteria"), _
CopyToRange:=Range("Extract")
Application.ScreenUpdating = True
End Sub
Private Sub Nettoyer()
With Feuil3.Range("A2300")
.ClearContents
End With
End Sub
Quelqu'un peut me dire quel est ce problème?
Merci beaucoup.
Yoyobat
Je cherche à crée un filtre élaboré dynamique.
Mon objectif est de à partir d'une "bibliothèque" recensant des produits, je puisse selon des critères définis dans la bibliothèque retrouvé mes produits.
J'explique mieux:
- j'ai créer une feuille "bibliothèque" recensant tous mes produits avec leur caractéristiques (ex:fondations)
- j'ai créer une feuille "critères" où je voudrais rentrer à la main des critères correspondants à mes produits (ex: sans vibration)
- j'ai créer une feuille "résultats" ou je veux qu'en fonction de mes critères rentrés, il me donne la liste de mes produits répondants à ces critères.
J'ai pu créer le code suivant (module1) mais il y a un problème avec le "CopyToRange".
Option Explicit
Sub Filtrer()
Application.ScreenUpdating = False
Call Nettoyer
Range("Input").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("Criteria"), _
CopyToRange:=Range("Extract")
Application.ScreenUpdating = True
End Sub
Private Sub Nettoyer()
With Feuil3.Range("A2300")
.ClearContents
End With
End Sub
Quelqu'un peut me dire quel est ce problème?
Merci beaucoup.
Yoyobat