Condition Macro VBA

Résolu

STGpl -
Maurice - 21 juil. 2015 à 16:51

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)

A voir également:

Condition Macro VBA
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Excel cellule couleur si condition texte - Guide
Jitbit macro recorder - Télécharger - Confidentialité
Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro word - Guide

3 réponses

Réponse 1 / 3

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

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

Réponse 2 / 3

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

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

Réponse 3 / 3

Maurice

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Transformer un chiffre en lettres dans excel sans macro

Erreur d'exécution 13 Incompatibilité de type

Arrêt d'exécution d'un code vba

recup couleur de cellule sans macro

Votre réponse

Discussions similaires