excel-vba
Mise en forme conditionnelle à l'aide de VBA

Remarques

FormatConditions.Ajouter

Syntaxe:

FormatConditions.Add(Type, Operator, Formula1, Formula2)

Paramètres:

Énumération XlFormatConditionType:

Formatage par valeur de cellule:

With Range("A1").FormatConditions.Add(xlCellValue, xlGreater, "=100")
    With .Font
        .Bold = True
        .ColorIndex = 3
     End With
End With

Les opérateurs:

Si Type est xlExpression, l'argument Opérateur est ignoré.

Le formatage par texte contient:

With Range("a1:a10").FormatConditions.Add(xlTextString, TextOperator:=xlContains, String:="egg")
    With .Font
        .Bold = True
        .ColorIndex = 3
    End With
End With

Les opérateurs:

Formatage par période

With Range("a1:a10").FormatConditions.Add(xlTimePeriod, DateOperator:=xlToday)
    With .Font
        .Bold = True
        .ColorIndex = 3
    End With
End With

Les opérateurs:

Supprimer le format conditionnel

Supprimer tous les formats conditionnels dans la plage:

Range("A1:A10").FormatConditions.Delete

Supprimer tous les formats conditionnels dans la feuille de calcul:

Cells.FormatConditions.Delete

FormatConditions.AddUniqueValues

Mise en évidence des valeurs en double

With Range("E1:E100").FormatConditions.AddUniqueValues
   .DupeUnique = xlDuplicate
   With .Font
       .Bold = True
       .ColorIndex = 3
   End With
End With

Mettre en valeur des valeurs uniques

With Range("E1:E100").FormatConditions.AddUniqueValues
   With .Font
       .Bold = True
       .ColorIndex = 3
   End With
End With

FormatConditions.AddTop10

Mise en évidence des 5 meilleures valeurs

With Range("E1:E100").FormatConditions.AddTop10
    .TopBottom = xlTop10Top
    .Rank = 5
    .Percent = False
    With .Font
        .Bold = True
        .ColorIndex = 3
    End With
End With

FormatConditions.AddAboveAverage

With Range("E1:E100").FormatConditions.AddAboveAverage
    .AboveBelow = xlAboveAverage
    With .Font
        .Bold = True
        .ColorIndex = 3
    End With
End With

Les opérateurs:

FormatConditions.AddIconSetCondition

Range("a1:a10").FormatConditions.AddIconSetCondition
With Selection.FormatConditions(1)
    .ReverseOrder = False
    .ShowIconOnly = False
    .IconSet = ActiveWorkbook.IconSets(xl3Arrows)
End With

With Selection.FormatConditions(1).IconCriteria(2)
    .Type = xlConditionValuePercent
    .Value = 33
    .Operator = 7
End With

With Selection.FormatConditions(1).IconCriteria(3)
    .Type = xlConditionValuePercent
    .Value = 67
    .Operator = 7
End With

IconSet:

Type:

Opérateur:

Valeur:

Renvoie ou définit la valeur de seuil pour une icône dans un format conditionnel.