couleur cellule sous condition

Re : couleur cellule sous condition

Re
Je vous joint le fichier avec la procédure à l'ouverture.

Re : couleur cellule sous condition

Super Efge !.......
Ca Marche ! ......
Que ferais-je sans votre aide et votre coaching?........
Un Tout Tout Grand merci
Cordialement
Jorisphi

PS : Connaissez-vous un site où je pourrai trouver les n° des différentes "font couleurs" ?......

-------------
Par macro à mettre dans le Thisworkbook:

Private Sub Workbook_Open()
For i = 8 To 14
For j = 2 To 8
If Cells(i, j).Value = "paul" Then
Cells(i, j).Font.ColorIndex = 3
End If
If Cells(i, j).Value = "robert" Then
Cells(i, j).Font.ColorIndex = 46
End If
If Cells(i, j).Value = "jacques" Then
Cells(i, j).Font.ColorIndex = 22
End If
If Cells(i, j).Value = "michel" Then
Cells(i, j).Font.ColorIndex = 33
End If
Next j
Next i
End Sub
Le Thisworkbook est dans le projet de votre classeur.
Il suffit de double-cliker dessus et de copier coller la macro.
Enregister le fichier, le fermer puis à chaque ouverture la macro se lancera automatiquement
Cordialement[/QUOTE]

Re : couleur cellule sous condition

Re
Pour les différents codes couleurs, le mieux, dans un premier temps, est d'utiliser l'enregistreur de macro, puis de récupérer les codes qu'il vous indiquera.
Cordialement

Re : couleur cellule sous condition

Bonjour à tous,

Un petit fichier qui recense les 56 couleurs XL 2003


A + à tous

Re : couleur cellule sous condition

Merci Efge pour votre conseil
A Bientôt
Cordialement
JorisPhi

-------------------------------
Re
Pour les différents codes couleurs, le mieux, dans un premier temps, est d'utiliser l'enregistreur de macro, puis de récupérer les codes qu'il vous indiquera.
Cordialement[/QUOTE]

Re : couleur cellule sous condition

Bonjour JCGL

Super votre fichier !...........

Grand merci pour votre réponse
Cordialement
Jorisphi


----------------------------------------------------------
Bonjour à tous,

Un petit fichier qui recense les 56 couleurs XL 2003


Option Explicit
Sub ListIndexColor()
Dim x As Byte
Application.ScreenUpdating = 0
For x = 1 To 56
With Cells(x, 1)
.Value = "Color Index " & x
.Interior.ColorIndex = x
End With
Next
Range("A29:A56").Cut Range("B1:B28")
Columns("A:B").ColumnWidth = 20
Range("A1").Select
End Sub


A + à tous

Re : couleur cellule sous condition

Bonjour EFGE

Un tout grand merci pour votre fichier
Bonne journée
Cordialement
jorisphi
-----------------
Je vous joint le fichier avec la procédure à l'ouverture.[/QUOTE]

Re : couleur cellule sous condition

Bonjour tout le monde,

Si je puis me permettre, plutot que de passer des condtions successives pourquoi ne pas utiliser le "Select case" ?

C'est juste pour une question de lisibilté....

Bonne journée