Macro enregistrée ajouter une condition if blank then

**FreddyNB** · 15/06/2009, 11h59

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**ropineau** · 15/06/2009, 15h36

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

**FreddyNB** · 15/06/2009, 15h53

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

**mapeh** · 15/06/2009, 16h07

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**FreddyNB** · 15/06/2009, 16h11

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

**mapeh** · 15/06/2009, 16h39

Re-,

tu adaptes le code dans ton code....

Tu as la syntaxe....

Adapte-là...

qu'entends-tu par :

cette macro compte des elements de chaque catégorie

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

**FreddyNB** · 15/06/2009, 16h57

oui mais ca n'est pas aussi simple :

il faut qu'a chaque

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**mapeh** · 15/06/2009, 17h14

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

**FreddyNB** · 15/06/2009, 17h38

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...

**FreddyNB** · 15/06/2009, 18h12

trouvé !

On Error Resume Next

c'etait aussi simple !

merci à tous !

Macro enregistrée ajouter une condition if blank then

Macros et VBA Excel

Discussions similaires

Partager

Partager