Discussion :

[ELucie]

Bonjour à tous,

N'ayant pas de connaissances solides en VBA, je fais appel à vous...
J'ai dû modifier les données pour raison de confidentialité mais l'objectif reste le même.

J'ai trois feuilles :
- la première constitue ma base de données
- la seconde est un TCD reprenant la BDD pour obtenir par article et par semaine, le nombre d'OF en-cours ainsi que le poids de mes articles.
- La troisième constitue mes articles étudiés.

Je souhaite, par ce code qui me génère une erreur, afficher dans mon TCD seulement les articles inscrits dans ma feuille "Articles" et si possible supprimer ou masquer les autres lignes.
La base d'articles à étudier ne restera pas fixe, des articles peuvent être ajoutés/supprimés. L'objectif étant de pérenniser l'utilisation du fichier.

Après plusieurs recherches, j'ai testé ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Filtrer_TCD()
 
Sheets("Articles").activate
Dim tableau_articles(50)
For i = 2 To 50
       tableau_articles(i) = Range("A" & i)
       i = i + 1
Next
 
x = tableau_articles
Sheets("TCD").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotField("x").PivotItems(Str).Visible = True
End Sub

Le fichier est joint pour une meilleure visualisation.
Je remercie tout ceux qui pourront m'aider dans ma recherche

[78chris]

Bonjour

Multipost...

Tu as ma réponse ailleurs

[ELucie]

Merci pour cette réponse aussi rapide et efficace ! Effectivement, je n'aurais pas du poster sur les deux forums. Cela ne se reproduira pas.