Bonjour , j'ai un code pour une couleur de fond de cellule en fonction de son contenu.
Je me demande s'il y a aussi une possibilité de changer la police à la suite de ce code ?
J'ai fait des essais " code en bleu " sans succès :
Je me demande s'il y a aussi une possibilité de changer la police à la suite de ce code ?
J'ai fait des essais " code en bleu " sans succès :
HTML:
Sub fondcellule()
Dim celCol, oCol As Range
For Each oCol In Range("C31:IU50").Cells
Select Case oCol.Value
Case "R": celCol = 4
Case "M": celCol = 44
Case "S": celCol = 41
Case "4": celCol = 3
Case "2": celCol = 46
Case "MC": celCol = 44
[COLOR="#000080"]Case "MC": celFontCol = 3
Case "MC": celFontStyle = "Gras"
Case "MC": celUnderline = xlUnderlineStyleSingle[/COLOR]
Case "SC": celCol = 41
[COLOR="#000080"]Case "SC": celFontCol = 3
Case "SC": celFontStyle = "Gras"
Case "SC": celUnderline = xlUnderlineStyleSingle[/COLOR]
Case Else: celCol = xlNone
End Select
oCol.Interior.ColorIndex = celCol
Next oCol
End Sub
Dernière édition: