Discussion :

[vincentgendron]

Bonjour @all

j'ai lu la FAQ "Est-il possible d'utiliser une fonction personnelle dans une formule de mise en forme conditionnelle ?"
Ce qui est décrit, c'est une méthose "manuelle"
et ma question est : est il possible de faire exactement la meme chose par macro VBA ?

à savoir.. sur lancement de la macro, celle ci va me créér la règle de MFC avec cette fameuse fonction personnelle

Bien évidemment. j'ai déjà essayé. mais ma macro créé juste la règle sans la mise en forme à proprement parler... Elle sort avant...
Merci

[Theze]

Bonjour,

Il faudrait plus de précisions sur "fameuse fonction personnelle" mais un exemple de MFC :

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
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
 
Sub MiseEnForme()
 
    Dim Cel As Range
    Dim MFC As FormatCondition
    Dim Formule As String
    Dim CouleurTrait As Integer
    Dim CouleurFond As Integer
    Dim StyleTrait As Integer
    Dim EpaisTrait As Integer
 
    CouleurTrait = 5
    CouleurFond = 46
    StyleTrait = 1
    EpaisTrait = 2
    Formule = "=$B$2>$A$2"
 
    Set Cel = Range("D2")
 
    Cel.FormatConditions.Delete
 
    Set MFC = Cel.FormatConditions.Add(xlExpression, , Formule)
 
    With MFC.Borders(xlLeft)
        .LineStyle = StyleTrait
        .Weight = EpaisTrait
        .ColorIndex = CouleurTrait
    End With
 
    With MFC.Borders(xlRight)
        .LineStyle = StyleTrait
        .Weight = EpaisTrait
        .ColorIndex = CouleurTrait
    End With
 
    With MFC.Borders(xlTop)
        .LineStyle = StyleTrait
        .Weight = EpaisTrait
        .ColorIndex = CouleurTrait
    End With
 
    With MFC.Borders(xlBottom)
        .LineStyle = StyleTrait
        .Weight = EpaisTrait
        .ColorIndex = CouleurTrait
    End With
 
    MFC.Interior.ColorIndex = CouleurFond
 
End Sub

Hervé.