Bonsoir a vous tous,
voila j'ai effectué une requete avec l'enregistreur de requete, qui fonctionne tres bien, j'ai quand meme un souci c'est que cette requete est tres longue a s'executer. je vous joint cette requete si quelques avait une idée pour la rendre a peine plus rapide.
Merci par avance pour votre aide.
herve.
voila j'ai effectué une requete avec l'enregistreur de requete, qui fonctionne tres bien, j'ai quand meme un souci c'est que cette requete est tres longue a s'executer. je vous joint cette requete si quelques avait une idée pour la rendre a peine plus rapide.
Merci par avance pour votre aide.
herve.
Code:
Sub gametype()
'
' gametype Macro
'
'
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
EnableMultiplePageItems = True
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Reel Power").Visible = False
.PivotItems("ARISTOCRAT Video Reel").Visible = False
.PivotItems("ATRONIC Video Multiway").Visible = False
.PivotItems("ATRONIC Video Reel").Visible = False
.PivotItems("Cash Express Prog.").Visible = False
.PivotItems("Cash Fever Prog.").Visible = False
.PivotItems("Diamond Jackpots Prog.").Visible = False
.PivotItems("Fort Knox Prog.").Visible = False
.PivotItems("IGT Multi Poker").Visible = False
.PivotItems("IGT Reel").Visible = False
.PivotItems("IGT Reel + BONUS").Visible = False
.PivotItems("IGT VIDEO MultiPlay").Visible = False
.PivotItems("IGT VIDEO Multiway").Visible = False
.PivotItems("IGT VIDEO Reel").Visible = False
.PivotItems("King Kong Cash Prog.").Visible = False
.PivotItems("Magic Five Prog.").Visible = False
.PivotItems("Novo. Roulette").Visible = False
.PivotItems("Party Time Prog.").Visible = False
.PivotItems("Red Hot Jackpots Prog.").Visible = False
.PivotItems("Royal Ascot").Visible = False
.PivotItems("StartGate Prog.").Visible = False
End With
Range("A12:L187").Select
Selection.Copy
Sheets("F1").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Reel Power").Visible = True
.PivotItems("ARISTOCRAT Video Reel").Visible = True
.PivotItems("ATRONIC Video Multiway").Visible = True
.PivotItems("ATRONIC Video Reel").Visible = True
.PivotItems("Cash Express Prog.").Visible = True
.PivotItems("Cash Fever Prog.").Visible = True
.PivotItems("Diamond Jackpots Prog.").Visible = True
.PivotItems("Fort Knox Prog.").Visible = True
.PivotItems("IGT Multi Poker").Visible = True
.PivotItems("IGT Reel").Visible = True
.PivotItems("IGT Reel + BONUS").Visible = True
.PivotItems("IGT VIDEO MultiPlay").Visible = True
.PivotItems("IGT VIDEO Multiway").Visible = True
.PivotItems("IGT VIDEO Reel").Visible = True
.PivotItems("King Kong Cash Prog.").Visible = True
.PivotItems("Magic Five Prog.").Visible = True
.PivotItems("Novo. Roulette").Visible = True
.PivotItems("Party Time Prog.").Visible = True
.PivotItems("Red Hot Jackpots Prog.").Visible = True
.PivotItems("Royal Ascot").Visible = True
.PivotItems("StartGate Prog.").Visible = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = False
.PivotItems("ARISTOCRAT Video Reel").Visible = False
.PivotItems("ATRONIC Video Multiway").Visible = False
.PivotItems("ATRONIC Video Reel").Visible = False
.PivotItems("Cash Express Prog.").Visible = False
.PivotItems("Cash Fever Prog.").Visible = False
.PivotItems("Diamond Jackpots Prog.").Visible = False
.PivotItems("Fort Knox Prog.").Visible = False
.PivotItems("IGT Multi Poker").Visible = False
.PivotItems("IGT Reel").Visible = False
.PivotItems("IGT Reel + BONUS").Visible = False
.PivotItems("IGT VIDEO MultiPlay").Visible = False
.PivotItems("IGT VIDEO Multiway").Visible = False
.PivotItems("IGT VIDEO Reel").Visible = False
.PivotItems("King Kong Cash Prog.").Visible = False
.PivotItems("Magic Five Prog.").Visible = False
.PivotItems("Novo. Roulette").Visible = False
.PivotItems("Party Time Prog.").Visible = False
.PivotItems("Red Hot Jackpots Prog.").Visible = False
.PivotItems("Royal Ascot").Visible = False
.PivotItems("StartGate Prog.").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("F2").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = True
.PivotItems("ARISTOCRAT Video Reel").Visible = True
.PivotItems("ATRONIC Video Multiway").Visible = True
.PivotItems("ATRONIC Video Reel").Visible = True
.PivotItems("Cash Express Prog.").Visible = True
.PivotItems("Cash Fever Prog.").Visible = True
.PivotItems("Diamond Jackpots Prog.").Visible = True
.PivotItems("Fort Knox Prog.").Visible = True
.PivotItems("IGT Multi Poker").Visible = True
.PivotItems("IGT Reel").Visible = True
.PivotItems("IGT Reel + BONUS").Visible = True
.PivotItems("IGT VIDEO MultiPlay").Visible = True
.PivotItems("IGT VIDEO Multiway").Visible = True
.PivotItems("IGT VIDEO Reel").Visible = True
.PivotItems("King Kong Cash Prog.").Visible = True
.PivotItems("Magic Five Prog.").Visible = True
.PivotItems("Novo. Roulette").Visible = True
.PivotItems("Party Time Prog.").Visible = True
.PivotItems("Red Hot Jackpots Prog.").Visible = True
.PivotItems("Royal Ascot").Visible = True
.PivotItems("StartGate Prog.").Visible = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = False
.PivotItems("ARISTOCRAT Reel Power").Visible = False
.PivotItems("ATRONIC Video Multiway").Visible = False
.PivotItems("ATRONIC Video Reel").Visible = False
.PivotItems("Cash Express Prog.").Visible = False
.PivotItems("Cash Fever Prog.").Visible = False
.PivotItems("Diamond Jackpots Prog.").Visible = False
.PivotItems("Fort Knox Prog.").Visible = False
.PivotItems("IGT Multi Poker").Visible = False
.PivotItems("IGT Reel").Visible = False
.PivotItems("IGT Reel + BONUS").Visible = False
.PivotItems("IGT VIDEO MultiPlay").Visible = False
.PivotItems("IGT VIDEO Multiway").Visible = False
.PivotItems("IGT VIDEO Reel").Visible = False
.PivotItems("King Kong Cash Prog.").Visible = False
.PivotItems("Magic Five Prog.").Visible = False
.PivotItems("Novo. Roulette").Visible = False
.PivotItems("Party Time Prog.").Visible = False
.PivotItems("Red Hot Jackpots Prog.").Visible = False
.PivotItems("Royal Ascot").Visible = False
.PivotItems("StartGate Prog.").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("F4").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("F3").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = True
.PivotItems("ARISTOCRAT Reel Power").Visible = True
.PivotItems("ATRONIC Video Multiway").Visible = True
.PivotItems("ATRONIC Video Reel").Visible = True
.PivotItems("Cash Express Prog.").Visible = True
.PivotItems("Cash Fever Prog.").Visible = True
.PivotItems("Diamond Jackpots Prog.").Visible = True
.PivotItems("Fort Knox Prog.").Visible = True
.PivotItems("IGT Multi Poker").Visible = True
.PivotItems("IGT Reel").Visible = True
.PivotItems("IGT Reel + BONUS").Visible = True
.PivotItems("IGT VIDEO MultiPlay").Visible = True
.PivotItems("IGT VIDEO Multiway").Visible = True
.PivotItems("IGT VIDEO Reel").Visible = True
.PivotItems("King Kong Cash Prog.").Visible = True
.PivotItems("Magic Five Prog.").Visible = True
.PivotItems("Novo. Roulette").Visible = True
.PivotItems("Party Time Prog.").Visible = True
.PivotItems("Red Hot Jackpots Prog.").Visible = True
.PivotItems("Royal Ascot").Visible = True
.PivotItems("StartGate Prog.").Visible = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = False
.PivotItems("ARISTOCRAT Reel Power").Visible = False
.PivotItems("ARISTOCRAT Video Reel").Visible = False
.PivotItems("ATRONIC Video Reel").Visible = False
.PivotItems("Cash Express Prog.").Visible = False
.PivotItems("Cash Fever Prog.").Visible = False
.PivotItems("Diamond Jackpots Prog.").Visible = False
.PivotItems("Fort Knox Prog.").Visible = False
.PivotItems("IGT Multi Poker").Visible = False
.PivotItems("IGT Reel").Visible = False
.PivotItems("IGT Reel + BONUS").Visible = False
.PivotItems("IGT VIDEO MultiPlay").Visible = False
.PivotItems("IGT VIDEO Multiway").Visible = False
.PivotItems("IGT VIDEO Reel").Visible = False
.PivotItems("King Kong Cash Prog.").Visible = False
.PivotItems("Magic Five Prog.").Visible = False
.PivotItems("Novo. Roulette").Visible = False
.PivotItems("Party Time Prog.").Visible = False
.PivotItems("Red Hot Jackpots Prog.").Visible = False
.PivotItems("Royal Ascot").Visible = False
.PivotItems("StartGate Prog.").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("F4").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = True
.PivotItems("ARISTOCRAT Reel Power").Visible = True
.PivotItems("ARISTOCRAT Video Reel").Visible = True
.PivotItems("ATRONIC Video Reel").Visible = True
.PivotItems("Cash Express Prog.").Visible = True
.PivotItems("Cash Fever Prog.").Visible = True
.PivotItems("Diamond Jackpots Prog.").Visible = True
.PivotItems("Fort Knox Prog.").Visible = True
.PivotItems("IGT Multi Poker").Visible = True
.PivotItems("IGT Reel").Visible = True
.PivotItems("IGT Reel + BONUS").Visible = True
.PivotItems("IGT VIDEO MultiPlay").Visible = True
.PivotItems("IGT VIDEO Multiway").Visible = True
.PivotItems("IGT VIDEO Reel").Visible = True
.PivotItems("King Kong Cash Prog.").Visible = True
.PivotItems("Magic Five Prog.").Visible = True
.PivotItems("Novo. Roulette").Visible = True
.PivotItems("Party Time Prog.").Visible = True
.PivotItems("Red Hot Jackpots Prog.").Visible = True
.PivotItems("Royal Ascot").Visible = True
.PivotItems("StartGate Prog.").Visible = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = False
.PivotItems("ARISTOCRAT Reel Power").Visible = False
.PivotItems("ARISTOCRAT Video Reel").Visible = False
.PivotItems("ATRONIC Video Multiway").Visible = False
.PivotItems("Cash Express Prog.").Visible = False
.PivotItems("Cash Fever Prog.").Visible = False
.PivotItems("Diamond Jackpots Prog.").Visible = False
.PivotItems("Fort Knox Prog.").Visible = False
.PivotItems("IGT Multi Poker").Visible = False
.PivotItems("IGT Reel").Visible = False
.PivotItems("IGT Reel + BONUS").Visible = False
.PivotItems("IGT VIDEO MultiPlay").Visible = False
.PivotItems("IGT VIDEO Multiway").Visible = False
.PivotItems("IGT VIDEO Reel").Visible = False
.PivotItems("King Kong Cash Prog.").Visible = False
.PivotItems("Magic Five Prog.").Visible = False
.PivotItems("Novo. Roulette").Visible = False
.PivotItems("Party Time Prog.").Visible = False
.PivotItems("Red Hot Jackpots Prog.").Visible = False
.PivotItems("Royal Ascot").Visible = False
.PivotItems("StartGate Prog.").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("F5").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = True
.PivotItems("ARISTOCRAT Reel Power").Visible = True
.PivotItems("ARISTOCRAT Video Reel").Visible = True
.PivotItems("ATRONIC Video Multiway").Visible = True
.PivotItems("Cash Express Prog.").Visible = True
.PivotItems("Cash Fever Prog.").Visible = True
.PivotItems("Diamond Jackpots Prog.").Visible = True
.PivotItems("Fort Knox Prog.").Visible = True
.PivotItems("IGT Multi Poker").Visible = True
.PivotItems("IGT Reel").Visible = True
.PivotItems("IGT Reel + BONUS").Visible = True
.PivotItems("IGT VIDEO MultiPlay").Visible = True
.PivotItems("IGT VIDEO Multiway").Visible = True
.PivotItems("IGT VIDEO Reel").Visible = True
.PivotItems("King Kong Cash Prog.").Visible = True
.PivotItems("Magic Five Prog.").Visible = True
.PivotItems("Novo. Roulette").Visible = True
.PivotItems("Party Time Prog.").Visible = True
.PivotItems("Red Hot Jackpots Prog.").Visible = True
.PivotItems("Royal Ascot").Visible = True
.PivotItems("StartGate Prog.").Visible = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = False
.PivotItems("ARISTOCRAT Reel Power").Visible = False
.PivotItems("ARISTOCRAT Video Reel").Visible = False
.PivotItems("ATRONIC Video Multiway").Visible = False
.PivotItems("ATRONIC Video Reel").Visible = False
.PivotItems("Cash Fever Prog.").Visible = False
.PivotItems("Diamond Jackpots Prog.").Visible = False
.PivotItems("Fort Knox Prog.").Visible = False
.PivotItems("IGT Multi Poker").Visible = False
.PivotItems("IGT Reel").Visible = False
.PivotItems("IGT Reel + BONUS").Visible = False
.PivotItems("IGT VIDEO MultiPlay").Visible = False
.PivotItems("IGT VIDEO Multiway").Visible = False
.PivotItems("IGT VIDEO Reel").Visible = False
.PivotItems("King Kong Cash Prog.").Visible = False
.PivotItems("Magic Five Prog.").Visible = False
.PivotItems("Novo. Roulette").Visible = False
.PivotItems("Party Time Prog.").Visible = False
.PivotItems("Red Hot Jackpots Prog.").Visible = False
.PivotItems("Royal Ascot").Visible = False
.PivotItems("StartGate Prog.").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("F6").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = True
.PivotItems("ARISTOCRAT Reel Power").Visible = True
.PivotItems("ARISTOCRAT Video Reel").Visible = True
.PivotItems("ATRONIC Video Multiway").Visible = True
.PivotItems("ATRONIC Video Reel").Visible = True
.PivotItems("Cash Fever Prog.").Visible = True
.PivotItems("Diamond Jackpots Prog.").Visible = True
.PivotItems("Fort Knox Prog.").Visible = True
.PivotItems("IGT Multi Poker").Visible = True
.PivotItems("IGT Reel").Visible = True
.PivotItems("IGT Reel + BONUS").Visible = True
.PivotItems("IGT VIDEO MultiPlay").Visible = True
.PivotItems("IGT VIDEO Multiway").Visible = True
.PivotItems("IGT VIDEO Reel").Visible = True
.PivotItems("King Kong Cash Prog.").Visible = True
.PivotItems("Magic Five Prog.").Visible = True
.PivotItems("Novo. Roulette").Visible = True
.PivotItems("Party Time Prog.").Visible = True
.PivotItems("Red Hot Jackpots Prog.").Visible = True
.PivotItems("Royal Ascot").Visible = True
.PivotItems("StartGate Prog.").Visible = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = False
.PivotItems("ARISTOCRAT Reel Power").Visible = False
.PivotItems("ARISTOCRAT Video Reel").Visible = False
.PivotItems("ATRONIC Video Multiway").Visible = False
.PivotItems("ATRONIC Video Reel").Visible = False
.PivotItems("Cash Express Prog.").Visible = False
.PivotItems("Diamond Jackpots Prog.").Visible = False
.PivotItems("Fort Knox Prog.").Visible = False
.PivotItems("IGT Multi Poker").Visible = False
.PivotItems("IGT Reel").Visible = False
.PivotItems("IGT Reel + BONUS").Visible = False
.PivotItems("IGT VIDEO MultiPlay").Visible = False
.PivotItems("IGT VIDEO Multiway").Visible = False
.PivotItems("IGT VIDEO Reel").Visible = False
.PivotItems("King Kong Cash Prog.").Visible = False
.PivotItems("Magic Five Prog.").Visible = False
.PivotItems("Novo. Roulette").Visible = False
.PivotItems("Party Time Prog.").Visible = False
.PivotItems("Red Hot Jackpots Prog.").Visible = False
.PivotItems("Royal Ascot").Visible = False
.PivotItems("StartGate Prog.").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("F7").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = True
.PivotItems("ARISTOCRAT Reel Power").Visible = True
.PivotItems("ARISTOCRAT Video Reel").Visible = True
.PivotItems("ATRONIC Video Multiway").Visible = True
.PivotItems("ATRONIC Video Reel").Visible = True
.PivotItems("Cash Express Prog.").Visible = True
.PivotItems("Diamond Jackpots Prog.").Visible = True
.PivotItems("Fort Knox Prog.").Visible = True
.PivotItems("IGT Multi Poker").Visible = True
.PivotItems("IGT Reel").Visible = True
.PivotItems("IGT Reel + BONUS").Visible = True
.PivotItems("IGT VIDEO MultiPlay").Visible = True
.PivotItems("IGT VIDEO Multiway").Visible = True
.PivotItems("IGT VIDEO Reel").Visible = True
.PivotItems("King Kong Cash Prog.").Visible = True
.PivotItems("Magic Five Prog.").Visible = True
.PivotItems("Novo. Roulette").Visible = True
.PivotItems("Party Time Prog.").Visible = True
.PivotItems("Red Hot Jackpots Prog.").Visible = True
.PivotItems("Royal Ascot").Visible = True
.PivotItems("StartGate Prog.").Visible = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = False
.PivotItems("ARISTOCRAT Reel Power").Visible = False
.PivotItems("ARISTOCRAT Video Reel").Visible = False
.PivotItems("ATRONIC Video Multiway").Visible = False
.PivotItems("ATRONIC Video Reel").Visible = False
.PivotItems("Cash Express Prog.").Visible = False
.PivotItems("Cash Fever Prog.").Visible = False
.PivotItems("Fort Knox Prog.").Visible = False
.PivotItems("IGT Multi Poker").Visible = False
.PivotItems("IGT Reel").Visible = False
.PivotItems("IGT Reel + BONUS").Visible = False
.PivotItems("IGT VIDEO MultiPlay").Visible = False
.PivotItems("IGT VIDEO Multiway").Visible = False
.PivotItems("IGT VIDEO Reel").Visible = False
.PivotItems("King Kong Cash Prog.").Visible = False
.PivotItems("Magic Five Prog.").Visible = False
.PivotItems("Novo. Roulette").Visible = False
.PivotItems("Party Time Prog.").Visible = False
.PivotItems("Red Hot Jackpots Prog.").Visible = False
.PivotItems("Royal Ascot").Visible = False
.PivotItems("StartGate Prog.").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("F8").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = True
.PivotItems("ARISTOCRAT Reel Power").Visible = True
.PivotItems("ARISTOCRAT Video Reel").Visible = True
.PivotItems("ATRONIC Video Multiway").Visible = True
.PivotItems("ATRONIC Video Reel").Visible = True
.PivotItems("Cash Express Prog.").Visible = True
.PivotItems("Cash Fever Prog.").Visible = True
.PivotItems("Fort Knox Prog.").Visible = True
.PivotItems("IGT Multi Poker").Visible = True
.PivotItems("IGT Reel").Visible = True
.PivotItems("IGT Reel + BONUS").Visible = True
.PivotItems("IGT VIDEO MultiPlay").Visible = True
.PivotItems("IGT VIDEO Multiway").Visible = True
.PivotItems("IGT VIDEO Reel").Visible = True
.PivotItems("King Kong Cash Prog.").Visible = True
.PivotItems("Magic Five Prog.").Visible = True
.PivotItems("Novo. Roulette").Visible = True
.PivotItems("Party Time Prog.").Visible = True
.PivotItems("Red Hot Jackpots Prog.").Visible = True
.PivotItems("Royal Ascot").Visible = True
.PivotItems("StartGate Prog.").Visible = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = False
.PivotItems("ARISTOCRAT Reel Power").Visible = False
.PivotItems("ARISTOCRAT Video Reel").Visible = False
.PivotItems("ATRONIC Video Multiway").Visible = False
.PivotItems("ATRONIC Video Reel").Visible = False
.PivotItems("Cash Express Prog.").Visible = False
.PivotItems("Cash Fever Prog.").Visible = False
.PivotItems("Diamond Jackpots Prog.").Visible = False
.PivotItems("IGT Multi Poker").Visible = False
.PivotItems("IGT Reel").Visible = False
.PivotItems("IGT Reel + BONUS").Visible = False
.PivotItems("IGT VIDEO MultiPlay").Visible = False
.PivotItems("IGT VIDEO Multiway").Visible = False
.PivotItems("IGT VIDEO Reel").Visible = False
.PivotItems("King Kong Cash Prog.").Visible = False
.PivotItems("Magic Five Prog.").Visible = False
.PivotItems("Novo. Roulette").Visible = False
.PivotItems("Party Time Prog.").Visible = False
.PivotItems("Red Hot Jackpots Prog.").Visible = False
.PivotItems("Royal Ascot").Visible = False
.PivotItems("StartGate Prog.").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("F9").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = True
.PivotItems("ARISTOCRAT Reel Power").Visible = True
.PivotItems("ARISTOCRAT Video Reel").Visible = True
.PivotItems("ATRONIC Video Multiway").Visible = True
.PivotItems("ATRONIC Video Reel").Visible = True
.PivotItems("Cash Express Prog.").Visible = True
.PivotItems("Cash Fever Prog.").Visible = True
.PivotItems("Diamond Jackpots Prog.").Visible = True
.PivotItems("IGT Multi Poker").Visible = True
.PivotItems("IGT Reel").Visible = True
.PivotItems("IGT Reel + BONUS").Visible = True
.PivotItems("IGT VIDEO MultiPlay").Visible = True
.PivotItems("IGT VIDEO Multiway").Visible = True
.PivotItems("IGT VIDEO Reel").Visible = True
.PivotItems("King Kong Cash Prog.").Visible = True
.PivotItems("Magic Five Prog.").Visible = True
.PivotItems("Novo. Roulette").Visible = True
.PivotItems("Party Time Prog.").Visible = True
.PivotItems("Red Hot Jackpots Prog.").Visible = True
.PivotItems("Royal Ascot").Visible = True
.PivotItems("StartGate Prog.").Visible = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = False
.PivotItems("ARISTOCRAT Reel Power").Visible = False
.PivotItems("ARISTOCRAT Video Reel").Visible = False
.PivotItems("ATRONIC Video Multiway").Visible = False
.PivotItems("ATRONIC Video Reel").Visible = False
.PivotItems("Cash Express Prog.").Visible = False
.PivotItems("Cash Fever Prog.").Visible = False
.PivotItems("Diamond Jackpots Prog.").Visible = False
.PivotItems("Fort Knox Prog.").Visible = False
.PivotItems("IGT Reel").Visible = False
.PivotItems("IGT Reel + BONUS").Visible = False
.PivotItems("IGT VIDEO MultiPlay").Visible = False
.PivotItems("IGT VIDEO Multiway").Visible = False
.PivotItems("IGT VIDEO Reel").Visible = False
.PivotItems("King Kong Cash Prog.").Visible = False
.PivotItems("Magic Five Prog.").Visible = False
.PivotItems("Novo. Roulette").Visible = False
.PivotItems("Party Time Prog.").Visible = False
.PivotItems("Red Hot Jackpots Prog.").Visible = False
.PivotItems("Royal Ascot").Visible = False
.PivotItems("StartGate Prog.").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("F10").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = True
.PivotItems("ARISTOCRAT Reel Power").Visible = True
.PivotItems("ARISTOCRAT Video Reel").Visible = True
.PivotItems("ATRONIC Video Multiway").Visible = True
.PivotItems("ATRONIC Video Reel").Visible = True
.PivotItems("Cash Express Prog.").Visible = True
.PivotItems("Cash Fever Prog.").Visible = True
.PivotItems("Diamond Jackpots Prog.").Visible = True
.PivotItems("Fort Knox Prog.").Visible = True
.PivotItems("IGT Reel").Visible = True
.PivotItems("IGT Reel + BONUS").Visible = True
.PivotItems("IGT VIDEO MultiPlay").Visible = True
.PivotItems("IGT VIDEO Multiway").Visible = True
.PivotItems("IGT VIDEO Reel").Visible = True
.PivotItems("King Kong Cash Prog.").Visible = True
.PivotItems("Magic Five Prog.").Visible = True
.PivotItems("Novo. Roulette").Visible = True
.PivotItems("Party Time Prog.").Visible = True
.PivotItems("Red Hot Jackpots Prog.").Visible = True
.PivotItems("Royal Ascot").Visible = True
.PivotItems("StartGate Prog.").Visible = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = False
.PivotItems("ARISTOCRAT Reel Power").Visible = False
.PivotItems("ARISTOCRAT Video Reel").Visible = False
.PivotItems("ATRONIC Video Multiway").Visible = False
.PivotItems("ATRONIC Video Reel").Visible = False
.PivotItems("Cash Express Prog.").Visible = False
.PivotItems("Cash Fever Prog.").Visible = False
.PivotItems("Diamond Jackpots Prog.").Visible = False
.PivotItems("Fort Knox Prog.").Visible = False
.PivotItems("IGT Multi Poker").Visible = False
.PivotItems("IGT Reel + BONUS").Visible = False
.PivotItems("IGT VIDEO MultiPlay").Visible = False
.PivotItems("IGT VIDEO Multiway").Visible = False
.PivotItems("IGT VIDEO Reel").Visible = False
.PivotItems("King Kong Cash Prog.").Visible = False
.PivotItems("Magic Five Prog.").Visible = False
.PivotItems("Novo. Roulette").Visible = False
.PivotItems("Party Time Prog.").Visible = False
.PivotItems("Red Hot Jackpots Prog.").Visible = False
.PivotItems("Royal Ascot").Visible = False
.PivotItems("StartGate Prog.").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("F11").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = True
.PivotItems("ARISTOCRAT Reel Power").Visible = True
.PivotItems("ARISTOCRAT Video Reel").Visible = True
.PivotItems("ATRONIC Video Multiway").Visible = True
.PivotItems("ATRONIC Video Reel").Visible = True
.PivotItems("Cash Express Prog.").Visible = True
.PivotItems("Cash Fever Prog.").Visible = True
.PivotItems("Diamond Jackpots Prog.").Visible = True
.PivotItems("Fort Knox Prog.").Visible = True
.PivotItems("IGT Multi Poker").Visible = True
.PivotItems("IGT Reel + BONUS").Visible = True
.PivotItems("IGT VIDEO MultiPlay").Visible = True
.PivotItems("IGT VIDEO Multiway").Visible = True
.PivotItems("IGT VIDEO Reel").Visible = True
.PivotItems("King Kong Cash Prog.").Visible = True
.PivotItems("Magic Five Prog.").Visible = True
.PivotItems("Novo. Roulette").Visible = True
.PivotItems("Party Time Prog.").Visible = True
.PivotItems("Red Hot Jackpots Prog.").Visible = True
.PivotItems("Royal Ascot").Visible = True
.PivotItems("StartGate Prog.").Visible = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = False
.PivotItems("ARISTOCRAT Reel Power").Visible = False
.PivotItems("ARISTOCRAT Video Reel").Visible = False
.PivotItems("ATRONIC Video Multiway").Visible = False
.PivotItems("ATRONIC Video Reel").Visible = False
.PivotItems("Cash Express Prog.").Visible = False
.PivotItems("Cash Fever Prog.").Visible = False
.PivotItems("Diamond Jackpots Prog.").Visible = False
.PivotItems("Fort Knox Prog.").Visible = False
.PivotItems("IGT Multi Poker").Visible = False
.PivotItems("IGT Reel").Visible = False
.PivotItems("IGT VIDEO MultiPlay").Visible = False
.PivotItems("IGT VIDEO Multiway").Visible = False
.PivotItems("IGT VIDEO Reel").Visible = False
.PivotItems("King Kong Cash Prog.").Visible = False
.PivotItems("Magic Five Prog.").Visible = False
.PivotItems("Novo. Roulette").Visible = False
.PivotItems("Party Time Prog.").Visible = False
.PivotItems("Red Hot Jackpots Prog.").Visible = False
.PivotItems("Royal Ascot").Visible = False
.PivotItems("StartGate Prog.").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("F12").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = True
.PivotItems("ARISTOCRAT Reel Power").Visible = True
.PivotItems("ARISTOCRAT Video Reel").Visible = True
.PivotItems("ATRONIC Video Multiway").Visible = True
.PivotItems("ATRONIC Video Reel").Visible = True
.PivotItems("Cash Express Prog.").Visible = True
.PivotItems("Cash Fever Prog.").Visible = True
.PivotItems("Diamond Jackpots Prog.").Visible = True
.PivotItems("Fort Knox Prog.").Visible = True
.PivotItems("IGT Multi Poker").Visible = True
.PivotItems("IGT Reel").Visible = True
.PivotItems("IGT VIDEO MultiPlay").Visible = True
.PivotItems("IGT VIDEO Multiway").Visible = True
.PivotItems("IGT VIDEO Reel").Visible = True
.PivotItems("King Kong Cash Prog.").Visible = True
.PivotItems("Magic Five Prog.").Visible = True
.PivotItems("Novo. Roulette").Visible = True
.PivotItems("Party Time Prog.").Visible = True
.PivotItems("Red Hot Jackpots Prog.").Visible = True
.PivotItems("Royal Ascot").Visible = True
.PivotItems("StartGate Prog.").Visible = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = False
.PivotItems("ARISTOCRAT Reel Power").Visible = False
.PivotItems("ARISTOCRAT Video Reel").Visible = False
.PivotItems("ATRONIC Video Multiway").Visible = False
.PivotItems("ATRONIC Video Reel").Visible = False
.PivotItems("Cash Express Prog.").Visible = False
.PivotItems("Cash Fever Prog.").Visible = False
.PivotItems("Diamond Jackpots Prog.").Visible = False
.PivotItems("Fort Knox Prog.").Visible = False
.PivotItems("IGT Multi Poker").Visible = False
.PivotItems("IGT Reel").Visible = False
.PivotItems("IGT Reel + BONUS").Visible = False
.PivotItems("IGT VIDEO Multiway").Visible = False
.PivotItems("IGT VIDEO Reel").Visible = False
.PivotItems("King Kong Cash Prog.").Visible = False
.PivotItems("Magic Five Prog.").Visible = False
.PivotItems("Novo. Roulette").Visible = False
.PivotItems("Party Time Prog.").Visible = False
.PivotItems("Red Hot Jackpots Prog.").Visible = False
.PivotItems("Royal Ascot").Visible = False
.PivotItems("StartGate Prog.").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("F13").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = True
.PivotItems("ARISTOCRAT Reel Power").Visible = True
.PivotItems("ARISTOCRAT Video Reel").Visible = True
.PivotItems("ATRONIC Video Multiway").Visible = True
.PivotItems("ATRONIC Video Reel").Visible = True
.PivotItems("Cash Express Prog.").Visible = True
.PivotItems("Cash Fever Prog.").Visible = True
.PivotItems("Diamond Jackpots Prog.").Visible = True
.PivotItems("Fort Knox Prog.").Visible = True
.PivotItems("IGT Multi Poker").Visible = True
.PivotItems("IGT Reel").Visible = True
.PivotItems("IGT Reel + BONUS").Visible = True
.PivotItems("IGT VIDEO Multiway").Visible = True
.PivotItems("IGT VIDEO Reel").Visible = True
.PivotItems("King Kong Cash Prog.").Visible = True
.PivotItems("Magic Five Prog.").Visible = True
.PivotItems("Novo. Roulette").Visible = True
.PivotItems("Party Time Prog.").Visible = True
.PivotItems("Red Hot Jackpots Prog.").Visible = True
.PivotItems("Royal Ascot").Visible = True
.PivotItems("StartGate Prog.").Visible = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = False
.PivotItems("ARISTOCRAT Reel Power").Visible = False
.PivotItems("ARISTOCRAT Video Reel").Visible = False
.PivotItems("ATRONIC Video Multiway").Visible = False
.PivotItems("ATRONIC Video Reel").Visible = False
.PivotItems("Cash Express Prog.").Visible = False
.PivotItems("Cash Fever Prog.").Visible = False
.PivotItems("Diamond Jackpots Prog.").Visible = False
.PivotItems("Fort Knox Prog.").Visible = False
.PivotItems("IGT Multi Poker").Visible = False
.PivotItems("IGT Reel").Visible = False
.PivotItems("IGT Reel + BONUS").Visible = False
.PivotItems("IGT VIDEO MultiPlay").Visible = False
.PivotItems("IGT VIDEO Reel").Visible = False
.PivotItems("King Kong Cash Prog.").Visible = False
.PivotItems("Magic Five Prog.").Visible = False
.PivotItems("Novo. Roulette").Visible = False
.PivotItems("Party Time Prog.").Visible = False
.PivotItems("Red Hot Jackpots Prog.").Visible = False
.PivotItems("Royal Ascot").Visible = False
.PivotItems("StartGate Prog.").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("F14").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = True
.PivotItems("ARISTOCRAT Reel Power").Visible = True
.PivotItems("ARISTOCRAT Video Reel").Visible = True
.PivotItems("ATRONIC Video Multiway").Visible = True
.PivotItems("ATRONIC Video Reel").Visible = True
.PivotItems("Cash Express Prog.").Visible = True
.PivotItems("Cash Fever Prog.").Visible = True
.PivotItems("Diamond Jackpots Prog.").Visible = True
.PivotItems("Fort Knox Prog.").Visible = True
.PivotItems("IGT Multi Poker").Visible = True
.PivotItems("IGT Reel").Visible = True
.PivotItems("IGT Reel + BONUS").Visible = True
.PivotItems("IGT VIDEO MultiPlay").Visible = True
.PivotItems("IGT VIDEO Reel").Visible = True
.PivotItems("King Kong Cash Prog.").Visible = True
.PivotItems("Magic Five Prog.").Visible = True
.PivotItems("Novo. Roulette").Visible = True
.PivotItems("Party Time Prog.").Visible = True
.PivotItems("Red Hot Jackpots Prog.").Visible = True
.PivotItems("Royal Ascot").Visible = True
.PivotItems("StartGate Prog.").Visible = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = False
.PivotItems("ARISTOCRAT Reel Power").Visible = False
.PivotItems("ARISTOCRAT Video Reel").Visible = False
.PivotItems("ATRONIC Video Multiway").Visible = False
.PivotItems("ATRONIC Video Reel").Visible = False
.PivotItems("Cash Express Prog.").Visible = False
.PivotItems("Cash Fever Prog.").Visible = False
.PivotItems("Diamond Jackpots Prog.").Visible = False
.PivotItems("Fort Knox Prog.").Visible = False
.PivotItems("IGT Multi Poker").Visible = False
.PivotItems("IGT Reel").Visible = False
.PivotItems("IGT Reel + BONUS").Visible = False
.PivotItems("IGT VIDEO MultiPlay").Visible = False
.PivotItems("IGT VIDEO Multiway").Visible = False
.PivotItems("King Kong Cash Prog.").Visible = False
.PivotItems("Magic Five Prog.").Visible = False
.PivotItems("Novo. Roulette").Visible = False
.PivotItems("Party Time Prog.").Visible = False
.PivotItems("Red Hot Jackpots Prog.").Visible = False
.PivotItems("Royal Ascot").Visible = False
.PivotItems("StartGate Prog.").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("F15").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = True
.PivotItems("ARISTOCRAT Reel Power").Visible = True
.PivotItems("ARISTOCRAT Video Reel").Visible = True
.PivotItems("ATRONIC Video Multiway").Visible = True
.PivotItems("ATRONIC Video Reel").Visible = True
.PivotItems("Cash Express Prog.").Visible = True
.PivotItems("Cash Fever Prog.").Visible = True
.PivotItems("Diamond Jackpots Prog.").Visible = True
.PivotItems("Fort Knox Prog.").Visible = True
.PivotItems("IGT Multi Poker").Visible = True
.PivotItems("IGT Reel").Visible = True
.PivotItems("IGT Reel + BONUS").Visible = True
.PivotItems("IGT VIDEO MultiPlay").Visible = True
.PivotItems("IGT VIDEO Multiway").Visible = True
.PivotItems("King Kong Cash Prog.").Visible = True
.PivotItems("Magic Five Prog.").Visible = True
.PivotItems("Novo. Roulette").Visible = True
.PivotItems("Party Time Prog.").Visible = True
.PivotItems("Red Hot Jackpots Prog.").Visible = True
.PivotItems("Royal Ascot").Visible = True
.PivotItems("StartGate Prog.").Visible = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = False
.PivotItems("ARISTOCRAT Reel Power").Visible = False
.PivotItems("ARISTOCRAT Video Reel").Visible = False
.PivotItems("ATRONIC Video Multiway").Visible = False
.PivotItems("ATRONIC Video Reel").Visible = False
.PivotItems("Cash Express Prog.").Visible = False
.PivotItems("Cash Fever Prog.").Visible = False
.PivotItems("Diamond Jackpots Prog.").Visible = False
.PivotItems("Fort Knox Prog.").Visible = False
.PivotItems("IGT Multi Poker").Visible = False
.PivotItems("IGT Reel").Visible = False
.PivotItems("IGT Reel + BONUS").Visible = False
.PivotItems("IGT VIDEO MultiPlay").Visible = False
.PivotItems("IGT VIDEO Multiway").Visible = False
.PivotItems("IGT VIDEO Reel").Visible = False
.PivotItems("Magic Five Prog.").Visible = False
.PivotItems("Novo. Roulette").Visible = False
.PivotItems("Party Time Prog.").Visible = False
.PivotItems("Red Hot Jackpots Prog.").Visible = False
.PivotItems("Royal Ascot").Visible = False
.PivotItems("StartGate Prog.").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("F16").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = True
.PivotItems("ARISTOCRAT Reel Power").Visible = True
.PivotItems("ARISTOCRAT Video Reel").Visible = True
.PivotItems("ATRONIC Video Multiway").Visible = True
.PivotItems("ATRONIC Video Reel").Visible = True
.PivotItems("Cash Express Prog.").Visible = True
.PivotItems("Cash Fever Prog.").Visible = True
.PivotItems("Diamond Jackpots Prog.").Visible = True
.PivotItems("Fort Knox Prog.").Visible = True
.PivotItems("IGT Multi Poker").Visible = True
.PivotItems("IGT Reel").Visible = True
.PivotItems("IGT Reel + BONUS").Visible = True
.PivotItems("IGT VIDEO MultiPlay").Visible = True
.PivotItems("IGT VIDEO Multiway").Visible = True
.PivotItems("IGT VIDEO Reel").Visible = True
.PivotItems("Magic Five Prog.").Visible = True
.PivotItems("Novo. Roulette").Visible = True
.PivotItems("Party Time Prog.").Visible = True
.PivotItems("Red Hot Jackpots Prog.").Visible = True
.PivotItems("Royal Ascot").Visible = True
.PivotItems("StartGate Prog.").Visible = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = False
.PivotItems("ARISTOCRAT Reel Power").Visible = False
.PivotItems("ARISTOCRAT Video Reel").Visible = False
.PivotItems("ATRONIC Video Multiway").Visible = False
.PivotItems("ATRONIC Video Reel").Visible = False
.PivotItems("Cash Express Prog.").Visible = False
.PivotItems("Cash Fever Prog.").Visible = False
.PivotItems("Diamond Jackpots Prog.").Visible = False
.PivotItems("Fort Knox Prog.").Visible = False
.PivotItems("IGT Multi Poker").Visible = False
.PivotItems("IGT Reel").Visible = False
.PivotItems("IGT Reel + BONUS").Visible = False
.PivotItems("IGT VIDEO MultiPlay").Visible = False
.PivotItems("IGT VIDEO Multiway").Visible = False
.PivotItems("IGT VIDEO Reel").Visible = False
.PivotItems("King Kong Cash Prog.").Visible = False
.PivotItems("Novo. Roulette").Visible = False
.PivotItems("Party Time Prog.").Visible = False
.PivotItems("Red Hot Jackpots Prog.").Visible = False
.PivotItems("Royal Ascot").Visible = False
.PivotItems("StartGate Prog.").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("F17").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = True
.PivotItems("ARISTOCRAT Reel Power").Visible = True
.PivotItems("ARISTOCRAT Video Reel").Visible = True
.PivotItems("ATRONIC Video Multiway").Visible = True
.PivotItems("ATRONIC Video Reel").Visible = True
.PivotItems("Cash Express Prog.").Visible = True
.PivotItems("Cash Fever Prog.").Visible = True
.PivotItems("Diamond Jackpots Prog.").Visible = True
.PivotItems("Fort Knox Prog.").Visible = True
.PivotItems("IGT Multi Poker").Visible = True
.PivotItems("IGT Reel").Visible = True
.PivotItems("IGT Reel + BONUS").Visible = True
.PivotItems("IGT VIDEO MultiPlay").Visible = True
.PivotItems("IGT VIDEO Multiway").Visible = True
.PivotItems("IGT VIDEO Reel").Visible = True
.PivotItems("King Kong Cash Prog.").Visible = True
.PivotItems("Novo. Roulette").Visible = True
.PivotItems("Party Time Prog.").Visible = True
.PivotItems("Red Hot Jackpots Prog.").Visible = True
.PivotItems("Royal Ascot").Visible = True
.PivotItems("StartGate Prog.").Visible = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = False
.PivotItems("ARISTOCRAT Reel Power").Visible = False
.PivotItems("ARISTOCRAT Video Reel").Visible = False
.PivotItems("ATRONIC Video Multiway").Visible = False
.PivotItems("ATRONIC Video Reel").Visible = False
.PivotItems("Cash Express Prog.").Visible = False
.PivotItems("Cash Fever Prog.").Visible = False
.PivotItems("Diamond Jackpots Prog.").Visible = False
.PivotItems("Fort Knox Prog.").Visible = False
.PivotItems("IGT Multi Poker").Visible = False
.PivotItems("IGT Reel").Visible = False
.PivotItems("IGT Reel + BONUS").Visible = False
.PivotItems("IGT VIDEO MultiPlay").Visible = False
.PivotItems("IGT VIDEO Multiway").Visible = False
.PivotItems("IGT VIDEO Reel").Visible = False
.PivotItems("King Kong Cash Prog.").Visible = False
.PivotItems("Magic Five Prog.").Visible = False
.PivotItems("Party Time Prog.").Visible = False
.PivotItems("Red Hot Jackpots Prog.").Visible = False
.PivotItems("Royal Ascot").Visible = False
.PivotItems("StartGate Prog.").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("F18").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = True
.PivotItems("ARISTOCRAT Reel Power").Visible = True
.PivotItems("ARISTOCRAT Video Reel").Visible = True
.PivotItems("ATRONIC Video Multiway").Visible = True
.PivotItems("ATRONIC Video Reel").Visible = True
.PivotItems("Cash Express Prog.").Visible = True
.PivotItems("Cash Fever Prog.").Visible = True
.PivotItems("Diamond Jackpots Prog.").Visible = True
.PivotItems("Fort Knox Prog.").Visible = True
.PivotItems("IGT Multi Poker").Visible = True
.PivotItems("IGT Reel").Visible = True
.PivotItems("IGT Reel + BONUS").Visible = True
.PivotItems("IGT VIDEO MultiPlay").Visible = True
.PivotItems("IGT VIDEO Multiway").Visible = True
.PivotItems("IGT VIDEO Reel").Visible = True
.PivotItems("King Kong Cash Prog.").Visible = True
.PivotItems("Magic Five Prog.").Visible = True
.PivotItems("Party Time Prog.").Visible = True
.PivotItems("Red Hot Jackpots Prog.").Visible = True
.PivotItems("Royal Ascot").Visible = True
.PivotItems("StartGate Prog.").Visible = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = False
.PivotItems("ARISTOCRAT Reel Power").Visible = False
.PivotItems("ARISTOCRAT Video Reel").Visible = False
.PivotItems("ATRONIC Video Multiway").Visible = False
.PivotItems("ATRONIC Video Reel").Visible = False
.PivotItems("Cash Express Prog.").Visible = False
.PivotItems("Cash Fever Prog.").Visible = False
.PivotItems("Diamond Jackpots Prog.").Visible = False
.PivotItems("Fort Knox Prog.").Visible = False
.PivotItems("IGT Multi Poker").Visible = False
.PivotItems("IGT Reel").Visible = False
.PivotItems("IGT Reel + BONUS").Visible = False
.PivotItems("IGT VIDEO MultiPlay").Visible = False
.PivotItems("IGT VIDEO Multiway").Visible = False
.PivotItems("IGT VIDEO Reel").Visible = False
.PivotItems("King Kong Cash Prog.").Visible = False
.PivotItems("Magic Five Prog.").Visible = False
.PivotItems("Novo. Roulette").Visible = False
.PivotItems("Red Hot Jackpots Prog.").Visible = False
.PivotItems("Royal Ascot").Visible = False
.PivotItems("StartGate Prog.").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("F19").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = True
.PivotItems("ARISTOCRAT Reel Power").Visible = True
.PivotItems("ARISTOCRAT Video Reel").Visible = True
.PivotItems("ATRONIC Video Multiway").Visible = True
.PivotItems("ATRONIC Video Reel").Visible = True
.PivotItems("Cash Express Prog.").Visible = True
.PivotItems("Cash Fever Prog.").Visible = True
.PivotItems("Diamond Jackpots Prog.").Visible = True
.PivotItems("Fort Knox Prog.").Visible = True
.PivotItems("IGT Multi Poker").Visible = True
.PivotItems("IGT Reel").Visible = True
.PivotItems("IGT Reel + BONUS").Visible = True
.PivotItems("IGT VIDEO MultiPlay").Visible = True
.PivotItems("IGT VIDEO Multiway").Visible = True
.PivotItems("IGT VIDEO Reel").Visible = True
.PivotItems("King Kong Cash Prog.").Visible = True
.PivotItems("Magic Five Prog.").Visible = True
.PivotItems("Novo. Roulette").Visible = True
.PivotItems("Red Hot Jackpots Prog.").Visible = True
.PivotItems("Royal Ascot").Visible = True
.PivotItems("StartGate Prog.").Visible = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = False
.PivotItems("ARISTOCRAT Reel Power").Visible = False
.PivotItems("ARISTOCRAT Video Reel").Visible = False
.PivotItems("ATRONIC Video Multiway").Visible = False
.PivotItems("ATRONIC Video Reel").Visible = False
.PivotItems("Cash Express Prog.").Visible = False
.PivotItems("Cash Fever Prog.").Visible = False
.PivotItems("Diamond Jackpots Prog.").Visible = False
.PivotItems("Fort Knox Prog.").Visible = False
.PivotItems("IGT Multi Poker").Visible = False
.PivotItems("IGT Reel").Visible = False
.PivotItems("IGT Reel + BONUS").Visible = False
.PivotItems("IGT VIDEO MultiPlay").Visible = False
.PivotItems("IGT VIDEO Multiway").Visible = False
.PivotItems("IGT VIDEO Reel").Visible = False
.PivotItems("King Kong Cash Prog.").Visible = False
.PivotItems("Magic Five Prog.").Visible = False
.PivotItems("Novo. Roulette").Visible = False
.PivotItems("Party Time Prog.").Visible = False
.PivotItems("Royal Ascot").Visible = False
.PivotItems("StartGate Prog.").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("F20").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = True
.PivotItems("ARISTOCRAT Reel Power").Visible = True
.PivotItems("ARISTOCRAT Video Reel").Visible = True
.PivotItems("ATRONIC Video Multiway").Visible = True
.PivotItems("ATRONIC Video Reel").Visible = True
.PivotItems("Cash Express Prog.").Visible = True
.PivotItems("Cash Fever Prog.").Visible = True
.PivotItems("Diamond Jackpots Prog.").Visible = True
.PivotItems("Fort Knox Prog.").Visible = True
.PivotItems("IGT Multi Poker").Visible = True
.PivotItems("IGT Reel").Visible = True
.PivotItems("IGT Reel + BONUS").Visible = True
.PivotItems("IGT VIDEO MultiPlay").Visible = True
.PivotItems("IGT VIDEO Multiway").Visible = True
.PivotItems("IGT VIDEO Reel").Visible = True
.PivotItems("King Kong Cash Prog.").Visible = True
.PivotItems("Magic Five Prog.").Visible = True
.PivotItems("Novo. Roulette").Visible = True
.PivotItems("Party Time Prog.").Visible = True
.PivotItems("Royal Ascot").Visible = True
.PivotItems("StartGate Prog.").Visible = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = False
.PivotItems("ARISTOCRAT Reel Power").Visible = False
.PivotItems("ARISTOCRAT Video Reel").Visible = False
.PivotItems("ATRONIC Video Multiway").Visible = False
.PivotItems("ATRONIC Video Reel").Visible = False
.PivotItems("Cash Express Prog.").Visible = False
.PivotItems("Cash Fever Prog.").Visible = False
.PivotItems("Diamond Jackpots Prog.").Visible = False
.PivotItems("Fort Knox Prog.").Visible = False
.PivotItems("IGT Multi Poker").Visible = False
.PivotItems("IGT Reel").Visible = False
.PivotItems("IGT Reel + BONUS").Visible = False
.PivotItems("IGT VIDEO MultiPlay").Visible = False
.PivotItems("IGT VIDEO Multiway").Visible = False
.PivotItems("IGT VIDEO Reel").Visible = False
.PivotItems("King Kong Cash Prog.").Visible = False
.PivotItems("Magic Five Prog.").Visible = False
.PivotItems("Novo. Roulette").Visible = False
.PivotItems("Party Time Prog.").Visible = False
.PivotItems("Red Hot Jackpots Prog.").Visible = False
.PivotItems("StartGate Prog.").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("F21").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = True
.PivotItems("ARISTOCRAT Reel Power").Visible = True
.PivotItems("ARISTOCRAT Video Reel").Visible = True
.PivotItems("ATRONIC Video Multiway").Visible = True
.PivotItems("ATRONIC Video Reel").Visible = True
.PivotItems("Cash Express Prog.").Visible = True
.PivotItems("Cash Fever Prog.").Visible = True
.PivotItems("Diamond Jackpots Prog.").Visible = True
.PivotItems("Fort Knox Prog.").Visible = True
.PivotItems("IGT Multi Poker").Visible = True
.PivotItems("IGT Reel").Visible = True
.PivotItems("IGT Reel + BONUS").Visible = True
.PivotItems("IGT VIDEO MultiPlay").Visible = True
.PivotItems("IGT VIDEO Multiway").Visible = True
.PivotItems("IGT VIDEO Reel").Visible = True
.PivotItems("King Kong Cash Prog.").Visible = True
.PivotItems("Magic Five Prog.").Visible = True
.PivotItems("Novo. Roulette").Visible = True
.PivotItems("Party Time Prog.").Visible = True
.PivotItems("Red Hot Jackpots Prog.").Visible = True
.PivotItems("StartGate Prog.").Visible = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = False
.PivotItems("ARISTOCRAT Reel Power").Visible = False
.PivotItems("ARISTOCRAT Video Reel").Visible = False
.PivotItems("ATRONIC Video Multiway").Visible = False
.PivotItems("ATRONIC Video Reel").Visible = False
.PivotItems("Cash Express Prog.").Visible = False
.PivotItems("Cash Fever Prog.").Visible = False
.PivotItems("Diamond Jackpots Prog.").Visible = False
.PivotItems("Fort Knox Prog.").Visible = False
.PivotItems("IGT Multi Poker").Visible = False
.PivotItems("IGT Reel").Visible = False
.PivotItems("IGT Reel + BONUS").Visible = False
.PivotItems("IGT VIDEO MultiPlay").Visible = False
.PivotItems("IGT VIDEO Multiway").Visible = False
.PivotItems("IGT VIDEO Reel").Visible = False
.PivotItems("King Kong Cash Prog.").Visible = False
.PivotItems("Magic Five Prog.").Visible = False
.PivotItems("Novo. Roulette").Visible = False
.PivotItems("Party Time Prog.").Visible = False
.PivotItems("Red Hot Jackpots Prog.").Visible = False
.PivotItems("Royal Ascot").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("F22").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("gametype"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"gametype")
.PivotItems("ARISTOCRAT Multiway").Visible = True
.PivotItems("ARISTOCRAT Reel Power").Visible = True
.PivotItems("ARISTOCRAT Video Reel").Visible = True
.PivotItems("ATRONIC Video Multiway").Visible = True
.PivotItems("ATRONIC Video Reel").Visible = True
.PivotItems("Cash Express Prog.").Visible = True
.PivotItems("Cash Fever Prog.").Visible = True
.PivotItems("Diamond Jackpots Prog.").Visible = True
.PivotItems("Fort Knox Prog.").Visible = True
.PivotItems("IGT Multi Poker").Visible = True
.PivotItems("IGT Reel").Visible = True
.PivotItems("IGT Reel + BONUS").Visible = True
.PivotItems("IGT VIDEO MultiPlay").Visible = True
.PivotItems("IGT VIDEO Multiway").Visible = True
.PivotItems("IGT VIDEO Reel").Visible = True
.PivotItems("King Kong Cash Prog.").Visible = True
.PivotItems("Magic Five Prog.").Visible = True
.PivotItems("Novo. Roulette").Visible = True
.PivotItems("Party Time Prog.").Visible = True
.PivotItems("Red Hot Jackpots Prog.").Visible = True
.PivotItems("Royal Ascot").Visible = True
End With
End Sub
Sub Macro12()
'
' Macro12 Macro
'
'
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("deno"). _
CurrentPage = "(Tous)"
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("deno"). _
EnableMultiplePageItems = True
Range("A12:L247").Select
Selection.Copy
Sheets("All Slots").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("vendor"). _
CurrentPage = "(Tous)"
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("vendor"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("vendor")
.PivotItems("Novomatic").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("Without Wheel").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("vendor"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("vendor")
.PivotItems("Novomatic").Visible = True
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("vendor"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("vendor")
.PivotItems("Aristocrat").Visible = False
.PivotItems("Atronic").Visible = False
.PivotItems("IGT").Visible = False
.PivotItems("Sega").Visible = False
End With
Application.CutCopyMode = False
Selection.Copy
Sheets("Novomatic").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("interrogation").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("vendor"). _
CurrentPage = "(Tous)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("vendor")
.PivotItems("Aristocrat").Visible = True
.PivotItems("Atronic").Visible = True
.PivotItems("IGT").Visible = True
.PivotItems("Sega").Visible = True
End With
End Sub