Colorier cellule

[sams96]

Bonjour à tous
Je cherche un code vba pour colorier les cellules où apparait la lettre "B" en vert et la lettre "S" en rouge dans la colonne M

 

[Robert]

Bonjour Sams, bonjour le forum,

Si les cellules ne peuvent contenir qu'une seule lettre, essaie comme ça :

Sub Macro1()
Dim CEL As Range
Dim PL As Range

Set PL = Application.Intersect(Sheets("Feuil1").UsedRange, Sheets("Feuil1").Columns(13).Cells)
For Each CEL In PL
    If UCase(CEL.Value) = "S" Then CEL.Interior.ColorIndex = 3
    If UCase(CEL.Value) = "B" Then CEL.Interior.ColorIndex = 4
Next CEL
End Sub

Sinon elle contiennent des mots, essaie comme ça :

Sub Macro2()
Dim CEL As Range
Dim PL As Range

Set PL = Application.Intersect(Sheets("Feuil1").UsedRange, Sheets("Feuil1").Columns(13).Cells)
For Each CEL In PL
    If InStr(1, UCase(CEL.Value), "S", vbTextCompare) <> 0 Then CEL.Interior.ColorIndex = 3
    If InStr(1, UCase(CEL.Value), "B", vbTextCompare) <> 0 Then CEL.Interior.ColorIndex = 4
Next CEL
End Sub

mais dans ce cas la cellule contenant un S et un B ne sera que rouge... Onglet Feuil1 à adapter a ton cas...