[XL-2007] Formatage cellule en fonction des données [Résolu]

[chris09300]

Bonjour
j'ai un tableau que je renseigne en colonne Z AA et AB
Je souhaiterais quand je mets une valeur en Z3 que la cellule W3 soit de couleur VERTE, ainsi de suite pour toutes les lignes de Z
Je souhaiterais quand je mets une valeur en AA3 que la cellule W3 soit de couleur BLEU, ainsi de suite pour toutes les lignes de AA
Je souhaiterais quand je mets une valeur en AB3 que la cellule W3 soit de couleur ORANGE, ainsi de suite pour toutes les lignes de AB
J'ai essayer avec la mise en forme conditionnelle, cela fonctionne , mais des que met mon tableau vierge, je perds la mise en forme conditionnelle
y a t'il un moyen pour que cette mise en forme soit toujours effective
cris

[ZebreLoup]

Je vois 3 possibilités :
- Quand tu mets ton tableau vierge, tu le fais via en collage-spécial valeur pour ne pas perdre la mise en forme.
- Tu fais une macro qui te remets la mise en forme automatique.
- Tu fais une macro qui fait la mise en forme.
Les 3 sont assez simples, mais la première ne demande aucun travail supplémentaire.
Fais ton choix !

[chris09300]

j'ai mis le code suivant et cela fonctionne.
y a-t-il un moyen de reduire ce code

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
Range("W3:W67").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=SI(ESTVIDE($Z3);0;1)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65280
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    [W1].Select
        Range("W3:W67").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=SI(ESTVIDE($AA3);0;1)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65280
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    [W1].Select
        Range("W3:W67").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=SI(ESTVIDE($AB3);0;1)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65280
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    [W1].Select

cris

[ZebreLoup]

Je ne sais pas si ça va marcher :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim rg As Range
 
Set rg = Range("W3:W67")
 
rg.FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=SI(ESTVIDE($Z3);0;1)"
rg.FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=SI(ESTVIDE($AA3);0;1)"
rg.FormatConditions.Add Type:=xlExpression, Formula1:= _
    "=SI(ESTVIDE($AB3);0;1)"
 
rg.FormatConditions(1).Interior.Color = vbGreen
rg.FormatConditions(2).Interior.Color = vbBlue
rg.FormatConditions(3).Interior.Color = RGB(255, 165, 0)

[chris09300]

ca fonctionne bien
merci
cris