Sous condition modifier le format d'une cellule

Version imprimable

19/11/2009, 11h33
jbggg

Sous condition modifier le format d'une cellule

Bonjour,

je souhaiterai savoir comment faire pour que sous une condition définie, une cellule sous de couleur X et sous le reste dans une couleur Y.

et comment connaitre le code couleur de la couleur choisie?
19/11/2009, 11h42
melouille56
Salut
le plus simple est de tester avec l'enregistreur de macros et les formats conditionnels déjà existant dans Excel. Tu peux aussi utiliser l'enregistreur pour modifier la couleur de plusieurs cellules et voir ensuite À quel index la couleur correspond.
Sinon, tu utilises un If.
Code:

1 2 3 4 5 IF macondition Then macellule.Interior.ColorIndex = x Else macellule.Interior.ColorIndex = y EndIf
19/11/2009, 14h51
Gorfael

Salut jbggg et le forum
Je ne vais pas refaire la macro ci-dessus, juste quelques remarques :

Citation:

je souhaiterai savoir comment faire pour que sous une condition définie, une cellule sous de couleur X et sous le reste dans une couleur Y.

Pas sûr de comprendre : trop de "sous" et ça me sous le!
Pourquoi ne pas utiliser une MFC (Mise au Format Conditionnelle) ? 3 conditions possibles (+ sans condition) sur version 2003 et beaucoup plus sur 2007.

Citation:

et comment connaitre le code couleur de la couleur choisie?

Avec Dim X as Long
X=macellule.Interior.ColorIndex donnera l'index de la couleur de macellule
X=macellule.Interior.Color donnera le code la couleur de macellule
A+

le plus simple utiliser l'enregistreur de macro. Il donne directemetn le code couleur et la macro il suffit de rajouter un petit IF :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 Range("K15").Select
            ActiveCell.FormulaR1C1 = "Nbre pièces my/LGT"
            Range("L15").Select
            Selection.Interior.ColorIndex = 2
            Selection.Borders(xlDiagonalDown).LineStyle = xlNone
            Selection.Borders(xlDiagonalUp).LineStyle = xlNone
            With Selection.Borders(xlEdgeLeft)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
            With Selection.Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
            With Selection.Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
            With Selection.Borders(xlEdgeRight)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
            Range("E7").Select
            With Selection
                .HorizontalAlignment = xlRight
                .VerticalAlignment = xlBottom
                .WrapText = False
                .Orientation = 0
                .AddIndent = False
                .IndentLevel = 0
                .ShrinkToFit = False
                .ReadingOrder = xlContext
                .MergeCells = False
            End With

19/11/2009, 16h40
Gorfael

Salut jbggg et le forum

Citation:

le plus simple utiliser l'enregistreur de macro. Il donne directemetn le code couleur et la macro il suffit de rajouter un petit IF

Pas tout à fait d'accord avec toi : c'est parce que ça semble si simple qu'on a des codes à rallonge parsemé de .Select/Selction. Ton code fait 37 lignes alors que pour changer la couleur de fond, une seule suffit. Tout code créé de manière automatique devrait subir une épuration ne conservant ainsi que les lignes réellement utiles.
A+