mistercoke
XLDnaute Junior
Bonjour les xldiens 
Je cherche a réaliser 4 tableaux pour comparatifs.
Les données se trouvent dans un tableau dans lequel sont répertoriées tous les produits ( Evolutif au quotidien ). Via une liste (Liste imbriquée) pour choisir le produit souhaité je cherche a afficher uniquement les données associé au produit. J'ai essayé avec une méthode de Mr Boigontier () mais comme les produits ne sont pas triés et évolutif je pense que cela n'est pas possible de cette manière. Si quelqu'un a une idée de traitement je suis preneur.
Sinon je pense peut etre pouvoir m'en sortir avec une macro mais je n'arrive pas à dire en VB qu'il prenne le critère de sélection en fonction de la valeur de la cellule.
Le sub simple via un filtre est du type :
Sub Test_import_données_produit1()
Sheets("BD").Select
Rows("3:3").Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="D1-G-W"<=Fonction de la valeur Feuil!("Suivi").range(G2)--->Avec value cela ne marche pas, comment faire?
Range("D4").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Suivi").Select
ActiveSheet.Paste
Sheets("BD").Select
Rows("3:3").Select
Application.CutCopyMode = False
Selection.AutoFilter
Sheets("Suivi").Select
Range("A1").Select
En attendant je vais essayé de faire quelque chose avec des macros et essayé de trouvé un autre moyen via une base de donnée. JE vous joint un fichier histoire que ca vous parle d'avantage.
D'avance merci les pros.
Je cherche a réaliser 4 tableaux pour comparatifs.
Les données se trouvent dans un tableau dans lequel sont répertoriées tous les produits ( Evolutif au quotidien ). Via une liste (Liste imbriquée) pour choisir le produit souhaité je cherche a afficher uniquement les données associé au produit. J'ai essayé avec une méthode de Mr Boigontier () mais comme les produits ne sont pas triés et évolutif je pense que cela n'est pas possible de cette manière. Si quelqu'un a une idée de traitement je suis preneur.
Sinon je pense peut etre pouvoir m'en sortir avec une macro mais je n'arrive pas à dire en VB qu'il prenne le critère de sélection en fonction de la valeur de la cellule.
Le sub simple via un filtre est du type :
Sub Test_import_données_produit1()
Sheets("BD").Select
Rows("3:3").Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="D1-G-W"<=Fonction de la valeur Feuil!("Suivi").range(G2)--->Avec value cela ne marche pas, comment faire?
Range("D4").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Suivi").Select
ActiveSheet.Paste
Sheets("BD").Select
Rows("3:3").Select
Application.CutCopyMode = False
Selection.AutoFilter
Sheets("Suivi").Select
Range("A1").Select
En attendant je vais essayé de faire quelque chose avec des macros et essayé de trouvé un autre moyen via une base de donnée. JE vous joint un fichier histoire que ca vous parle d'avantage.
D'avance merci les pros.
