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