couleur sous excel

[zed]

comment allez au dela de trois pour une mise ne forme conditionnelle.J'ai regarder la fonction cellule mais ...

florent

 

[STéphane]

bonjour


passer par du code notamment
<http://xlbysteph.free.fr/aideinformatique/actionformat.htm>


visite aussi <http://disciplus.simplex.free.fr> je crois qu'il y a des astuces manuelles

bye
Stéphane

 

[Jacky]

Voici une solution avec une macro que j'ai trouvé sur ce forum


Option Explicit

'Couleur manuelle
Const Noir = 1
Const Blanc = 2
Const Rouge = 3
Const Vert = 4
Const Bleu = 5
Const Jaune = 6
Const Violet = 7

Sub Change_Couleurs(Plage As Range)
Dim Cel As Range
For Each Cel In Plage
With Cel
Select Case .Value
'test en cas de cellule vide :
Case ""
.Interior.ColorIndex = Violet

.Interior.ColorIndex = Vert
Case 11 To 20
.Interior.ColorIndex = Jaune
Case 21 To 30
.Interior.ColorIndex = Rouge
Case 31 To 40
.Interior.ColorIndex = Bleu
End Select
End With
Next Cel
End Sub

Sub Test_Couleur()
Change_Couleurs Range("A1:C10")
End Sub

 

[Jacky]

Voila une autre macro qu'il faut dans la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Case "ZAZA"
With Selection.Interior
.ColorIndex = 7
.Pattern = xlSolid
End With
Case "ZEZETTE"
With Selection.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
Case "JEAN-PAUL"
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Case "PAUL"
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Select

End Sub