Discussion :

[kikibelux]

Bonjour,

J'espère être dans la bonne section.

J'aimerais réaliser une macro qui met en place un formatage conditionnel.

Après quelques recherche je ne trouve pas d'information.

Qui pourrait me guider vers une documentation ou autre...

MERCI

[jurassic pork]

hello,
tu peux faire comme ceci par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub SetConditionalStyle()
  Dim oRange        'Cell range to use
  Dim oConFormat    'Conditional format object
  Dim oCondition(2) As New com.sun.star.beans.PropertyValue
  REM Sheets support returning a cell range based on UI type names.
  oRange = ThisComponent.Sheets(1).getCellRangeByName("C2:C25") 
  REM Obtain the Validation object
  oConFormat = oRange.ConditionalFormat
  REM  Condition :   < 10
  oCondition(0).Name = "Operator"
  oCondition(0).Value = com.sun.star.sheet.ConditionOperator.LESS
  oCondition(1).Name = "Formula1"
  oCondition(1).Value = "10"
  REM Action : Mettre en Style MyStyle (couleur de police rouge)
  oCondition(2).Name = "StyleName"
  oCondition(2).Value = "MyStyle"
  oConFormat.addNew(oCondition())
  oRange.ConditionalFormat = oConFormat
End Sub

Ce code mets en rouge dans les cellules C2 à C25 de la deuxième feuille celles dont la valeur est inférieure à 10.

Ami calmant, J.P