Macro enregistrée ajouter une condition if blank then

Version imprimable

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é :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
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

15/06/2009, 15h36
ropineau

Bonjour,

J'ai jete un coup d'oeil a ta macro mais je ne comprend pas clairement ce que tu souhaites faire.

Peux tu mettre en piece jointe ton fichier ? et expliquer directement ce que tu souhaites faire ?

Merci

Romain
15/06/2009, 15h53
FreddyNB

Le fichier est vraiment lourd...

mais en clair :

j'ai un TCD avec des catégories(CONSUMABLE IN MECHANICS, ELECTRICITY,etc etc...) et des valeures en face

Je dois sélectionner les catégories une par une
Réactualiser une autre macro
Copier coller les resultats de la macro pour chaque catégorie

j ai donc enregistré une macro qui affiche chaque catégorie l'une après l'autre, pour chaque catégorie execute la seconde macro et enfin les copies colles dans un tableau plus bas

le souci etant que si je réctualise mon TCD, et qu'une catégorie disparait, la macro plante ...

en d autre terme, le script en PJ ne fonctionne que si toutes les catégories existent - si "PHARMACEUTICALS PRODUCTS" n'existe pas dans un tableau la macro plante donc

Ce que j'aimerais est que si la macro ne trouve pas le champs "PHARMACEUTICALS PRODUCTS" elle passe au champs suivant sans planter
je ne sais pas si c est plus clair, dans le cas contraire n'hesite pas ;)

merci bcp
Fred

Bonjour,

avec le code suivant, j'ai supposé que ton TCD commençait dans la colonne E.
Si ce n'est pas le cas, tu adaptes...

Pas besoin de masquer tous les champs, tu ne masques que les champs dont tu n'as pas besoin pour ta synthèse...

Tu adaptes le nom de ton TCD, ainsi que de ton champ...

Ce code va copier les en-têtes 2 lignes dessous le TCD, et les données 3 lignes en dessous du TCD

Essaie et reviens si souci...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub copie_item() Dim Pvt As PivotItem Dim Derlig As Long Derlig = [E65000].End(xlUp).Row + 3 'ici, tu adaptes la colonne Range(Cells(Derlig, 5), Cells(100, 50)).Delete shift:=xlUp 'on supprime tout 'ce qu'il y avait avant For Each Pvt In ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Name Mat Group DIA").PivotItems If Pvt.Visible = True Then Pvt.LabelRange.Copy Cells(Derlig, Pvt.DataRange.Column) 'on copie les en-têtes Pvt.DataRange.Copy Cells(Derlig + 1, Pvt.DataRange.Column) 'on copie les données End If Next Pvt End Sub

15/06/2009, 16h11
FreddyNB

Merci mais je dois absolument masquer les champs pour que mon autre macro puisse agir.;.il y a une seconde macro qui s execute à chaque afficher/cacher

cette macro compte des elements de chaque catégorie....les afficher et les masquer reviente à empecher la macro de distinguer les catégories :cry:
15/06/2009, 16h39
mapeh

Re-,

tu adaptes le code dans ton code....

Tu as la syntaxe....

Adapte-là... :ccool:

qu'entends-tu par :

Citation:

cette macro compte des elements de chaque catégorie

Peux-tu mettre le code de ta seconde macro, également?

oui mais ca n'est pas aussi simple :

il faut qu'a chaque

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
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

il dise simplement "if TECHNICAL GOODS" = 0 (n'existe pas) alors passer à la rubrique suivante

voici l autre macro :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub AutoContractGeneral()
Dim combi As Variant, cpt1&, cpt2&
For i = 6 To Range("B65536").End(xlUp).Row
    combi = Cells(i, 2).Value
    Select Case combi
    Case "EP#X", "EP##", "NBBX", "NBUX", "NBFX", "NBRX", "NB#X", "EP#X1", "EP##1", "NBBX1", "NBUX1", "NBFX1", "NBRX1", "NB#X1", "9"
        cpt1 = cpt1 + Cells(i, 3).Value
    Case "NBB#", "NBU#", "NBV#", "LP##", "NBF#", "NBR#", "NB##", "FO##", "###", "NBB#1", "NBU#1", "NBV#1", "LP##1", "NBF#1", "NBR#1", "NB##1", "FO##1", "###1"
        cpt2 = cpt2 + Cells(i, 3).Value
    End Select
Next i
Cells(14, 8).Value = cpt1
Cells(15, 8).Value = cpt2

15/06/2009, 17h14
mapeh

Re-,

là, comme je ne suis pas dans ta logique, je t'avouerai que je suis complètement largué....

Je ne vois pas le rapport entre les données dans la colonne C, et ce que tu veux copier... colonne H

Avec mon code, tu copies les données qui t'intéressent.....

Tu peux ensuite dérouler ton code....

Bref, sans un petit fichier (pas besoin de toutes les données, une seule feuille, quelques dizaines de données anonymes, ton TCD....

A te relire
15/06/2009, 17h38
FreddyNB

Tout d'abord merci de m'accorder de ton temps à comprendre mon pb ;)

la logique :
j'ai un TCD avec disons 10 catégories

pour chaque catégorie il y a des données stockées avec des combinaisons de code (NB#X , NBUX etc etc)

en face de ces combinaisons : des valeures (numériques)

l'idée est de faire la somme des valeures numérique correspondant à NB#X NBUX puis faire la somme des valeures numériques correspondant à NB## NBU# etc etc ....

je dispose d'une macro qui fait ces calculs automatiquement

ces calculs doivent etre fait par famille (Electricity, pharmaceuticals..etc)- je dois donc modifier manuellement la famille dans le TCD, activer la macro copier coller le contenu et recommencer l'opération pour chaque famille

l'idée de cette macro est donc d'automatiser ce travail manuel fastidieux

le hic c'est que des que j 'actualise mon TCD, si par malheur une famille n'apparait pas...ma macro plante... je souhaite donc que la macro continue de s'executer et actualise la famille suivante, active la macro de calcul, copie colle dans la colonne suivante les datas calculées...
15/06/2009, 18h12
FreddyNB

trouvé !

On Error Resume Next

c'etait aussi simple ! ;)

merci à tous !