Mise forme conditionnelle

Bonsoir,

Il faudrait d'abord faire une recherche sur ce newsgroup.

Sinon il y a toute les explications qu'il te faut ici :
http://www.excelabo.net/xl/conditions.php#50conditions
Ou
http://www.excelabo.net/xl/conditions.php#mefca12couleurs

Bonne soirée,

N.

Bjr,

Voici une macro qui colorie des cellules en fonction de conditions.
La feuille est d'abord deverouillée puis la macro peut etre lancée, puis la
feuille est reverouillée pour que l'utilisateur ne puisse pas modifier des
formules
Une macro comme celle là doit etre extrapolable à ton cas.

Pierre



Sub Conditionnel()
ActiveSheet.Unprotect
For Each Cellule In Selection
Select Case Cellule.Value
Case Is = "GBG"
Cellule.Interior.ColorIndex = 20 ' Orange foncé: on colorie la
cellule qui contient la donnée "GBG" dans la couleur choisie
Cellule.Font.ColorIndex = 0 ' noir
Case Is = "GBI"
Cellule.Interior.ColorIndex = 19 'jaune clair
Cellule.Font.ColorIndex = 0 ' noir
Case Is = "FRI"
Cellule.Interior.ColorIndex = 50 'Vert foncé
Cellule.Font.ColorIndex = 19 ' jaune
Case Is = "A S"
Cellule.Interior.ColorIndex = 45 ' orange moyen
Cellule.Font.ColorIndex = 0 ' noir
Case Is = "G S"
Cellule.Interior.ColorIndex = 13 ' violet
Cellule.Font.ColorIndex = 19 ' jaune
Case Is = "C F"
Cellule.Interior.ColorIndex = 35 ' vert pale
Cellule.Font.ColorIndex = 3 'rouge
Case Is = "P A"
Cellule.Interior.ColorIndex = 3 'rouge
Cellule.Font.ColorIndex = 19 ' jaune
Case Is = "M"
Cellule.Interior.ColorIndex = 4 'vert
Cellule.Font.ColorIndex = 0 'noir
Case Else
Cellule.Interior.ColorIndex = blank 'blanc
Cellule.Font.ColorIndex = 0 ' noir
End Select
Next Cellule
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells

End Sub

"dam's" <dferrand@hotmail.com> a écrit dans le message de news:
1144420737.996459.171900@z34g2000cwc.googlegroups.com...
Bonjour à tous,

Dans un tableau A1:T100, je souhaite coloriée chaque ligne suivant ce
qui est écrit dans 2 colonnes de chaque ligne.
Je cherche à faire une macro qui vérifie les conditions suivantes
pour toutes les lignes de on tableau.

exemple:
Première vérification à faire:
si dans la case J1 est inscrit "lu" colorier les cellules A1:T1 en bleu
si dans la case J2 est inscrit "Non lu" colorier les cellules A2:T2 en
gris
Si dans la case J3 est inscrit "Répondre" colorier les cellules A3:T3
en vert

Si la case J4 ne comporte pas (lu, Non lu ou Répondre):
Si dans la case G4 est inscrit "A suivre" colorier les cellules
A4:T4 en orange
Si dans la case G5 est inscrit "A traiter" colorier les cellules
A5:T5 en saumon

Si je ne suis pas assez clair n'hésitez pas à me demander des
précisions.

Merci pour votre aide
Damien

Salut Pierre,

Je ne souhaite pas particulièrement vérouiller la feuille car je suis
le seul à utiliser la macro et le fichier.
Je n'ai pas réussi à appliquer ton code dans mon fichier ! je suis
débutant dans ce domaine.
J'ai regardé comment était codé une mise en forme condittionnelle
voici ce que j'obtiens:

sub MAJConditionnelle()

Range("D24:J24").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SI($G$24=""lu"";1;0)"
Selection.FormatConditions(1).Interior.ColorIndex = 8
End Sub

Je ne sais pas si c'est possible mais je pensais faire un for avec un
comptage sur les lignes pour que la macro modifie la ligne où il est
inscrit lu, non lu,...
exemple:
for si la case i de la colonne G = lu
alors range (Ai:Ti ) couleur de la cellule est bleu

Je ne sais si j'ai été très clair

Bonsoir,

Ce que te propose Pierre B n'est pas d'appliquer un format conditionnel
avec le système d'Excel, mais d'appliquer ce format à l'aide de macro
(Excel ne permet que trois condition pour son format, mais tu perux
étudier les deux liens que je t'ai mis au dessus).

Sub ColorierSesCellule()
Dim i As Integer
For i = 1 To 100
With Range(Cells(i, 1), Cells(i, 20))
Select Case Cells(i, 10)
Case "lu"
.Interior.ColorIndex = 5
Case "Non lu"
.Interior.ColorIndex = 15
Case "Répondre"
.Interior.ColorIndex = 4
Case ""
Select Case Cells(i, 7)
Case "A suivre"
.Interior.ColorIndex = 45
Case "A traiter"
.Interior.ColorIndex = 40
End Select
End Select
End With
Next
End Sub

Si la case J4 ne comporte pas (lu, Non lu ou Répondre): ->> Je suppose
qu'elle est vide

Bonne soirée,

N.

Bonjour à tous,

Dans un tableau A1:T100, je souhaite coloriée chaque ligne suivant ce
qui est écrit dans 2 colonnes de chaque ligne.
Je cherche à faire une macro qui vérifie les conditions suivantes
pour toutes les lignes de on tableau.

exemple:
Première vérification à faire:
si dans la case J1 est inscrit "lu" colorier les cellules A1:T1 en bleu
si dans la case J2 est inscrit "Non lu" colorier les cellules A2:T2 en
gris
Si dans la case J3 est inscrit "Répondre" colorier les cellules A3:T3
en vert

Si la case J4 ne comporte pas (lu, Non lu ou Répondre):
Si dans la case G4 est inscrit "A suivre" colorier les cellules
A4:T4 en orange
Si dans la case G5 est inscrit "A traiter" colorier les cellules
A5:T5 en saumon

Si je ne suis pas assez clair n'hésitez pas à me demander des

Bonjour,
Dans le cas présent, sauf mauvaise compréhension de ma part, nul besoin
de VBA puisque la MEFC ne comporte qu'une couleur par ligne différente.
Suffit d'utiliser la MEFC classique en jouant sur références absolues et
relatives.

Vas voir l'exemple joint, une MEFC est définie pour chaque ligne de 1 à
5 puis reproduite dans tout le tableau pas collage spécial des formats.

http://cjoint.com/?eih2sEMfnN

--
François L

Merci à vous pour votre aide.

J'ai réussi à obtenir ce que je voulais
Bonne semaine

Dam's