Discussion :

[ickyspittingdick]

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

[Jean-Pierre49]

Bonsoir

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

En effet pas clair

Sans doute avec

Code :

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

Private Sub Worksheet_Change(ByVal Target As Range)

Ton fichier sans données confidencielles pourrait aidé

[ickyspittingdick]

Pour le fichier, je suis pas à mon bureau aujourd'hui... mais je tente une explication.

Je gère des une bande d'animateurs qui donnent des cours...

Donc j'ai une grille de ce genre (en carrément plus bordélique, mais le principe y est.) :

Les nombres dans les cases couleur correspondent au nombre d'élèves dans les ateliers, les couleurs à l'animateur sur place. HA=Heures Auditeurs, soit nombre de participants x durée de l'atelier.

J'ai un deuxième tableau plus loin, qui décompte le nombre d'heures auditeurs par animateur en fonction du code couleur, donc un =somCool(F6:AJ11;"anim1") par exemple.

Je voudrais que dans ma colonne AL (soit Général HA) les cellules apparaissent en couleurs en fonction du contenu des cellules de la colonne B (soit type d'atelier), donc en fonction du code couleurs contenu dans les lignes de code que j'ai fourni plus haut, tout en continuant de m'afficher le total d'heures audit.
Sachant que les couleurs de la colonne AL seront utilisées par la fonction somCool plus loin, dans un autre tableau reprenant le nombre d'ateliers de chaque type par lieu... mais ça je sais faire.

Si ça craint, je vous fourni le fichier en début de semaine prochaine, là, je suis en inter jusqu'à la fin de cette semaine.

[ouskel'n'or]

Bonjour ickyspittingdick, bienvenue sur le forum.
Modifie ton sujet de discussion et lis les règles du forum, elles pourront t'aider dans tes recherches.

Un sujet se doit d'être explicite afin que chacun puis savoir en le lisant s'il a des chances de pouvoir répondre.

Une autre raison : Si ton problème est résolu, la solution ne pourra servir à personne lors du recherche sur le forum. Il serait étonnant que quelqu'un tape l'un de ces mots "problème de débutant" en recherche.

Pour corriger, utilise le bouton "Editer" en bas de ton premier message.

Fais vite avant qu'un modérateur qui suit, lui, les règles des modérateurs consciencieux, le mette au rebus.
Bonne journée

[alsimbad]

j'ai pas tout compris a ton usine a gaz (euphemisme pour dir pas compris grand chose), mais peut etre un piste

je voudrais que des cellules changent de couleur en fonction des contenus texte d'autres cellules

ça ça correspond tout a fait a une mise en forme conditionelle
mais ça dépent du nombre de parametre, c'est assez limité. 3 je crois.
donc si tu n'as que 3 animateurs comme sur ton exemple, ça peut le faire. mais evidement si ça dépent de tout les codes couleurs de ton code, c'est pas bon

[ickyspittingdick]

Sujet modifié... mes excuses...
Mise en forme conditionnelle, j'y ai pensé...
Mais la mise en forme conditionnelle change la couleur d'une cellule en fonction de son propre contenu, je voudrais qu'elle change en fonction du contenu d'autres cellules... c'est là qu'est l'os !



Et j'ai un peu plus d'animateurs... y'en a 17 !!! pour 17 thèmes différents... c'est d'ailleurs par rapport au thème, qu'il faut que ça change, pas par rapport à l'animateur...