Discussion :

[Patnel]

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 ?

[illight]

Effectivement, tu te trompe dans ton écriture : quand tu écris :

Code :

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

valeur = range("H12")

Tu prend la valeur de la cellule. or pour fair eun formule,c 'est pas la valeur de la cellule qu'il faut mettre, mais la référence de la cellule.

essaye un truc comme ça dans un premier temps :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub comparamo()
valeur = "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

[Patnel]

en fait ce que je cherche est bien le contenu de la variable, dans mon exemple j'ai juste initialisé la variable.
dans mon projet la valeur limite qui va déclencher la couleur de ma cellule est le résultat d'un calcul dont je vous passe les détails

je voudrais donc savoir la syntaxe pour que la ligne
Formula1:="=$H$12"
avec une variable car je voudrais éviter l'écriture dans une cellule qui ne sert pas

mais j'ai essayé :
valeur = 100
Formula1:="=" & valeur

et là ça marche

merci illight

[illight]

Problème résolu donc ?

oublie pas le petit pouce vert, et le tag résolu