Condition Macro VBA Résolu

Question

Bonjour j'ai le code suivant qui ne fonctionne pas :

Sub ActualiserColor()
    If "J5" - "F7" =< 0 Then
    Range("F7").Select
    ActiveCell.Interior.ColorIndex = 4
    Else
    Range("F7").Select
    ActiveCell.Interior.ColorIndex = 3
    End If
End Sub


Je sais que l'erreur se situe au niveau de la condition mais je ne sais pas quel est la syntaxe pour effectuer cette opération

(NB : J5 est la date d'aujourd'hui, et F7 une date limite avant opération)

pijaku · Answer

Bonjour,

Si tu sais... Range(machin)...
 
Sub ActualiserColor()
    If Range("J5") - Range("F7") =< 0 Then
        Range("F7").Interior.ColorIndex = 4
    Else
        Range("F7").Interior.ColorIndex = 3
    End If
End Sub

jordane45 · Answer

Bonjour,

If "J5" - "F7" =< 0 Then
 

Si J5 et F7  sont des cellules... il faut utiliser RANGE ou CELLS...

If Range("J5").value - Range("F7").value =< 0 Then

Maurice · Answer

Bonjour
ou tu peux mettre entre []

Sub ActualiserColor()
    If [J5] - [F7] <= 0 Then
      [F7].Select
      ActiveCell.Interior.ColorIndex = 4
    Else
      [F7].Select
      ActiveCell.Interior.ColorIndex = 3
   End If
End Sub


A+
Maurice

Condition Macro VBA

3 réponses

Discussions similaires

Newsletters