Macro enregistrée petite modif

[Freddy]

Bonjour,

dans la macro ci après, je vais chercher des infos dans un TCD, je selectionne une catégorie - une fois la catégorie selectionnée, j'active une macro pour traiter les données, copie et colle des données dans un tableau - plutot que de le faire manuellement j ai eu l idée d'enregistrer une macro qui selectionne copie et colle - le seul souci c'est quand la catégorie n'existe pas - la macro plante -

J'aimerais donc dans la macro ci après ajouter une condition if "" alors passer à l'action suivante - je ne sais pas si je sui clair - en d autres termes, si la catégorie n'existe pas passer à la catégorie suivante -

Merci par avance pour vos idées

voici ce que jai enregistré :

Sub test2()
'
' test2 Macro
' Macro enregistrée le 15/06/2009 par freddy
'

'
ActiveWorkbook.ShowPivotTableFieldList = False
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Name Mat Group DIA")
.PivotItems("CONSUMABLE IN MECHANICS").Visible = False
.PivotItems("DIA PURCHASING SEGMENTS").Visible = False
.PivotItems("ELECTRICITY").Visible = False
.PivotItems("ENERGY FUELS & UTILITIES").Visible = False
.PivotItems("GENERAL SERVICES").Visible = False
.PivotItems("INSTRUMENTATION AND CONTROL").Visible = False
.PivotItems("IT AND TELECOM.").Visible = False
.PivotItems("LABORATORY PRODUCTS AND EQU.").Visible = False
.PivotItems("LOGISTICS- PACKAGING").Visible = False
.PivotItems("LUBRICANTS").Visible = False
.PivotItems("MACHINES AND PROCESS EQU.").Visible = False
.PivotItems("MISC CONSUMABLES").Visible = False
.PivotItems("PHARMACEUTICALS PRODUCTS").Visible = False
.PivotItems("TECHNICAL GOODS").Visible = False
.PivotItems("TECHNICAL GOODS AND SERVICES").Visible = False
.PivotItems("VALVES AND PIPING").Visible = False
.PivotItems("VESSELS AND SPECIAL EQU.").Visible = False
.PivotItems("(vide)").Visible = False
.PivotItems("Not Assigned Mat Group DIA (s)").Visible = False
End With
Application.Run "'new version.xls'!Feuil6.multiloadGeneral"
Range("H9:H18").Select
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Name Mat Group DIA")
.PivotItems("CHEMICALS AND RAW MATERIALS").Visible = False
.PivotItems("IT AND TELECOM.").Visible = True
End With
Application.Run "'new version.xls'!Feuil6.multiloadGeneral"
Range("H9:H18").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=9
Range("I34").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-15
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Name Mat Group DIA")
.PivotItems("IT AND TELECOM.").Visible = False
.PivotItems("TECHNICAL GOODS").Visible = True
End With
Application.Run "'new version.xls'!Feuil6.multiloadGeneral"
Range("H9:H18").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=6
Range("J34").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-15
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Name Mat Group DIA")
.PivotItems("CHEMICALS AND RAW MATERIALS").Visible = True
.PivotItems("TECHNICAL GOODS").Visible = False
End With
Application.Run "'new version.xls'!Feuil6.multiloadGeneral"
Range("H9:H18").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=9
Range("K34").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-21
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Name Mat Group DIA")
.PivotItems("CHEMICALS AND RAW MATERIALS").Visible = False
.PivotItems("PHARMACEUTICALS PRODUCTS").Visible = True
End With
ActiveWindow.SmallScroll Down:=-6
Application.Run "'new version.xls'!Feuil6.multiloadGeneral"
Range("H9:H18").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=6
Range("L34").Select
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.SmallScroll Down:=-18
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Name Mat Group DIA")
.PivotItems("ENERGY FUELS & UTILITIES").Visible = True
.PivotItems("PHARMACEUTICALS PRODUCTS").Visible = False
End With
Application.Run "'new version.xls'!Feuil6.multiloadGeneral"
Range("H9:H18").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=6
Range("M34").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-15
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Name Mat Group DIA")
.PivotItems("ENERGY FUELS & UTILITIES").Visible = False
.PivotItems("LOGISTICS- PACKAGING").Visible = True
End With
Application.Run "'new version.xls'!Feuil6.multiloadGeneral"
Range("H9:H18").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=9
Range("N34").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-18
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Name Mat Group DIA")
.PivotItems("GENERAL SERVICES").Visible = True
.PivotItems("LOGISTICS- PACKAGING").Visible = False
End With
Application.Run "'new version.xls'!Feuil6.multiloadGeneral"
Range("H9:H18").Select
Application.CutCopyMode = False
Selection.Copy
Range("O24").Select
Range("O34").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=9
End Sub

 

[PMO2]

Re : Macro enregistrée petite modif

Bonjour,

A tout hasard ajoutez, en 1ère ligne, l'instruction

On Error Resume Next

Cordialement.

PMO
Patrick Morange

 

[Freddy]

Re : Macro enregistrée petite modif

un grand merci ca fonctionne !