Discussion :

[Myopus1992]

Bonjour,

Je suis débutant sur VBA et je dois écrire un programme.
Ce programme doit mettre, dans un onglet donné, en gras vert foncé toutes les cellules dont le premier caractère est 1. Seulement voilà je voudrais qu'il fasse cela que dans certaines cellules qui ont un fond d'une certaine couleur (en locurence gris clair dont le code est 15395562).

Mon problème est que je n'arrive pas à faire marcher le code que pour ces cellules avec un fond d'une certaine couleur, pouvez-vous m'aider ?

Ps: il y a trois autre couleurs: vert clair lorsque le premier caractère est 2, rouge claire pour 3 et rouge foncé pour 4...

Voici le code:

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
Sub Exo1()
 
Dim i, j As Integer
 
For i = 1 To Range("B" & Rows.Count).End(xlUp).Row
For j = 1 To Cells(3, Columns.Count).End(xlToLeft).Column
 
If Mid(Sheets("sheet1").Cells(i, j), 1, 1) = 1 Then
    Sheets("sheet1").Cells(i, j).Font.Color = -16744448
    Sheets("sheet1").Cells(i, j).Font.Bold = True
 
ElseIf Mid(Sheets("sheet1").Cells(i, j), 1, 1) = 2 Then
        Sheets("sheet1").Cells(i, j).Font.Color = -13382605
        Sheets("sheet1").Cells(i, j).Font.Bold = True
 
ElseIf Mid(Sheets("sheet1").Cells(i, j), 1, 1) = 3 Then
        Sheets("sheet1").Cells(i, j).Font.Color = -16763905
        Sheets("sheet1").Cells(i, j).Font.Bold = True
 
ElseIf Mid(Sheets("sheet1").Cells(i, j), 1, 1) = 4 Then
        Sheets("sheet1").Cells(i, j).Font.Color = -16777012
        Sheets("sheet1").Cells(i, j).Font.Bold = True
 
 
End If
Next
Next
 
End Sub

Merci beaucoup !

Willie

[Djohn92]

A priori, tu dois juste récupérer le font.color, tester si il est gris

Code :

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

1
2
3
4
5
 
'AIR CODE !!! Attention
if Sheets("Allianz Euro HY Bond").Cells(i, j).Font.Color = 15395562 then 
msgbox "ske tu veux ici"
end if

Comme ça ?

[kiki29]

Salut, débutant ou pas : Balise ton code

[eriiic]

Bonjour,

tu parles de fond d'une certaine couleur.
.font c'est la police.
La couleur du fond c'est .interior.color qu'il faut tester.
Et à condition que la couleur soit mise manuellement et pas par MFC.

eric

[Myopus1992]

Bonjour,

Merci Djohn92 et eriiic pour vos réponses !
Oui en effet Djohn92 je n'ai pas encore les bons reflexes, c'était pourtant simple :/ et eriiic en effet je n'ai pas pensé à
mettre la couleur manuellement, ça marche maintenent merci beaucoup.

Bonne soirée,

Willie

[Quentin77170]

Salut à toi,

Si je peux me permettre, je te conseille d'utiliser la fonction RGB lorsque tu parles des couleurs.

Cette fonction s'écrit RGB(Rouge, Vert, Bleu) avec les 3 couleurs allant de 0 à 255. Ces valeurs correspondent à l'intensité lumineuse des pixels de chaque couleur.

La valeur du code couleur est entièrement liée à cette fonction :
Code couleur = rouge + vert * 256 + bleu * 256²
Pour du noir, tes pixels ne sont pas sollicités donc RGB(0, 0, 0) = 0
Pour du rouge pur, seuls les pixels rouges sont sollicités donc RGB(255 , 0, 0) = 255 + 0*256 + 0*256² = 255
Pour du blanc, tous les pixels sont à fond donc RGB(255, 255, 255) = 255 + 255*256 + 255*256² = 16777215

Toutes les teintes de gris correspondent à un code RGB dont les 3 composantes sont identiques RGB(100,100,100) va être un gris plutôt sombre, RGB(200,200,200) va être plutôt clair.

À l'inverse, tu peux bien sûr retrouver le code couleur RGB à partir des couleurs que tu nous as données ainsi :
Rouge = Code couleur MODULO 256
Vert = (Code couleur MODULO 256*256 - Rouge)/256
Bleu = (Code couleur MODULO 256*256*256 - Rouge - Vert*256)/(256²)

Donc pour tes couleurs :
15395562 donne RGB(234,234,234)
16777012 donne RGB(52,255,255)
16763905 donne RGB(1,204,255)
16744448 donne RGB(0,128,255)

Voilà, désolé pour le petit hors sujet mais je pense que ça peut t'aider C'est bien plus simple, je trouve, de parler en RGB !

Quentin