Question débutant VBA

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:

---

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

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

Code:

---

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 ?

Salut, débutant ou pas : Balise ton code

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

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

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

Bonjour Quentin,

Merci beaucoup pour cette astuce, j'ai fait maths sup/maths spé et on voit bien que tu as fait
également une formation scientifique haha c'était une astuce très mathématiques merci ;)
C'est vrai que je pourrais trouver à peu près toutes les nuances de couleurs possibles maintenant !

Le problème a été résolu, merci encore à Gyrus !

Code:

---

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

Sub Exo() Dim DerCel As Range, Cel As Range With Sheets("Allianz Euro HY Bond") Set DerCel = .Cells(.Range("B" & Rows.Count).End(xlUp).Row, .Cells(3, Columns.Count).End(xlToLeft).Column) For Each Cel In .Range(.Cells(1, 1), DerCel) If Cel.Interior.ColorIndex = 2 Then Select Case Left(Cel, 1) Case 1 Cel.Font.ColorIndex = 10 'Vert foncé Cel.Font.Bold = True Case 2 Cel.Font.ColorIndex = 43 'Vert clair Cel.Font.Bold = True Case 3 Cel.Font.ColorIndex = 22 'Rouge clair Cel.Font.Bold = True Case 4 Cel.Font.ColorIndex = 3 'Rouge foncé Cel.Font.Bold = True Case Else Cel.Font.ColorIndex = xlNone Cel.Font.Bold = False End Select End If Next Set DerCel = Nothing End With End Sub

---

Willie