Bonjour tout le monde.
Je ne connais rien au Visual Basic... (dsl)

Je viens d'hériter d'un job pour lequel il faut que je gère des stats.
Je me retrouve avec des tableaux excel qui ont été faits par quelqu'un d'autre, j'aimerais le modifier pour l'automatiser un peu.

Alors voilà, pas mal de mes décomptes sont faits à partir de codes couleurs.

je trouve donc le code suivant :

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
Function SomCool(Zone As Range, animateur As String)
 
    Application.Volatile
 
    Select Case animateur
        Case "marina"
            couleur = 7
            Case "julien"
            couleur = 38
            Case "romainl"
            couleur = 14
            Case "romainc"
            couleur = 11
            Case "christophe"
            couleur = 45
            Case "Adrien"
            couleur = 5
            Case "samuel"
            couleur = 6
            Case "cedric"
            couleur = 41
            Case "xavier"
            couleur = 50
            Case "aline"
            couleur = 40
            Case "marc"
            couleur = 8
            Case "franck"
            couleur = 4
            Case "aurelien"
            couleur = 9
            Case "yann"
            couleur = 49
            Case "amandine"
            couleur = 37
            Case "mathieu"
            couleur = 12
            Case "julie"
            couleur = 44
            Case "internet"
            couleur = 39
            Case "word"
            couleur = 54
            Case "image"
            couleur = 13
            Case "ordi"
            couleur = 47
            Case "site"
            couleur = 16
            Case "periscolaire"
            couleur = 55
            Case "web"
            couleur = 52
            Case "autres"
            couleur = 15
            Case "sensib"
            couleur = 36
            Case "excel"
            couleur = 34
            Case "word+"
            couleur = 43
            Case "excel+"
            couleur = 10
            Case "diaporama"
            couleur = 46
            Case "linux"
            couleur = 53
            Case "ordi+"
            couleur = 14
            Case "internet+"
            couleur = 51
            Case "blog"
            couleur = 42
    End Select
 
    For Each Cell In Zone
        If Cell.Interior.ColorIndex = couleur Then cvSomme = cvSomme + Cell.Value
    Next
 
    SomCool = cvSomme
 
End Function
 
    Function SomAnnulation(Zone As Range, animateur As String)
 
    Application.Volatile
 
    Select Case animateur
            Case "Annulé par Structure"
            couleur = 3
            Case "Annulé par EPN"
            couleur = 1
    End Select
 
    For Each Cell In Zone
        If Cell.Interior.ColorIndex = couleur Then cvSomme = cvSomme + 1
    Next
 
    SomAnnulation = cvSomme
 
End Function
 
 
Function donneCouleur(Zone As Range)
    Application.Volatile
 
    For Each Cell In Zone
        donneCouleur = Cell.Interior.ColorIndex
    Next
 
End Function
(jusque là, tout va bien, je capte, ça va de soi)

Mais dans une autre partie de ce tableau, je voudrais que des cellules changent de couleur en fonction des contenus texte d'autres cellules, toujours en fonction du même code couleurs... et tout en affichant la somme d'autres cellules...

(j'ai peur de pas être clair... j'espère que si, parceque je ne sais pas comment le dire autrement.)

Bref, là je suis un peu paumé, si quelqu'un a une astuce...