Bonjour,
J'ai trouve sur internet les lignes ci-dessous qui me permettent d'appliquer une mise en forme conditionnelle >3 conditions mais le traitement est affreusement long puisqu'il agit partout... je ne sais pas comment modifier ce code pour appliquer cette mise en forme sur seulement deux onglets distincts (onglet 1 "PRO" et onglet 2 "AM0") et surtout des plages de cellules bien précises pour chaque (comme C6:G6 ainsi qu'une autre zone Q6:AN23 pour l'onglet 1 et colonne E + colonne G + colonne I pour l'onglet 2). Merci de votre aide...
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 Sub Test() 'Déclaration des variables ------------------------- Dim Cel As Range Dim F As Worksheet 'MEI ---------------------------- Application.ScreenUpdating = False 'Blocage ragraîchissement écran 'Traitement------------------------ For Each F In Worksheets 'Pour chaque feuille du classeur For Each Cel In F.UsedRange 'Pour chaque cellule de la plage utilisée de la feuille Select Case Cel.Value 'définir case = valeur de cel 'couleur : vert Case "1" Cel.Interior.ColorIndex = 4 Case "1/1" Cel.Interior.ColorIndex = 4 Case "1/2" Cel.Interior.ColorIndex = 4 Case "2/1" Cel.Interior.ColorIndex = 4 Case "V" Cel.Interior.ColorIndex = 4 'couleur : jaune Case "2" Cel.Interior.ColorIndex = 6 Case "1/3" Cel.Interior.ColorIndex = 6 Case "1/4" Cel.Interior.ColorIndex = 6 Case "2/2" Cel.Interior.ColorIndex = 6 Case "3/1" Cel.Interior.ColorIndex = 6 Case "4/1" Cel.Interior.ColorIndex = 6 Case "J" Cel.Interior.ColorIndex = 6 'couleur : orange Case "3" Cel.Interior.ColorIndex = 44 Case "2/3" Cel.Interior.ColorIndex = 44 Case "2/4" Cel.Interior.ColorIndex = 44 Case "3/3" Cel.Interior.ColorIndex = 44 Case "3/2" Cel.Interior.ColorIndex = 44 Case "4/2" Cel.Interior.ColorIndex = 44 Case "O" Cel.Interior.ColorIndex = 44 'couleur : rouge Case "4" Cel.Interior.ColorIndex = 3 Case "3/4" Cel.Interior.ColorIndex = 3 Case "4/4" Cel.Interior.ColorIndex = 3 Case "4/3" Cel.Interior.ColorIndex = 3 Case "R" Cel.Interior.ColorIndex = 3 Case Else Cel.Interior.ColorIndex = xlNone End Select Next Cel Next F Application.ScreenUpdating = True End Sub
Partager