Discussion :

[Gonteur]

Bonjour,

J'ai hérité d'un chiffrier avec un VBA qui me cause souci

Code :

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

1
2
3
4
5
6
7
8
9
For j = recherchemincodes To recherchemaxcodes  'recherche le code du travail
                If Range("A" & j).Value = "M3" Then
                    If IsNumeric(Range("C" & j)) And Range("C" & j).Value <> 0 Then
                         calcul = Range("D" & j).Value / Range("C" & j).Value
                         Sheets("calculs2018").Select
                         Range("I" & k + 1).Value = calcul
                    End If
                End If
                ThisWorkbook.Worksheets(i).Activate]

Dans cette partie du code, la valeur de calcul = Range("D" & j).Value est égal à "N/A", sans suis une fin d'instruction et fenêtre de débogage.

Bref, la macro balaie toutes les feuilles, recherche "M3" dans la colonne A , divise la somme des cellules D par la somme des cellules C et retourne le résultat dans la cellule I de la feuille calculs2018.

Il me semble que le N/A me pose problème, comment faire?

Merci

[Menhir]

Pour ta demande :

Code :

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

If Isnumeric(Range("C" & j).Value) Then calcul = Range("D" & j).Value / Range("C" & j).Value

Et pour éviter les problèmes, remplace :

Code :

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

1
2
                         Sheets("calculs2018").Select
                         Range("I" & k + 1).Value = calcul

par

Code :

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

                         Sheets("calculs2018").Range("I" & (k + 1)).Value = calcul

Et je suis étonné que dans ce code, il n'y ait pas d'incrémentation de la variable k.

Bref, je ne sais pas qui t'a transmis ce code mais je doute qu'il soit fonctionnel.

[Gonteur]

Merci Menhir de ton aide

Voici le code original et complet de la macro, j'ai tenté d'y apporter tes recommandations mais cela n'a pas fonctionné

Merci d'y jeter un coup d'oeil

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
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
 
AUDITS DES SITES
'
' L'objectif est de remplir la feuille "synthese-operationnelle" sans le moindre effort.
' La difficulté est que le nombre d'audits des sites n'est pas connu,
' il faut donc fouiller les feuilles Excel pour les trouver.
'
' Les étapes : il y a une feuille intermédiaire masquée qui permet de récupérer les données
' des audits. La macro va balayer les feuilles jusqu'à trouver une feuille qui commence par "Audit18",
' la macro va copier les données voulues dans la feuille intermédiaires "calculs2017". Pour avoir
' de la flexibilité, il y a une recherche du code du travail faite entre les lignes
' "recherchemincodes" et "recherchemaxcodes". Ça limite les recherches et augmente la rapidité
' de la macro. Le code est répété pour chaque code de travail, c'est répétitif, mais
' plus simple pour la compréhension, l'entretien et la mise à jour du code. Ce sont des copier-coller.
'
' La feuille "synthese-operationnelle" est configurée pour aller puiser les informations dans la feuille
' intermédiaire "calculs2018".
 
Sub MÀJ2018()
 Dim i As Integer
 Dim j As Integer
 Dim k As Integer   'va compter le nombre d'audits traités
 Dim recherchemincodes As Integer
 Dim recherchemaxcodes As Integer
 Dim calcul As Double
 
 Application.ScreenUpdating = False
 
 k = 0
 recherchemaxcodes = 120
 recherchemincodes = 90
 
Sheets("calculs2018").Visible = True
 
 Sheets("calculs2018").Select
 Range("A2:Z100").ClearContents
 
 
 'pour l'année 2018
 For i = 1 To ThisWorkbook.Worksheets.Count
    If Left(ThisWorkbook.Worksheets(i).Name, 7) = "Audit18" And ThisWorkbook.Sheets(ThisWorkbook.Worksheets(i).Name).Range("B5").Value <> "Obligatoire" Then 'on balaie les feuilles du classeur Excel
        k = k + 1
 
                    Sheets("calculs2018").Select
                    Range("R" & k + 1).Value = ThisWorkbook.Worksheets(i).Name
 
                ThisWorkbook.Worksheets(i).Activate
            For j = recherchemincodes To recherchemaxcodes
                If Range("A" & j).Value = "O1" Then         'recherche le code du travail entre ces deux balises
                    If IsNumeric(Range("C" & j)) And Range("C" & j).Value <> 0 Then
                         calcul = Range("D" & j).Value / Range("C" & j).Value
                         Sheets("calculs2018").Select
                         Range("A" & k + 1).Value = calcul
                    End If
                End If
                ThisWorkbook.Worksheets(i).Activate
            Next
            For j = recherchemincodes To recherchemaxcodes  'recherche le code du travail
                If Range("A" & j).Value = "O2" Then
                    If IsNumeric(Range("C" & j)) And Range("C" & j).Value <> 0 Then
                         calcul = Range("D" & j).Value / Range("C" & j).Value
                         Sheets("calculs2018").Select
                         Range("B" & k + 1).Value = calcul
                    End If
                End If
                ThisWorkbook.Worksheets(i).Activate
            Next
            For j = recherchemincodes To recherchemaxcodes  'recherche le code du travail
                If Range("A" & j).Value = "O3" Then
                    If IsNumeric(Range("C" & j)) And Range("C" & j).Value <> 0 Then
                         calcul = Range("D" & j).Value / Range("C" & j).Value
                         Sheets("calculs2018").Select
                         Range("C" & k + 1).Value = calcul
                    End If
                End If
                ThisWorkbook.Worksheets(i).Activate
            Next
            For j = recherchemincodes To recherchemaxcodes  'recherche le code du travail
                If Range("A" & j).Value = "O4" Then
                    If IsNumeric(Range("C" & j)) And Range("C" & j).Value <> 0 Then
                         calcul = Range("D" & j).Value / Range("C" & j).Value
                         Sheets("calculs2018").Select
                         Range("D" & k + 1).Value = calcul
                    End If
                End If
                ThisWorkbook.Worksheets(i).Activate
            Next
            For j = recherchemincodes To recherchemaxcodes  'recherche le code du travail
                If Range("A" & j).Value = "O5" Then
                    If IsNumeric(Range("C" & j)) And Range("C" & j).Value <> 0 Then
                         calcul = Range("D" & j).Value / Range("C" & j).Value
                         Sheets("calculs2018").Select
                         Range("E" & k + 1).Value = calcul
                    End If
                End If
                ThisWorkbook.Worksheets(i).Activate
            Next
            For j = recherchemincodes To recherchemaxcodes  'recherche le code du travail
                If Range("A" & j).Value = "O6" Then
                    If IsNumeric(Range("C" & j)) And Range("C" & j).Value <> 0 Then
                         calcul = Range("D" & j).Value / Range("C" & j).Value
                         Sheets("calculs2018").Select
                         Range("F" & k + 1).Value = calcul
                    End If
                End If
                ThisWorkbook.Worksheets(i).Activate
            Next
            For j = recherchemincodes To recherchemaxcodes  'recherche le code du travail
                If Range("A" & j).Value = "M1" Then
                    If IsNumeric(Range("C" & j)) And Range("C" & j).Value <> 0 Then
                         calcul = Range("D" & j).Value / Range("C" & j).Value
                         Sheets("calculs2018").Select
                         Range("G" & k + 1).Value = calcul
                    End If
                End If
                ThisWorkbook.Worksheets(i).Activate
            Next
            For j = recherchemincodes To recherchemaxcodes  'recherche le code du travail
                If Range("A" & j).Value = "M2" Then
                    If IsNumeric(Range("C" & j)) And Range("C" & j).Value <> 0 Then
                         calcul = Range("D" & j).Value / Range("C" & j).Value
                         Sheets("calculs2018").Select
                         Range("H" & k + 1).Value = calcul
                    End If
                End If
                ThisWorkbook.Worksheets(i).Activate
            Next
            For j = recherchemincodes To recherchemaxcodes  'recherche le code du travail
                If Range("A" & j).Value = "M3" Then
                    If IsNumeric(Range("C" & j)) And Range("C" & j).Value <> "N/A" Then
                         calcul = Range("D" & j).Value / Range("C" & j).Value
                         Sheets("calculs2018").Select
                         Range("i" & k + 1).Value = calcul
                    End If
                End If
                ThisWorkbook.Worksheets(i).Activate
            Next
            For j = recherchemincodes To recherchemaxcodes  'recherche le code du travail
                If Range("A" & j).Value = "E1" Then
                    If IsNumeric(Range("C" & j)) And Range("C" & j).Value <> 0 Then
                         calcul = Range("D" & j).Value / Range("C" & j).Value
                         Sheets("calculs2018").Select
                         Range("J" & k + 1).Value = calcul
                    End If
                End If
                ThisWorkbook.Worksheets(i).Activate
            Next
            For j = recherchemincodes To recherchemaxcodes  'recherche le code du travail
                If Range("A" & j).Value = "E2" Then
                    If IsNumeric(Range("C" & j)) And Range("C" & j).Value <> 0 Then
                         calcul = Range("D" & j).Value / Range("C" & j).Value
                         Sheets("calculs2018").Select
                         Range("K" & k + 1).Value = calcul
                    End If
                End If
                ThisWorkbook.Worksheets(i).Activate
            Next
            For j = recherchemincodes To recherchemaxcodes  'recherche le code du travail
                If Range("A" & j).Value = "E3" Then
                    If IsNumeric(Range("C" & j)) And Range("C" & j).Value <> 0 Then
                         calcul = Range("D" & j).Value / Range("C" & j).Value
                         Sheets("calculs2018").Select
                         Range("L" & k + 1).Value = calcul
                    End If
                End If
                ThisWorkbook.Worksheets(i).Activate
            Next
            For j = recherchemincodes To recherchemaxcodes  'recherche le code du travail
                If Range("A" & j).Value = "E4" Then
                    If IsNumeric(Range("C" & j)) And Range("C" & j).Value <> 0 Then
                         calcul = Range("D" & j).Value / Range("C" & j).Value
                         Sheets("calculs2018").Select
                         Range("M" & k + 1).Value = calcul
                    End If
                End If
                ThisWorkbook.Worksheets(i).Activate
            Next
            For j = recherchemincodes To recherchemaxcodes  'recherche le code du travail
                If Range("A" & j).Value = "Total pour audit menuisier" Then
                    Range("D" & j).Select
                    Selection.Copy
                    Sheets("calculs2018").Select
                    Range("N" & k + 1).Select
                    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                            :=False, Transpose:=False
                End If
                ThisWorkbook.Worksheets(i).Activate
            Next
            For j = recherchemincodes To recherchemaxcodes  'recherche le code du travail
                If Range("A" & j).Value = "Total pour audit monteur" Then
                    Range("D" & j).Select
                    Selection.Copy
                    Sheets("calculs2018").Select
                    Range("O" & k + 1).Select
                    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                            :=False, Transpose:=False
                End If
                ThisWorkbook.Worksheets(i).Activate
            Next
            For j = recherchemincodes To recherchemaxcodes  'recherche le code du travail
                If Range("A" & j).Value = "Total pour audit de l'électricien" Then
                    Range("D" & j).Select
                    Selection.Copy
                    Sheets("calculs2018").Select
                    Range("P" & k + 1).Select
                    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                            :=False, Transpose:=False
                End If
                ThisWorkbook.Worksheets(i).Activate
            Next
            For j = recherchemincodes To recherchemaxcodes  'recherche le code du travail
                If Range("A" & j).Value = "Moyenne des trois audits pour le site" Then
                    Range("D" & j).Select
                    Selection.Copy
                    Sheets("calculs2018").Select
                    Range("Q" & k + 1).Select
                    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                            :=False, Transpose:=False
                End If
                ThisWorkbook.Worksheets(i).Activate
            Next
 
 
    End If
 
 Next
 
 
 Sheets("Synthese-operationnelle").Range("U16").Value = k
 Sheets("Synthese-operationnelle").Activate
 
Sheets("calculs2018").Visible = False
 
Application.ScreenUpdating = True
 
End Sub

[Menhir]

Voici le code original et complet de la macro, j'ai tenté d'y apporter tes recommandations mais cela n'a pas fonctionné
Merci d'y jeter un coup d'oeil

Tu n'as même pas pris la peine d'y apporter les modifications évoquées dans mon premier message.
Tu me prends pour qui ? La bonne de service ?

[Gonteur]

Absolument pas Menhir,

Comme mentionné, j'ai fait les changements et ce n'était pas fonctionnel, j'ai donc pensé que c'était peut-être parce que tu ne voyais pas le code dans son ensemble. De là la publication intégrale.

Désolé de l'interprétation que tu en as fait.

De mon coté je continue à chercher selon tes premières recommandations

Merci

[Menhir]

Comme mentionné, j'ai fait les changements et ce n'était pas fonctionnel

Montre ce que tu as fait comme modification et il sera peut-être possible de comprendre pourquoi ça n'est pas "fonctionnel".