[VBA EXCEL]: Savoir si une mise en forme conditionnelle est active

Version imprimable

Bonjour,

Je voudrais connaitre la formule magique pour détecter qu'une mise en forme conditionnelle est active sur une cellule. Je détecte la couleur issue de la mise en forme conditionnelle, mais je ne sais pas si cette mise en forme est active sur la cellule. De plus, cells(i,j).Interior.Color détecte la couleur de la cellule hors mise en forme (la cellule peut etre rouge a cause de la mise en form mais le resultat est blanc)

Pouvez vous m aider ?
Merci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 For i = 1 To nblignes For j = 1 To nbcolonnes NbFormatConditons = Cells(i, j).FormatConditions.Count For k = 1 To NbFormatCondions If Cells(i, j).FormatConditions(k).Interior.Color = vbRed then 'Je sais que le format cond. est de fond rouge mais je ne sais pas 'si la mise en forme est activé sur cette cellule. (enabled?) MSGBOX "UNE CELLULE OBLIGATOIRE NON RENSEIGNEE" '.... end if Next k Next j Next i

03/01/2007, 08h59
bidou

Je ne crois pas qu'il existe de propriété pour cela, il faut écrire une méthode de test

il vaudrait mieux une approche plus générique, du type

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
Function TestCondition(Target As Range) As Boolean
Dim MonFormat As FormatCondition, Lim1 As Variant, Lim2 As Variant, Result As Boolean
Dim Valeur As Variant
 
For Each MonFormat In Target.FormatConditions
    If MonFormat.Type = xlCellValue Then
        Valeur = Target.Value
        Select Case MonFormat.Operator
            Case xlBetween, xlNotBetween
                Lim1 = Application.Evaluate(MonFormat.Formula1)
                Lim2 = Application.Evaluate(MonFormat.Formula2)
                Result = IIf(Application.WorksheetFunction.Min(Lim1, Lim2) < Valeur And Application.WorksheetFunction.Max(Lim1, Lim2) > Valeur, True, False)
                TestCondition = Result Eqv MonFormat.Operator = xlBetween
 
            Case xlEqual, xlNotEqual
                Lim1 = Application.Evaluate(MonFormat.Formula1)
                Result = Lim1 = Valeur
                TestCondition = Result Eqv MonFormat.Operator = xlEqual
 
            Case xlLess, xlGreater
                Lim1 = Application.Evaluate(MonFormat.Formula1)
                If Lim1 <> Valeur Then
                    Result = IIf(Lim1 > Valeur, True, False)
                    TestCondition = Result Eqv MonFormat.Operator = xlLess
                Else
                    TestCondition = False
                End If
 
            Case xlLessEqual, xlGreaterEqual
                Lim1 = Application.Evaluate(MonFormat.Formula1)
                If Lim1 <> Valeur Then
                    Result = IIf(Lim1 > Valeur, True, False)
                    TestCondition = Result Eqv MonFormat.Operator = xlLess
                Else
                    TestCondition = True
                End If
 
            End Select
    Else
        TestCondition = Application.Evaluate(MonFormat.Formula1)
    End If
    If TestCondition = True Then Exit Function
Next
 
End Function

03/01/2007, 14h59
bidou

D'abord le but n'est pas de savoir si il existe une FormatCondition mais de savoir si une des conditions est remplie.
Si le but était de savoir s'il existait une FormatCondition, un simple appel de FormatConditions.Count suffirait sans avoir besoin de gérer les erreurs
Enfin si le but était de savoir combien de cellule ont un FormatCondition tu l'aurais directement avec SpecialCells(xlCellTypeAllFormatConditions)

autres choses... :aie: