bonjour,
cette fois ci je vais essayer d'être clair, mais ma question est plus facile à exprimer

par macro je veux affecter une comparaison à une cellule dont la valeur de comparaison va dépendre d'une autre cellule
mais je voudrais qu'elle dépende la valeur d'une variable

par enregistrement j'obtiens la macro de base:

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
 
Sub Macro1()
'
' Macro1 Macro
'
 
'
' la comparaison se fait en réference à la valeur d'une cellule
 
    Range("H9").Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=$H$12"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = True
 
    Range("H9").Select
    ActiveCell.FormulaR1C1 = "100"
    Range("H9").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("H9").Select
    ActiveCell.FormulaR1C1 = "5"
    Range("H10").Select
End Sub
en fait je voudrais remplacer =$H$12" par une variable

j' ai essayé le code suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub comparamo()
valeur = Range("H12")
  Range("H9").Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:=valeur
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = True
End Sub
ça plante pas à la compil mais ça ne fait rien
quelqu'un peut il m'indiquer la bonne syntaxe ?