Modification d'une macro

[condors.s]

Bonjour,
Sur la macro suivante, je voudrais change le "color index 38" par la palette de couleur suivante : RVB 79;45;127

Comment est ce que je peux faire ca?
Merci

Sub MacroMEFCondor()
Dim Montableau As Range
Dim NbLigne As Integer

Set Montableau = Selection.CurrentRegion
NbLigne = Montableau.Rows.Count

'tout le tableau
'----------------
With Montableau
'Motifs
With .Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
'Police
With .Font
.Name = "Arial"
.Size = 8
End With
End With

'1ere ligne du tableau
'----------------------
With Montableau.Rows(1)
'Police
With .Font
.Name = "Arial"
.Size = 8
.Bold = True
.ColorIndex = 38
End With
'Bordures
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With

'2eme ligne du tableau
'----------------------
With Montableau.Rows(2)
'Police
With .Font
.Name = "Arial"
.Size = 8
.Bold = True
End With
End With

'3eme ligne du tableau
'----------------------
With Montableau.Rows(3)
'Police
With .Font
.Name = "Arial"
.Size = 8
.Bold = True
.ColorIndex = 38
End With
'Bordures
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With

'Dernière ligne du tableau
'----------------------
With Montableau.Rows(NbLigne)
'Police
With .Font
.Name = "Arial"
.Size = 8
.ColorIndex = 38
End With
'Bordures
With .Borders(xlEdgeTop)
.LineStyle = xlDash
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlDash
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With

End Sub

 

[RENAUDER]

Re : Modification d'une macro

Bonjour,

Remplaces
Range("A1").Font.ColorIndex = 38
Par
Range("A2").Font.Color = RGB(79, 145, 127)

 

[condors.s]

Re : Modification d'une macro

Merci beaucoup Renauder
Tout est ok