je ne suis pas sûr de t'avoir bien compris...il se peut donc que le code ne corresponde pas à ce que tu recherche !
Code :
Sub Couleur()
Columns('C:C').Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:='=''A'''
Selection.FormatConditions(1).Font.ColorIndex = 10
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:='=''B'''
Selection.FormatConditions(2).Font.ColorIndex = 3
End Sub
Ce code met en Vert les cellules = à 'A' et en Rouge et le cellules = à 'B'
Les cellules se trouve dans la colonne C
@+
Message édité par: ljoue, à: 29/08/2005 17:02