mise en forme

Bonjour,

Les MFC sont limitées à 3:


=ET(EQUIV(A1;$E$1:$E$18;0);EQUIV(A1;$F$1:$F$18;0);EQUIV(A1;$G$1:$G$18;0))
=ET(EQUIV(A1;$E$1:$E$18;0);EQUIV(A1;$F$1:$F$18;0))
=EQUIV(A1;$E$1:$E$18;0)>0

Solution VBA pour >3:

http://cjoint.com/?llkkeNLnDy

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A1:I18], Target) Is Nothing And Target.Count = 1
Then
For Each c In [A1:D18].SpecialCells(xlCellTypeConstants, 23)
x = Application.Match(c, [e1:e18], 0)
y = Application.Match(c, [f1:f18], 0)
z = Application.Match(c, [g1:g18], 0)
t = Application.Match(c, [h1:h18], 0)
v = Application.Match(c, [i1:i18], 0)
coul = 36
If Not IsError(x) Then coul = 3
If Not IsError(x) And Not IsError(y) Then coul = 4
If Not IsError(x) And Not IsError(y) And Not IsError(z) Then coul
= 33
If Not IsError(x) And Not IsError(y) And Not IsError(z) And Not
IsError(t) Then coul = 5
If Not IsError(x) And Not IsError(y) And Not IsError(z) And _
Not IsError(t) And Not IsError(v) Then coul = 6
c.Interior.ColorIndex = coul
Next c
End If
End Sub

Cordialement JB

Bonjour à vous ,

j' ai 9 colonnes avec entete de colonne

je voudrais qu' un libellé ( ex : A354) placé dans l' une des 4 premi éres
colonnes soit de même couleur de font (rouge) si
ce meme libellé est ausi dans la 5 eme colonne. Les deux prennent donc la
meme couleur rouge.( ça c' est ok : MFC avec formule nb.si mais après je ne
sais pas faire ;-( )

Par contre, j' aimerai que les deux prennent une couleur bleu si le deuxi ème
libellé est situé maintenant dans la 6 eme colonne
(et non plus dans la 5 eme colonne )

une autre couleur si placé dans 7 eme colonne, une autre si dans 8 eme et
une derniere si dans 9eme

Merci d' avance pour les réponses et bon week-end