couleur cellule sous condition

[tiaggo]

bonjour
je souhaiterais faire une macro qui me permettre de colorier une cellule en fonction de la valeur saisie dans cette cellule (cf doc joint) 😕

merci d'avance pour vos réponses 🙂

 

[Efgé]

Re : couleur cellule sous condition

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

 

[jorisphi]

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]

 

[Efgé]

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

 

[JCGL]

Re : couleur cellule sous condition

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

 

[jorisphi]

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]

 

[jorisphi]

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

 

[jorisphi]

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]

 

[Will-e-coyote]

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