Optimisation d'un code VBA pour EXCEL [Résolu/Fermé]

Question

Optimisation d'un code VBA pour EXCEL [Résolu/Fermé]

Signaler

schmoe92

Messages postés: 4
Date d'inscription: lundi 8 mars 2010
Statut: Membre
Dernière intervention: 30 septembre 2010

- 8 mars 2010 à 21:40
Gord21

Messages postés: 918
Date d'inscription: samedi 21 novembre 2009
Statut: Membre
Dernière intervention: 20 mars 2013

- 13 mars 2010 à 14:58

Bonjour,

Je viens de faire ce code et je n'arrive pas à le rendre plus simple.
Pouvez-vous m'aider ?

Sub UpdateWeek()

Application.ScreenUpdating = False
Windows("VAR_V20100308.xlsm").Activate
nb = Sheets("VAR_FR_TMP").PivotTables("TCD_VAR_FR_TMP1").PivotFields("Semaine").PivotItems.Count

For l = 1 To 3
With Sheets("VAR_FR_LE_TMP").PivotTables("TCD_VAR_FR_LE_TMP" & l)
For i = 2 To nb
With Sheets("VAR_FR_LE_TMP").PivotTables("TCD_VAR_FR_LE_TMP" & l).PivotFields("Semaine")
.PivotItems(i).Visible = False
End With
Next

For i = 2 To semaine(Now - 14)
With Sheets("VAR_FR_LE_TMP").PivotTables("TCD_VAR_FR_LE_TMP" & l).PivotFields("Semaine")
.PivotItems(i).Visible = True
End With
Next
End With
Next
For l = 1 To 3
With Sheets("VAR_FR_G500_TMP").PivotTables("TCD_VAR_FR_G500_TMP" & l)
For i = 2 To nb
With Sheets("VAR_FR_G500_TMP").PivotTables("TCD_VAR_FR_G500_TMP" & l).PivotFields("Semaine")
.PivotItems(i).Visible = False
End With
Next

For i = 2 To semaine(Now - 14)
With Sheets("VAR_FR_G500_TMP").PivotTables("TCD_VAR_FR_G500_TMP" & l).PivotFields("Semaine")
.PivotItems(i).Visible = True
End With
Next
End With
Next
For l = 1 To 3
With Sheets("VAR_FR_PUB_TMP").PivotTables("TCD_VAR_FR_PUB_TMP" & l)
For i = 2 To nb
With Sheets("VAR_FR_PUB_TMP").PivotTables("TCD_VAR_FR_PUB_TMP" & l).PivotFields("Semaine")
.PivotItems(i).Visible = False
End With
Next

For i = 2 To semaine(Now - 14)
With Sheets("VAR_FR_PUB_TMP").PivotTables("TCD_VAR_FR_PUB_TMP" & l).PivotFields("Semaine")
.PivotItems(i).Visible = True
End With
Next
End With
Next
For l = 1 To 3
With Sheets("VAR_FR_SMB_TMP").PivotTables("TCD_VAR_FR_SMB_TMP" & l)
For i = 2 To nb
With Sheets("VAR_FR_SMB_TMP").PivotTables("TCD_VAR_FR_SMB_TMP" & l).PivotFields("Semaine")
.PivotItems(i).Visible = False
End With
Next

For i = 2 To semaine(Now - 14)
With Sheets("VAR_FR_SMB_TMP").PivotTables("TCD_VAR_FR_SMB_TMP" & l).PivotFields("Semaine")
.PivotItems(i).Visible = True
End With
Next
End With
Next
For l = 1 To 5
With Sheets("VAR_FR_TMP").PivotTables("TCD_VAR_FR_TMP" & l)
For i = 2 To nb
With Sheets("VAR_FR_TMP").PivotTables("TCD_VAR_FR_TMP" & l).PivotFields("Semaine")
.PivotItems(i).Visible = False
End With
Next

For i = 2 To semaine(Now - 14)
With Sheets("VAR_FR_TMP").PivotTables("TCD_VAR_FR_TMP" & l).PivotFields("Semaine")
.PivotItems(i).Visible = True
End With
Next
End With
Next
For l = 1 To 4
With Sheets("DEC_TMP").PivotTables("TCD_AMOSTMP" & l)
For i = 2 To nb
With Sheets("DEC_TMP").PivotTables("TCD_AMOSTMP" & l).PivotFields("Semaine")
.PivotItems(i).Visible = False
End With
Next

For i = 2 To semaine(Now - 14)
With Sheets("DEC_TMP").PivotTables("TCD_AMOSTMP" & l).PivotFields("Semaine")
.PivotItems(i).Visible = True
End With
Next
End With
Next

Application.ScreenUpdating = True

End Sub

Merci pour votre aide
Ludo

Afficher la suite

A voir également:

Optimisation d'un code VBA pour EXCEL
Optimisation d'un code VBA pour EXCEL ✓ - Forum - Excel
Liste de code VBA sous excel 2007 ✓ - Forum - VB / VBA
Code vba dans Excel ✓ - Forum - Excel
Erreur code vba macro excel ✓ - Forum - VB / VBA
Code vba conversion excel en pdf ✓ - Forum - VB / VBA

4 réponses

Posez votre question

Gord21 · Answer 1 · 2010-03-09T22:09:21+0100

Réponse 1 / 4

Gord21

Messages postés: 918
Date d'inscription: samedi 21 novembre 2009
Statut: Membre
Dernière intervention: 20 mars 2013

283
9 mars 2010 à 22:09

Bonsoir,
Voici une proposition, je ne pense pas avoir fait d'erreur de copié-collé

Sub UpdateWeek() 

Dim PF_1 As PivotField
Dim PF_2 As PivotField
Dim PF_3 As PivotField
Dim PF_4 As PivotField
Dim PF_5 As PivotField

Application.ScreenUpdating = False 
Windows("VAR_V20100308.xlsm").Activate 
nb = Sheets("VAR_FR_TMP").PivotTables("TCD_VAR_FR_TMP1").PivotFields("Semaine").PivotItems.Count 

Set PF_1 = Sheets("VAR_FR_LE_TMP").PivotTables("TCD_VAR_FR_LE_TMP" & l).PivotFields("Semaine")
Set PF_2 = Sheets("VAR_FR_G500_TMP").PivotTables("TCD_VAR_FR_G500_TMP" & l).PivotFields("Semaine")
Set PF_3 = Sheets("VAR_FR_PUB_TMP").PivotTables("TCD_VAR_FR_PUB_TMP" & l).PivotFields("Semaine")
Set PF_4 = Sheets("VAR_FR_SMB_TMP").PivotTables("TCD_VAR_FR_SMB_TMP" & l).PivotFields("Semaine")
Set PF_5 = Sheets("VAR_FR_TMP").PivotTables("TCD_VAR_FR_TMP" & l).PivotFields("Semaine")
Set PF_5 = Sheets("DEC_TMP").PivotTables("TCD_AMOSTMP" & l).PivotFields("Semaine")

For l = 1 To 3 
   For i = 2 To semaine(Now - 14) 
      PF_1.PivotItems(i).Visible = True 
      PF_2.PivotItems(i).Visible = True
      PF_3.PivotItems(i).Visible = True
      PF_4.PivotItems(i).Visible = True
      PF_5.PivotItems(i).Visible = True
   Next
   For i = (semaine(Now - 14)+1) To nb 
      PF_1.PivotItems(i).Visible = False
      PF_2.PivotItems(i).Visible = False
      PF_3.PivotItems(i).Visible = False
      PF_4.PivotItems(i).Visible = False
      PF_5.PivotItems(i).Visible = False
   Next 
Next 
 
Application.ScreenUpdating = True 

End Sub

Signaler

schmoe92
10 mars 2010 à 22:24

Bonsoir Gord21,
Merci pour ta réponse.
Lorsque je lance la macro, j'ai un message d'erreur au niveau des variable PF_x.
"Impossible de lire la propriété PivotTables de la classe Worksheet"
Que faire ?
Merci

Signaler

Gord21

Messages postés: 918
Date d'inscription: samedi 21 novembre 2009
Statut: Membre
Dernière intervention: 20 mars 2013

283 > schmoe92
11 mars 2010 à 23:50

Bonsoir,
J'ai remarqué une erreur dans mon code, je pensais que dans chaque boucles, tu avais l = 1 To 3 mais tes deux dernières boucles vont à 5 et 4 donc c'est un premier point qui ne vas pas mais ça ne devrait pas bloquer le code si le tien fonctionne. Je regarde et je te tiens au courant.
Je n'avais pas testé le code, ça m'aiderai si tu me mettais le lien vers ton fichier (si c'est possible)

@+

Signaler

Gord21

Messages postés: 918
Date d'inscription: samedi 21 novembre 2009
Statut: Membre
Dernière intervention: 20 mars 2013

283 > schmoe92
12 mars 2010 à 12:22

Bonjour,
C'est bon j'ai retrouvé mon erreur. Je corrige et je te renvoie. En fait, je n'aurai pas besoin de ton fichier.
@+

Gord21 · Answer 2 · 2010-03-12T13:05:24+0100

Réponse 2 / 4

Gord21

Messages postés: 918
Date d'inscription: samedi 21 novembre 2009
Statut: Membre
Dernière intervention: 20 mars 2013

283
12 mars 2010 à 13:05

Test
Je n'arrive pas à ajouter un nouveau message.

Gord21 · Answer 3 · 2010-03-12T17:48:10+0100

Voici la nouvelle version :

Sub UpdateWeek() 

Application.ScreenUpdating = False 
Windows("VAR_V20100308.xlsm").Activate 
nb = Sheets("VAR_FR_TMP").PivotTables("TCD_VAR_FR_TMP1").PivotFields("Semaine").PivotItems.Count 

For l = 1 To 3 
   With Sheets("VAR_FR_LE_TMP").PivotTables("TCD_VAR_FR_LE_TMP" & l).PivotFields("Semaine") 
      For i = 2 To semaine(Now - 14) 
         .PivotItems(i).Visible = True  
      Next
      For i = (semaine(Now - 14)+1) To nb 
         .PivotItems(i).Visible = False
      Next 
   End With
   With Sheets("VAR_FR_G500_TMP").PivotTables("TCD_VAR_FR_G500_TMP" & l).PivotFields("Semaine") 
      For i = 2 To semaine(Now - 14) 
         .PivotItems(i).Visible = True  
      Next
      For i = (semaine(Now - 14)+1) To nb 
         .PivotItems(i).Visible = False
      Next 
   End With
   With Sheets("VAR_FR_PUB_TMP").PivotTables("TCD_VAR_FR_PUB_TMP" & l).PivotFields("Semaine") 
      For i = 2 To semaine(Now - 14) 
         .PivotItems(i).Visible = True  
      Next
      For i = (semaine(Now - 14)+1) To nb 
         .PivotItems(i).Visible = False
      Next 
   End With
   With Sheets("VAR_FR_SMB_TMP").PivotTables("TCD_VAR_FR_SMB_TMP" & l).PivotFields("Semaine") 
      For i = 2 To semaine(Now - 14) 
         .PivotItems(i).Visible = True  
      Next
      For i = (semaine(Now - 14)+1) To nb 
         .PivotItems(i).Visible = False
      Next 
   End With
Next  
For l = 1 To 5 
   With Sheets("VAR_FR_TMP").PivotTables("TCD_VAR_FR_TMP" & l).PivotFields("Semaine") 
      For i = 2 To semaine(Now - 14) 
         .PivotItems(i).Visible = True  
      Next
      For i = (semaine(Now - 14)+1) To nb 
         .PivotItems(i).Visible = False
      Next
   End With 
Next 
For l = 1 To 4 
   With Sheets("DEC_TMP").PivotTables("TCD_AMOSTMP" & l).PivotFields("Semaine")  
      For i = 2 To semaine(Now - 14) 
         .PivotItems(i).Visible = True  
      Next
      For i = (semaine(Now - 14)+1) To nb 
         .PivotItems(i).Visible = False
      Next 
   End With 
Next 

Application.ScreenUpdating = True 

End Sub

schmoe92 · Answer 4 · 2010-03-13T10:13:54+0100

Réponse 4 / 4

schmoe92

Messages postés: 4
Date d'inscription: lundi 8 mars 2010
Statut: Membre
Dernière intervention: 30 septembre 2010

13 mars 2010 à 10:13

Cool ca marche :-) Merci beaucoup

Signaler

Gord21

Messages postés: 918
Date d'inscription: samedi 21 novembre 2009
Statut: Membre
Dernière intervention: 20 mars 2013

283
13 mars 2010 à 14:58

Bonjour,
Par curiosité, est-ce que tu gagnes beaucoup en temps d'exécution de ta macro ?
@+

Optimisation d'un code VBA pour EXCEL [Résolu/Fermé]

4 réponses

Votre réponse

Newsletter