Macro enregistrée petite modif

Freddy · 15 Juin 2009

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 · 15 Juin 2009

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 · 15 Juin 2009

Re : Macro enregistrée petite modif

un grand merci ca fonctionne !

Macro enregistrée petite modif

Freddy

XLDnaute Junior

PMO2

XLDnaute Accro

Freddy

XLDnaute Junior

Discussions similaires

Macro enregistrée petite modif

Freddy

XLDnaute Junior

PMO2

XLDnaute Accro

Freddy

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency