Condition Macro VBA

Résolu/Fermé

STGpl - Modifié par pijaku le 21/07/2015 à 16:34
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
Excel cellule couleur si condition texte - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité

3 réponses

Réponse 1 / 3

jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
21 juil. 2015 à 16:36

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 jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
21 juil. 2015 à 16:36

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
21 juil. 2015 à 16:51

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

VBA : Range avec références variables..

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters