Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter
Discussion :
[XL-2003]
Ajouter couleur en fonction de la valeur en macro
Bonjour,
je dois crée une macro qui lorsque j'appuie sur le bouton
il applique une couleur de fond et une couleur de texte en fonction du numéro indiqué dans la colonne H
ex:
- les valeurs 0001 , 0002 , 0003 , 1000 et 1001 = applique un fond rouge avec un texte blanc
- les valeurs 0004 , 0007 , 0204 , 1010 et 1011 = applique un fond orange avec un texte blanc
- les valeurs 0006 , 1020 = applique un fond vert avec un texte blanc
Merci de bien vouloir m'aider
Cordialement,
Bonjour,
vous pouvez faire ceci avec l'enregistreur de macro.
Voir ensuite du coté de colorindex pour les codes couleur
faire une boucle du style
Code : Sélectionner tout - Visualiser dans une fenêtre à part
2
3
4
5
Merci de cliquer surpour chaque message vous ayant aidé
puis surpour clore cette discussion …
C'est en récoltant les cailloux qu'on te jette que tu construiras ta future estrade...
Merci pour votre réponse,
je n'utilise pas la fonction .Interior.ColorIndex mais .Interior.Color = RGB(255, 255, 255) pour me facilité dans les couleurs.
et le code ci-dessous fonctionne pour la couleur de fond mais pas pour la couleur du texte.
Est ce que ce code peux fonctionner?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17Set CL = ThisWorkbook.Sheets("feuille") For i = 1 To 10 If CL.Cells(i, "H").Value = 0001 Or CL.Cells(i, "H").Value = 0002 Or CL.Cells(i, "H").Value = 0003 Or CL.Cells(i, "H").Value = 1000 Or CL.Cells(i, "H").Value = 1001 CL.Cells(i, "H").Font.Color = RGB(255, 255, 255) 'Police Couleur Blanche CL.Cells(i, "H").Interior.Color = RGB(255, 0, 0) 'Police Couleur Rouge End If If CL.Cells(i, "H").Value = 0004 Or CL.Cells(i, "H").Value = 0007 Or CL.Cells(i, "H").Value = 0204 Or CL.Cells(i, "H").Value = 1010 Or CL.Cells(i, "H").Value = 1011 CL.Cells(i, "H").Font.Color = RGB(255, 255, 255) 'Police Couleur Blanche CL.Cells(i, "H").Interior.Color = RGB(228, 109, 10) 'Police Couleur Orange End If If CL.Cells(i, "H").Value = 0006 Or CL.Cells(i, "H").Value = 0120 CL.Cells(i, "H").Font.Color = RGB(255, 255, 255) 'Police Couleur Blanche CL.Cells(i, "H").Interior.Color = RGB(0, 176, 80) 'Police Couleur Vert End If
Et la deuxième ligne For = 1 To 10 ne me plait pas :/ sachant que c'est une table dynamique il faut aller de H3 jusqu'à la dernière ligne.
j'ai ce code la pour pallier le problème d'ajouter jusqu'à la dernière ligne mais je ne sais pas trop comment je vais l'ajouter :/
Code : Sélectionner tout - Visualiser dans une fenêtre à part
2
3
4
5
6
7
8
9
Bonjour,
Teste ce qui suit. Je suppose que la colonne H est au format texte :
Hervé.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Ouiii merci sa marchemais si jamais je veux effacer les couleurs et remettre par défaut, je fais comment?
Bonjour,
De cette façon (je re-poste tout le code) :
Hervé.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Merci bien
par contre si jamais je met une autre valeur dans la colonne il ne change pas la couleur comme le fais une conditionnelle :/
on m'a parlé de le faire avec une mise en forme conditionnelle
on ma dit qu'il faudrai mieux que je mette ma colonne dans un format personnalisé "0000" pour garder mes 3 ou 4 zero
maiis..... voici le problème ^^" la conditionnelle est tellement grande que sa fonctionne pas et faire de cette conditionnelle une macro....
Code : Sélectionner tout - Visualiser dans une fenêtre à part
2
3
4
5
6
7
8
9
10
11
12
13
C'est normal puisque ce sont seulement les valeurs indiquées dans le bloc Select Case qui sont prisent en compte ! Case "0001", "0002", "0003", "1000", "1001" etc...par contre si jamais je met une autre valeur dans la colonne il ne change pas la couleur comme le fais une conditionnelle :/
Si ta formule est trop compliquée pour une MFC, il te soit passer par VBA et éventuellement, utiliser un tableau pour stocker toutes ces valeurs soit utiliser une colonne intermédiaire (cachée si tu veux) dans laquelle se trouveraient tes formules et ta MFC y ferai référence.
Hervé.
j'ai trouver un truc meilleur: récuperer le code couleur à partir d'un fichier :/
par contre problème les couleurs ne s'affiche pas correctement et me donne une autre couleur
voici les fonctions que j'utilise:
et mon vert qui a comme code RVB: 0 190 0
Code : Sélectionner tout - Visualiser dans une fenêtre à part
2
il se retrouve avec la couleur: 0 100 17
:/ je comprend pas le problème
c'est le même cas pour mon rouge
Rouge original: 230 0 0
Rouge afficher: 221 8 6
Pour mon orange pourtant lui il fonctionne bien:
Orange original: 255 102 0
Orange affiché: 255 102 0
bonjour,
essayes
Code : Sélectionner tout - Visualiser dans une fenêtre à part
2
3
4
Cordialement,
Dom
_____________________________________________
Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
pensez à cliquer sur
Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)
j'ai une erreur
La méthode Select de la case Range à échouer
Code : Sélectionner tout - Visualiser dans une fenêtre à part
2
3
4
5
6
7
8
9
10
11
12
C'est un autre problème, à toi de vérifier la variable "I"La méthode Select de la case Range à échouer
d'ailleurs à quoi sert cette ligne ? pourquoi selectionner ?
Cordialement,
Dom
_____________________________________________
Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
pensez à cliquer sur
Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)
Le processus qui se passe, le fichier va attribuer la couleur qui se trouve dans un autre fichier en fonction de la valeur qui lui es attribué.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
De toute façon je pense que cette ligne ne sert à rien
Code : Sélectionner tout - Visualiser dans une fenêtre à part Workbooks(Fic_SRC).Worksheets("Feuil1").Cells(I, 8).Select
Cordialement,
Dom
_____________________________________________
Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
pensez à cliquer sur
Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)
ouiii
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Répondre avec citation
Partager