Discussion :

[stan057]

Bonjour,

Je suis actuellement en train de travailler sur une macro excel et mon problème est le suivant:

Je crée une liste de founisseurs, puis je souhaite m'en servir pour modifier les filtres de mon TCD.

Code :

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

1
2
3
4
5
6
7
8
9
'On crée la collection de Fournisseurs:
Dim ListeFournisseurs As New Collection
 
'On remplit la collection
...
 
'Voici ensuite la ligne de manipulation TCD:
 
ActiveSheet.PivotTables("TCD SPLIT").PivotFields("fournisseur").PivotItems(ListeFournisseurs(2)).Visible = True

Cette ligne ne fonctionne pas car ListeFournisseurs(2) == PUMA
Or, il foudrait que ça ressorte "PUMA", avec les guillemets.

J'ai essayé

Code :

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

ActiveSheet.PivotTables("TCD SPLIT").PivotFields("fournisseur").PivotItems(" & ListeFournisseurs(2) & ").Visible = True

mais bien évidement le programme interprete & ListeFournisseurs(2) & comme une chaine de caractères...

J'ai fait quelques autre tentatives mais sans succès.

Quelqu'un a t-il la solution à ce problème?

Merci d'avance!

[DeaD78]

Salut,

Il faut simplement doubler les double guillemets.

Dans ton cas, ça donne :

Code :

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

""""" & ListeFournisseurs(2) & """""

Bonne continuation.

A+