Macro vba erronée

Version imprimable

Macro vba erronée

Bonjour A tous,

La macro Ecxel suivante bugue

l'outil de débogage surligne cette partie du code

Code:

, colors As Scripting.Dictionary

Code complet :
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 Sub TEST() Dim rg As Range, cl As Range, colors As Scripting.Dictionary, col As Long, maxnb As Long, colmax As Long, koul Set rg = Range("c5:l5") Set colors = New Scripting.Dictionary For Each cl In rg col = cl.Interior.Color Select Case col Case vbWhite, 8421504: Case Else: If colors.Exists(col) Then colors(col) = colors(col) + 1 Else Call colors.Add(col, 1) End If End Select Next cl colmax = 0 maxnb = 0 For Each koul In colors.keys If colors(koul) > maxnb Then maxnb = colors(koul) colmax = koul End If Next koul Sheets("Synthèse résultats ctrl période").Range("M5").Interior.Color = colmax End Sub
N'ayant aucune notion de VBA quelqu'un peut-il corriger ce code :-)

L'objectif de la macro est de remplir la cellule M5 de la couleur la plus présente dans les cellules C5:L5.

Exemple :

Exemple : si la cellule C est remplie en vert, la cellule D est remplie en vert, la cellule E est remplie en vert, la cellule F est remplie en vert, la cellule G est remplie en jaune, la cellule H est remplie en jaune, la celluleI est remplie en violet, la cellule J est remplie en rouge, la cellule K est remplie en vert et la cellule L est remplie en marron la cellule M doit être remplie en vert puisqu'il y a 5 cases vertes, 2 jaunes 1 violette et 1 rouge et 1 marron.

Enfin si aucune couleur n'a la majorité ---> laisser la case vide pour que je puisse remplir la cellule après analyse.

Merci par avance pour votre aide.

Cordialement.

25/07/2020, 11h41
Patrice740

Bonjour,

C'est pas un bug, c'est un manque.
Pour que le compilateur comprenne ce code, il faut établir une référence à Microsoft Scripting Runtime :
Dans le VBE :Outils /Reférences .../Cocher la case correspondante

Citation:

Envoyé par Patrice740

Bonjour,

C'est pas un bug, c'est un manque.
Pour que le compilateur comprenne ce code, il faut établir une référence à Microsoft Scripting Runtime :
Dans le VBE :Outils /Reférences .../Cocher la case correspondante

Bonjour,

Merci pour ton aide :-)

Le résultat de mon code ressort "erroné" : seul le remplissage de la cellules H5 a été pris en compte et pas celui des autres cellules C5:G5 et J5:L5 . Je pense que c'est lié aux codes couleurs repris dans les macros mais je n'en suis pas sûre

exemples :
Code:

1 2 3 4 5 6 7 8 9 Range("D5").Select Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "='Fiche de contrôle'!$D$183=""PARTIELLEMENT RECUPERE""" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorAccent6 .TintAndShade = -0.249946592608417 'Couleur orange End With
Si mon analyse est juste, peux-tu me montrer comment modifier ces codes couleurs ; j'ai essayé ceci pour la couleur grise mais les cases se sont remplies en noir donc j'ai certainement fait une erreur

Code initial :
Code:

1 2 3 4 5 6 7 Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "='Fiche de contrôle'!$D$262=""""" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = -0.349986266670736
Code après mon test :
Code:

1 2 3 4 5 6 7 Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "='Fiche de contrôle'!$D$262=""""" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 48 .TintAndShade = 0
Enfin dernière question, le code initial prend en compte les cellules remplies en gris peux tu me le modifier pour quil les exclut du résultat.

J'ai besoin dans la cellule M5 d'un résultat brut avec prise en compte de toutes les couleurs.

Et dans la cellule N5 d'un résultat net qui exclut la couleur grise.

Je remets le code initial ci après :
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 Sub TEST() Dim rg As Range, cl As Range, colors As Scripting.Dictionary, col As Long, maxnb As Long, colmax As Long, koul Set rg = Range("C5:L5") Set colors = New Scripting.Dictionary For Each cl In rg col = cl.Interior.Color Select Case col Case vbWhite, 8421504: Case Else: If colors.Exists(col) Then colors(col) = colors(col) + 1 Else Call colors.Add(col, 1) End If End Select Next cl colmax = 0 maxnb = 0 For Each koul In colors.keys If colors(koul) > maxnb Then maxnb = colors(koul) colmax = koul End If Next koul Sheets("Synthèse résultats ctrl période").Range("M5").Interior.Color = colmax End Sub
Merci par avance pour tes explications :-)

Cordialement

Bonjour,

Ceci:

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
Sub TEST()
    Dim rg As Range, cl As Range, colors As Object, col As Long, maxnb As Long, colmax As Long, koul
    Set rg = Range("c5:l5")
    Set colors = CreateObject("Scripting.Dictionary")
    For Each cl In rg
        col = cl.Interior.Color
        Select Case col
            Case vbWhite, 8421504:
            Case Else:
                If colors.Exists(col) Then
                    colors(col) = colors(col) + 1
                Else
                    Call colors.Add(col, 1)
                End If
 
        End Select
    Next cl
    colmax = 0
    maxnb = 0
    For Each koul In colors.keys
        If colors(koul) > maxnb Then
            maxnb = colors(koul)
            colmax = koul
        End If
    Next koul
    Sheets("Synthèse résultats ctrl période").Range("M5").Interior.Color = colmax
End Sub

Cdlt

Bonjour,

Merci pour ta réponse :-)

Je viens de tester le code et j'ai toujours le même souci seul le résultat de la case H5 est pris en compte. Comme je l'indiquais plus avant il semble que ça soit lié aux codes couleurs utilisés dans mes autres macros.

Étant totalement novice en vba je n'ai pas réussi à modifier correctement ces codes couleurs puisque le remplissage de la case est passé de gris à noir or je souhaite bien du gris.

Code initial :
Code:

1 2 3 4 5 6 7 Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "='Fiche de contrôle'!$D$262=""""" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = -0.349986266670736 '= gris dans ma macro
Code modifié avec erreur visiblement :
Code:

1 2 3 4 5 6 7 Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "='Fiche de contrôle'!$D$262=""""" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 48 .TintAndShade = 0
Peux tu corriger ce code pour que je puisse modifier correctement l'ensemble des macros?

Et me donner les codes pour les couleurs verte orange rouge.

Merci par avance pour ton aide.

Cordialement

25/07/2020, 17h28
ARTURO83

Citation:

Je viens de tester le code et j'ai toujours le même souci seul le résultat de la case H5 est pris en compte.

Je ne comprends pas, voici un fichier exemple reprenant votre code, testez-le:
Pièce jointe 575838
25/07/2020, 19h46
Dautomne

1 pièce(s) jointe(s)

Citation:

Envoyé par ARTURO83

Je ne comprends pas, voici un fichier exemple reprenant votre code, testez-le:
Pièce jointe 575838

Je te joins un fichier que j'ai allégé avec le résultat du code. Je ne sais pas ce que je ne fais pas correctement mais seul le résultat de la cellule H5.

Merci encore :-)
26/07/2020, 05h19
ARTURO83

Bonjour,

Votre fichier ne s'ouvre pas, réessayez

Cdlt

Edit:

Je viens de m'apercevoir qu'en fait les couleurs sont issues de MFC, ce qui évidemment n'est plus pareil. Je regarde ça
26/07/2020, 11h38
Dautomne

Citation:

Envoyé par ARTURO83

Bonjour,

Votre fichier ne s'ouvre pas, réessayez

Cdlt

Edit:

Je viens de m'apercevoir qu'en fait les couleurs sont issues de MFC, ce qui évidemment n'est plus pareil. Je regarde ça

Bonjour Arturo83,

J'ai refais le test sur un autre fichier la formule fonctionne (les cellules grises sont bien exclues) merci encore. Mon fichier excel doit être corrompu donc à refaire.

Peux-tu m'indiquer comment prendre en compte les cellules grises dans la formule pour obtenir mon résultat brut?

Merci également pour l'explication à venir sur les couleurs MFC (je peux peut-être juste modifier les codes couleurs de l'ensemble de mes macros..... mais comme je l'ai indiqué plus haut je dois faire une erreur en modifiant le code :aie: peux-tu me montrer comment le faire correctement ?)

Cordialement
26/07/2020, 11h49
ARTURO83

Je ne sais comment est fait votre fichier mais, est-ce que votre code est balayé à chaque demande (en cliquant sur un bouton par exemple) et réapplique à chaque fois les MFC?

Il me manque des éléments pour avancer
26/07/2020, 14h11
Dautomne

Citation:

Envoyé par ARTURO83

Je ne sais comment est fait votre fichier mais, est-ce que votre code est balayé à chaque demande (en cliquant sur un bouton par exemple) et réapplique à chaque fois les MFC?

Il me manque des éléments pour avancer

Pour le moment je n'ai pas créé de bouton qui lance mes macros en automatique. Dans le vbe je clique juste sur exécuter la macro.

Donc à priori ça doit réappliquer les MFC....

Ci-après mon fichier

https://www.cjoint.com/c/JGAn4wYNavO

Cordialement
26/07/2020, 19h16
ARTURO83

toujours impossible à ouvrir

Citation:

Envoyé par ARTURO83

toujours impossible à ouvrir

Bonjour Arturo83,

J'ai testé le fichier sur 3 ordinateurs différents il s'ouvre correctement. J'ai toutefois modifié le fichier en format excel 97-2003 en espérant que cela fonctionne :-)

https://www.cjoint.com/c/JGBhNqsppgO

Au cas où voici l'intégralité du code de mon fichier :

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
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
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
Sub Macro1()
 
'TESSI ICSB S1
 
'CONTRAT
 
'KYS
 
 Range("D5").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$183=""PARTIELLEMENT RECUPERE"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249946592608417
    End With
 
   Range("D5").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$183=""RECUPERE"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 10
        .TintAndShade = 0
    End With
 
   Range("D5").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$183=""NON RECUPERE"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
    End With
 
 Range("D5").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$183="""""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
    End With
 
'TENUE DE COMITE
 
Range("E5").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$188=""CONFORME"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
    End With
 
    Range("E5").Select
     Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$188=""PARTIELLEMENT CONFORME"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249946592608417
 
    End With
      Range("E5").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$188=""NON CONFORME"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
    End With
 
'SUIVI PRESTATION
 
'SOUS-TRAITANCE
 
Range("G5").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ET('Fiche de contrôle'!$D$212:$D$214=""OUI"";'Fiche de contrôle'!$E$212:$E$214="""")"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
    End With
 
Range("G5").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$212:$D$214=""NON"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
    End With
 
Range("G5").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ET('Fiche de contrôle'!$D$212:$D$214=""OUI"";'Fiche de contrôle'!$E$54:$E$56<>"""")"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249946592608417
    End With
 
    Range("G5").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$212:$D$214="""""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
    End With
 
'SUIVI INCIDENTS
 
    Range("I5").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$197="""""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
        End With
 
    Range("I5").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$197= ""EFFICIENT"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = -0.349986266670736
        End With
 
    Range("I5").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$197=""NON EFFICIENT"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
End With
 
   Range("I5").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
       "='Fiche de contrôle'!$D$197=""PARTIELLEMENT EFFICIENT"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249946592608417
    End With
 
'PUPA
 
    Range("J5").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=""'Fiche de contrôle'!$D$220:$D$222=SATISFAISANT"""""""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
    End With
 
    Range("J5").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$220:$D$222=""CORRECT"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
    End With
 
    Range("J5").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$220:$D$222=""A AMELIORER"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249946592608417
    End With
 
    Range("J5").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$220:$D$222=""INSUFFISANT"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
    End With
 
    Range("J5").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$220:$D$222="""""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
    End With
 
'CPC
    Range("K5").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=""'Fiche de contrôle'!$D$224=SATISFAISANT"""""""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
    End With
 
    Range("K5").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$224=""CORRECT"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
    End With
 
    Range("K5").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$224=""A AMELIORER"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249946592608417
    End With
 
    Range("K5").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$224=""INSUFFISANT"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
    End With
 
    Range("K5").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$224="""""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
    End With
 
   'RSSI
 
    Range("L5").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=""'Fiche de contrôle'!$D$228=SATISFAISANT"""""""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
    End With
 
    Range("L5").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$228=""CORRECT"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
    End With
 
    Range("L5").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$228=""A AMELIORER"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249946592608417
    End With
 
    Range("L5").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$228=""INSUFFISANT"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
    End With
 
    Range("L5").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$228="""""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
    End With
 
End Sub
 
Sub TESSI_ICBS_S1()
 
'CTRL FACTURATION
 
Dim rg As Range, cl As Range, noui As Integer, nnon As Integer, couleur As Integer, ncel As Long
Set rg = Sheets("Fiche de contrôle").Range("$D$216:$D$218")
noui = 0
nnon = 0
ncel = rg.Count
For Each cl In rg
    Select Case cl.Value
        Case "NON":
            nnon = nnon + 1
        Case "OUI":
            noui = noui + 1
    End Select
Next cl
If noui = ncel Then
     couleur = 10 'vert
 
Else
    If nnon = ncel Then
        couleur = 9 'rouge
    Else
        If noui + nnon = ncel Then
            couleur = 46 'orange
        Else
            couleur = 48 'gris
        End If
    End If
End If
Sheets("Synthèse résultats ctrl période").Range("H5").Interior.ColorIndex = couleur
 
End Sub
 
Sub Macro2()
 
'TESSI ICSB S2
 
'CONTRAT
 
'KYS
 Range("D39").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$262=""PARTIELLEMENT RECUPERE"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249946592608417
    End With
 
  Range("D39").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$262=""RECUPERE"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
    End With
 
   Range("D39").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$262=""NON RECUPERE"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
    End With
 
 Range("D39").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$262="""""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
    End With
 
'TENUE COMITE
 
Range("E39").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$267=""CONFORME"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
    End With
 
    Range("E39").Select
     Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$267=""PARTIELLEMENT CONFORME"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249946592608417
 
    End With
      Range("E39").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$267=""NON CONFORME"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
    End With
 
 Range("E39").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$267="""""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
    End With
 
'SUIVI PRESTATION
 
'SOUS-TRAITANCE
 
   Range("G39").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ET('Fiche de contrôle'!$D$291:$D$293=""OUI"";'Fiche de contrôle'!$E$291:$E$293="""")"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
    End With
 
Range("G39").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$291:$D$293=""NON"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
    End With
 
Range("G39").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ET('Fiche de contrôle'!$D$291:$D$293=""OUI"";'Fiche de contrôle'!$E$291:$E$293<>"""")"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249946592608417
    End With
 
    Range("G39").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$291:$D$293="""""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
 
    End With
 
'SUIVI INCIDENTS
 
    Range("I39").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$276="""""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
        End With
 
    Range("I39").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$276= ""EFFICIENT"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = -0.349986266670736
        End With
 
    Range("I39").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$276=""NON EFFICIENT"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
End With
 
   Range("I39").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
       "='Fiche de contrôle'!$D$276=""PARTIELLEMENT EFFICIENT"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249946592608417
    End With
 
'PUPA
 
Range("J39").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=""'Fiche de contrôle'!$D$299=SATISFAISANT"""""""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
    End With
 
    Range("J39").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$299=""CORRECT"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
    End With
 
    Range("J39").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$299=""A AMELIORER"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249946592608417
    End With
 
    Range("J39").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$299=""INSUFFISANT"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
    End With
 
    Range("J39").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$299="""""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
    End With
 
'CPC
 
Range("K39").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=""'Fiche de contrôle'!$D$303=SATISFAISANT"""""""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
    End With
 
    Range("K39").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$303=""CORRECT"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
    End With
 
    Range("K39").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$303=""A AMELIORER"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249946592608417
    End With
 
    Range("K39").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$303=""INSUFFISANT"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
    End With
 
    Range("K39").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$303="""""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
    End With
 
'RSSI
 
Range("L39").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=""'Fiche de contrôle'!$D$307=SATISFAISANT"""""""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
    End With
 
    Range("L39").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$307=""CORRECT"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
    End With
 
    Range("L39").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$307=""A AMELIORER"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249946592608417
    End With
 
    Range("L39").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$307=""INSUFFISANT"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
    End With
 
    Range("L39").Select
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "='Fiche de contrôle'!$D$307="""""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
    End With
End Sub
 
Sub TESSI_ICBS_S2()
 
'SUIVI FACTURATION
 
Dim rg As Range, cl As Range, noui As Integer, nnon As Integer, couleur As Integer, ncel As Long
Set rg = Sheets("Fiche de contrôle").Range("$D$295:$D$297")
noui = 0
nnon = 0
ncel = rg.Count
For Each cl In rg
    Select Case cl.Value
        Case "NON":
            nnon = nnon + 1
        Case "OUI":
            noui = noui + 1
    End Select
Next cl
If noui = ncel Then
    couleur = 10 'vert
Else
    If nnon = ncel Then
        couleur = 9 'rouge
    Else
        If noui + nnon = ncel Then
            couleur = 46 'orange
        Else
            couleur = 48 'gris
        End If
    End If
End If
Sheets("Synthèse résultats ctrl période").Range("H39").Interior.ColorIndex = couleur
 
End Sub
 
'Evaluation du dispositif brut où net ?
 
Sub TESSI_ICSB_S1()
Dim rg As Range, cl As Range, colors As Scripting.Dictionary, col As Long, maxnb As Long, colmax As Long, koul
Set rg = Range("C5:L5")
Set colors = New Scripting.Dictionary
For Each cl In rg
    col = cl.Interior.Color
    Select Case col
        Case vbWhite, 8421504:
        Case Else:
            If colors.Exists(col) Then
                colors(col) = colors(col) + 1
            Else
                Call colors.Add(col, 1)
            End If
 
    End Select
Next cl
colmax = 0
maxnb = 0
For Each koul In colors.keys
    If colors(koul) > maxnb Then
        maxnb = colors(koul)
        colmax = koul
    End If
Next koul
Sheets("Synthèse résultats ctrl période").Range("M5").Interior.Color = colmax

Tu as raison le code de l'évaluation du dispositif ne prend en compte que la case H5 puisque c'est la seule cellule où le code couleur est en vba.

Petite parenthèse (Je ne sais pas si cette partie du code correspond à l'évaluation brute (avec prise en compte des cellules grises) où nette (sans prise en compte des cellules grises)

As tu une solution pour modifier les codes couleurs en vba.

Merci encore pour ton aide.

Cordialement.

27/07/2020, 12h26
ARTURO83

Bonjour,

J'ai réussi à ouvrir le fichier, mais il n'y pas de MFC dans les cellules de C5 à L5, 's'il y en avait, elles se sont probablement perdues lors du passage en excel 2003.

Partant de ce constat, j'ai mis des couleurs dans la plage indiquée et appliquer la macro "Sub TEST()", elle fonctionne très bien et restitue bien en M5 la couleur la plus fréquente dans la plage C5:L5.

Votre fichier avec les couleurs, changez-les et lancez la macro "Test"
Pièce jointe 575928

J'ai bien essayé de regarder, s'il y avait une application de MFC sur cette zone, mais d'après les codes trouvés, cela fait références à des cellules sui renvoient "#REF", donc pas évident de faire quelque chose avec ç.

Cdlt
27/07/2020, 13h12
Dautomne

1 pièce(s) jointe(s)

Merci Arturo83,

Hélas le souci persiste. Je viens d'ouvrir le fichier, je suis allée dans le Vbe et j'ai lancé les 2 macros. Le résultat est erroné case verte en lieu et place d'une case grise (je te joins le print écran du résultat de contrôle)

J'ai ensuite modifié le résultat du contrôle de la facturation pour que la case soit en rouge et je confirme que seul le résultat du contrôle de la case H est pris en compte.

https://www.cjoint.com/c/JGBlhUvDKRO

Enfin, si je remplie les cases manuellement effectivement ça fonctionne parfaitement :-)

Cordialement
27/07/2020, 14h51
ARTURO83

Citation:

Hélas le souci persiste. Je viens d'ouvrir le fichier, je suis allée dans le Vbe et j'ai lancé les 2 macros

lesquelles précisemment?

Citation:

Enfin, si je remplie les cases manuellement effectivement ça fonctionne parfaitement

c'est donc bien des MFC

Je ne vois pas à quoi correspond le premier fichier joint

Citation:

Envoyé par ARTURO83

lesquelles précisemment?

C'est donc bien des MFC

Je ne vois pas à quoi correspond le premier fichier joint

A la première question j'ai lancé l'ensemble des macros des 2 modules.

Le fichier word que j'ai joins est juste un print écran du résultat obtenu en lançant l'ensemble desdites macros (rien de plus :) ).

Pour le fichier excel, j'ai juste retourné le résultat après modification des résultats du contrôle de la facturation dans la feuille "Fiche de contrôle" pour étayer mon propos et montrer que seule la cellule H5 est prise en compte (seul code couleur en vba à priori).

Est-ce que tu peux me montrer comment :

- procéder à la modification de l'ensemble de mes codes passages de MFC en VBA en me mettant un exemple ?

- modifier la formule suivante pour quelle ne prennent pas en compte les cellules remplies en gris afin que j'obtienne un résultat net
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 Sub SATEL_S2() 'CTRL FACTURATION Dim rg As Range, cl As Range, noui As Integer, nnon As Integer, couleur As Integer, ncel As Long Set rg = Sheets("Fiche de contrôle").Range("$D$2191:$D$2193") noui = 0 nnon = 0 ncel = rg.Count For Each cl In rg Select Case cl.Value Case "NON": nnon = nnon + 1 Case "OUI": noui = noui + 1 End Select Next cl If noui = ncel Then couleur = 10 'vert Else If nnon = ncel Then couleur = 9 'rouge Else If noui + nnon = ncel Then couleur = 46 'orange Else couleur = 48 'gris End If End If End If Sheets("Synthèse résultats ctrl période").Range("H57").Interior.ColorIndex = couleur End Sub
Merci :)

Etes-vous vraiment sûre d'avoir déposé le bon fichier excel, dont voici la capture d'écran
Pièce jointe 575952

Pour mettre en place les MFC il faut en connaître les conditions.
Ne les connaissant pas, je vous donne un petit bout de code bien commenté qui vous explique comment faire, il vous suffira de l'adapter à votre fichier.
Exemple de code avec 3 conditions par formule et qui restitue les couleurs Rouge, verte, bleue. reproduisez-le en appliquant vos formules et en choisissant d'autres couleurs en jouant sur RGB(0,0,0) à RGB(255,255,255)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub FormatConditionnel() 'déclaration des variables Dim Rng As Excel.Range 'pour désigner la plage sur laquelle s'applique la MFC Dim Fc1 As Excel.FormatCondition, Fc2 As Excel.FormatCondition, Fc3 As Excel.FormatCondition 'pour chaque Format conditionnel Set Rng = Range("A1:A10") 'plage sur laquelle s'applique la MFC Rng.FormatConditions.Delete 'On efface les MFC précédentes Set Fc1 = Rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=A1<B1") 'Formule appliquée au 1er format conditionnel Fc1.Interior.Color = RGB(255, 0, 0) 'application de la couleur, ici le rouge Set Fc2 = Rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=A1=B1") 'Formule appliquée au 2ème format conditionnel Fc2.Interior.Color = RGB(0, 255, 0) 'application de la couleur, ici le vert Set Fc3 = Rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=A1>B1") 'Formule appliquée au 3ème format conditionnel Fc3.Interior.Color = RGB(0, 0, 255) 'application de la couleur, ici le bleu End Sub
Commencez par cela, on verra pour la suite

27/07/2020, 18h08
Dautomne

Désolée pour le fichier le voici :

https://www.cjoint.com/c/JGBqhVBi3SO

Bonjour,

Pour vous avancer un peu, voici votre fichier avec un test sur les couleurs issues d'une MFC, j'ai mis des formules bidons, il vous suffit de les remplacer par les vôtres.
il faut saisir les formules dans la macro "Sub FormatConditionnel()", en rajouter ou supprimer au besoin.

le principe: Les cellules de C5:L5 contiennent des valeurs qui sont comparées aux valeurs des cellules de C1:L1, suivant les valeurs, 3 MFC sont appliquées sur la ligne 5. En lançant le test (clic sur le pavé Bleu), la cellule M5 prend la couleur la plus fréquente.
Les cellules grises ne sont pas exclues vu que je ne connais pas la couleur grise choisie.
Le fichier
Pièce jointe 576091

le code

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
Sub TEST()
    Dim Col As Long, colmax As Double
    Dim Fc As FormatCondition, F1
 
    Application.ScreenUpdating = False
    ReDim couleur(10) As Long
    Lig = 1
    For Col = 3 To 12 'de la colonne 3 à 12
        i = 1
        'Extraction de la couleur de la MFC
        Set c = Cells.Find(Empty) 'on cherche une cellule vide pour y mettre "Vrai" si la condition est trouvée
        For Each Fc In Cells(5, Col).FormatConditions 'parmi les 3 conditions de la MFC de la cellule testée
            c.FormulaLocal = Fc.Formula1: F1 = c
            If F1 Then Exit For 'si F1= vrai alors sortir boucle
        Next Fc
        If Not Fc Is Nothing Then couleur(i) = Fc.Interior.Color
        Cells(Lig, "Z") = couleur(i) ' sauvegarde de la couleur en colonne Z
        Lig = Lig + 1
        i = i + 1
        c.Clear
    Next Col
 
    colmax = Application.WorksheetFunction.Mode(Range("Z1:Z10")) 'on récupère la couleur la plus fréquente
    Sheets("Synthèse résultats ctrl période").Range("M5").Interior.Color = colmax ' on l'applique à la cellule en colonne M
    Range("Z1:Z10").ClearContents 'On efface la zone où sont mémorisées les couleurs trouvées
End Sub
 
Sub FormatConditionnel()
    'déclaration des variables
    Dim Rng As Excel.Range 'pour désigner la plage sur laquelle s'applique la MFC
    Dim Fc1 As Excel.FormatCondition, Fc2 As Excel.FormatCondition, Fc3 As Excel.FormatCondition 'pour chaque Format conditionnel
 
    Set Rng = Range("C5:L5") 'plage sur laquelle s'applique la MFC
    Rng.FormatConditions.Delete 'On efface les MFC précédentes
 
    Set Fc1 = Rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=C5<C1") 'Formule appliquée au 1er format conditionnel
    Fc1.Interior.Color = RGB(255, 0, 0) 'application de la couleur, ici le rouge
 
    Set Fc2 = Rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=C5=C1") 'Formule appliquée au 2ème format conditionnel
    Fc2.Interior.Color = RGB(0, 255, 0) 'application de la couleur, ici le vert
 
    Set Fc3 = Rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=C5>C1") 'Formule appliquée au 3ème format conditionnel
    Fc3.Interior.Color = RGB(0, 0, 255)     'application de la couleur, ici le bleu
End Sub

En espérant que ceci puisse vous aider.

Cdlt

Citation:

Envoyé par ARTURO83

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
Sub TEST()
    Dim Col As Long, colmax As Double
    Dim Fc As FormatCondition, F1
 
    Application.ScreenUpdating = False
    ReDim couleur(10) As Long
    Lig = 1
    For Col = 3 To 12 'de la colonne 3 à 12
        i = 1
        'Extraction de la couleur de la MFC
        Set c = Cells.Find(Empty) 'on cherche une cellule vide pour y mettre "Vrai" si la condition est trouvée
        For Each Fc In Cells(5, Col).FormatConditions 'parmi les 3 conditions de la MFC de la cellule testée
            c.FormulaLocal = Fc.Formula1: F1 = c
            If F1 Then Exit For 'si F1= vrai alors sortir boucle
        Next Fc
        If Not Fc Is Nothing Then couleur(i) = Fc.Interior.Color
        Cells(Lig, "Z") = couleur(i) ' sauvegarde de la couleur en colonne Z
        Lig = Lig + 1
        i = i + 1
        c.Clear
    Next Col
 
    colmax = Application.WorksheetFunction.Mode(Range("Z1:Z10")) 'on récupère la couleur la plus fréquente
    Sheets("Synthèse résultats ctrl période").Range("M5").Interior.Color = colmax ' on l'applique à la cellule en colonne M
    Range("Z1:Z10").ClearContents 'On efface la zone où sont mémorisées les couleurs trouvées
End Sub
 
Sub FormatConditionnel()
    'déclaration des variables
    Dim Rng As Excel.Range 'pour désigner la plage sur laquelle s'applique la MFC
    Dim Fc1 As Excel.FormatCondition, Fc2 As Excel.FormatCondition, Fc3 As Excel.FormatCondition 'pour chaque Format conditionnel
 
    Set Rng = Range("C5:L5") 'plage sur laquelle s'applique la MFC
    Rng.FormatConditions.Delete 'On efface les MFC précédentes
 
    Set Fc1 = Rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=C5<C1") 'Formule appliquée au 1er format conditionnel
    Fc1.Interior.Color = RGB(255, 0, 0) 'application de la couleur, ici le rouge
 
    Set Fc2 = Rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=C5=C1") 'Formule appliquée au 2ème format conditionnel
    Fc2.Interior.Color = RGB(0, 255, 0) 'application de la couleur, ici le vert
 
    Set Fc3 = Rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=C5>C1") 'Formule appliquée au 3ème format conditionnel
    Fc3.Interior.Color = RGB(0, 0, 255)     'application de la couleur, ici le bleu
End Sub

En espérant que ceci puisse vous aider.

Cdlt

Merci encore Arturo pour toute cette aide.

J'abandonne :aie:, même avec beaucoup de volonté c'est trop complexe pour moi en l'absence de notions vba et j'ai des milliers de lignes à traiter dans un délais très court.

A bientôt sur un autre poste :-)