Discussion :

[dodo69]

Bonjour à tous,

En tant que débutant, je m'adresse à vous pour savoir si ce code peut s'éxécuter de manière plsu rapide...

Globalement, j'ai l'impression qu'elle met longtemps à éxécuter la ligne en rouge ci-dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Application.screenUpdating=false

Tb = Worksheets("code").Range("S3:S100")

Set PVT = Worksheets("PIVOT for Region").PivotTables("PivotTable1").PivotFields("dbo_t_BUSINESS_LINE_Name")


With PVT
    .ClearAllFilters
    On Error Resume Next
    .PivotItems(Tb(1, 1)).Visible = True
    For i = 1 To .PivotItems.Count
        .PivotItems(i).Visible = .PivotItems(i) = Tb(1, 1) Or Not .PivotItems(i).Visible   
 Next i
    For i = 2 To UBound(Tb)
        .PivotItems(Tb(i, 1)).Visible = True
    Next i
End With
Application.screenUpdating=true

Merci de m'aider
Cdlt
DoDo

[Jean-Philippe André]

salut,

une attribution de valeur comme ca avec un or c'est moyen.

Code :

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

.PivotItems(i).Visible = .PivotItems(i) = Tb(1, 1) Or Not .PivotItems(i).Visible

Deja a la lecture j'etais comme ca
Tu peux simplement remplacer par une test if en amont sur les cas que tu souhaites traiter

[dodo69]

Bonjour jpcheck,

Merci pour ta réponse qui me semble être une bonne idée

Mais je tavouerai ne pas comprendre l'éxécution de ce code :s
Il m'a été fourni par mercatoq, que je remercie d'ailleurs

http://www.developpez.net/forums/d11...el/filtre-tcd/

Donc je ne sais pas trop quel test je pourrai faire uvec un If :s

A bon entendeur,
Merci de m'aider

Cdlt
DoDo

[mercatog]

ça revient à ça:

Code :

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

If .PivotItems(i) <> Tb(1, 1) And .PivotItems(i).Visible = True Then .PivotItems(i).Visible = False

Le but du code est de rendre visible l'item Tb(1,1)
Ensuite, je cache tous les autres (non cachés) autre que Tb(1,1)
Enfin, de rendre visible les autres items contenus dans Tb

c'est un peu tordu mais c'était la logique.

[Jean-Philippe André]

Yep,

j'avais un peu de retard a l'allumage ce matin

[dodo69]

Bonjour les pro

Donc si j'ai suivi, il est difficilement possible de faire mieux en terme de rapidité que le code fourni au départ ?

Merci en tout cas,
Cordialement
DoDo

PS: Si c'est le cas je pense que je vais fermer ce topic qui n'a pas grande utilité...

Merci