Indexcolor MFC Excel 2007
Après avoir pas mal cherché sur internet, et sans solution (:cry:) je me décide donc à poster ici des fois que ..... Voila mon problème: Je cherche à récupérer en VBA l'indexcolor d'une cellule sur laquelle est appliquée une mise en forme conditionnelle de couleur. J'ai trouvé pas mal de source sur le net pour office 2003 mais aucune pour Excel 2007 (et il semble que cela est pas mal changé) !
Voici un exemple de 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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
| ---------------------------------------------------------------------
Public Function CFColor(rng As Range) As Long
'---------------------------------------------------------------------
Dim oFC As FormatCondition
Dim sF1 As String
Dim iRow As Long
Dim iColumn As Long
Dim IsCFMet As Boolean
Set rng = rng(1, 1)
If rng.FormatConditions.Count > 0 Then
For Each oFC In rng.FormatConditions
If oFC.Type = xlCellValue Then
IsCFMet = False
Select Case oFC.Operator
Case xlEqual
IsCFMet = rng.Value = oFC.Formula1
Case xlNotEqual
IsCFMet = rng.Value <> oFC.Formula1
Case xlGreater
IsCFMet = rng.Value > oFC.Formula1
Case xlGreaterEqual
IsCFMet = rng.Value >= oFC.Formula1
Case xlLess
IsCFMet = rng.Value < oFC.Formula1
Case xlLessEqual
IsCFMet = rng.Value <= oFC.Formula1
IsCFMet = (rng.Value >= oFC.Formula1 And _
rng.Value <= oFC.Formula2)
Case xlNotBetween
IsCFMet = (rng.Value < oFC.Formula1 Or _
rng.Value > oFC.Formula2)
End Select
If IsCFMet Then
CFColor = oFC.Interior.ColorIndex
Exit Function
End If
Else
're-adjust the formula back to the formula that applies
'to the cell as relative formulae adjust to the activecell
With Application
iRow = rng.Row
iColumn = rng.Column
sF1 = .Substitute(oFC.Formula1, "ROW()", iRow)
sF1 = .Substitute(sF1, "COLUMN()", iColumn)
sF1 = .ConvertFormula(sF1, xlA1, xlR1C1)
sF1 = .ConvertFormula(sF1, xlR1C1, xlA1, , rng)
End With
IsCFMet = rng.Parent.Evaluate(sF1)
End If
If IsCFMet Then Exit Function
Next oFC
End If |
Je n'ai pas pu le tester sous 2003 :? puisque je n'ai que 2007, mais toutes les sources que j'ai pu trouver ressemblent à celle-ci ....... qui semblerait fonctionner en Excel 2003 d apres les commentaires dans les forums
Dès que je l'exécute sur sur mon Excel 2007 le code plante sur la ligne "Select Case oFC.Operator" avec l'erreur " 1004 Erreur définie par l'application ou par l'objet" ....
Si quelqu'un à la solution je suis preneur et l'en remercie d'avance :oops:
