Version imprimable
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:
2
3
4
5
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:
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:
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:
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 marche :D mais 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:
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:
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...Citation:
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 0Code:
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,
essayesCode:
2
3
4
j'ai une erreur
La méthode Select de la case Range à échouer
Code:
2
3
4
5
6
7
8
9
10
11
12
C'est un autre problème, à toi de vérifier la variable "I"Citation:
La méthode Select de la case Range à échouer
d'ailleurs à quoi sert cette ligne ? pourquoi selectionner ?
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:
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 à rienCode:Workbooks(Fic_SRC).Worksheets("Feuil1").Cells(I, 8).Select
ouiii :D merci sa marche !!