[XLS] Lien vers autre classeur à partir d'un filtre

Kikoo all ;)

Voilà, j'ai fait un classeur XLS, comprennant une base de donnée de produits.

Ces produits ne sont pas destinés à tous le monde pour la fiche de commande...

Donc j'ai fait, derriere ma base (Fournisseur, produit, reference, prix, etc...) deux colonnes utilisateurs. En l'occurence Boulanger et Pâtissier.

Donc avec un filtre, je peux sélectionner ou Boulanger ou Pâtissier.

Bon alors moi je veux faire un fichier Pâtissier par exemple, sur lequel ne s'affiche, par un lien, que le filtré "Pâtissier" de la Base ;)

Voilà, si kkun souhaite m'aider... :P

Ou alors deja un copier coller qui respecte le filtre pour l'instant ;)

[:pikacouac]

Cette manip peut se faire par Filtre élaboré ou bien avec une petite macro.

Pour la macro j’ai pris comme exemple que tu as 3 feuilles dans ton classeur (Base, Boulangerie et Patisserie). Tu mets à jour la feuille Base et la macro met à jour la feuille Boulangerie et la feuille Patisserie. Il faut que tu adaptes les colonnes et les lignes à tes feuilles.
Si tu ne sais pas comment faire tu peux m’envoyer ton classeur, je te le fais vite.


Sub MiseAJour()
Dim LigneBase As Integer
Dim LigneBoulangerie As Integer
Dim LignePatisserie As Integer
Application.ScreenUpdating = False
Range("Boulangerie!A2:H1000").Value = ""
Range("Patisserie!A2:H1000").Value = ""
LigneBase = 2
LigneBoulangerie = 2
LignePatisserie = 2
Do Until Trim(Range("A" & LigneBase).Value) = ""
If Trim(Range("I" & LigneBase).Value) = "O" Then
Range("Boulangerie!A" & LigneBoulangerie & ":H" & LigneBoulangerie).Value = Range("A" & LigneBase & ":H" & LigneBase).Value
LigneBoulangerie = LigneBoulangerie + 1
End If
If Trim(Range("J" & LigneBase).Value) = "O" Then
Range("Patisserie!A" & LignePatisserie & ":H" & LignePatisserie).Value = Range("A" & LigneBase & ":H" & LigneBase).Value
LignePatisserie = LignePatisserie + 1
End If
LigneBase = LigneBase + 1
Loop
MsgBox "Mise à jour Ok..."
End Sub